Dificuldade em criar uma macro de visualização de impressão

[Rheden]

Bom dia galera, eu estou com dificuldade de criar uma macro de visualização de impressão, o que eu quero fazer é o seguinte:

1)copiar uma célula(P2 da planilha "Cálculo")

2)colar especial somente os valores em outra aba da minha planilha(copiar a P2 da planilha "Cálculo" e colar especial na K9 da planilha "MacroImprimir")

3)copiar a K9 da planilha "MacroImprimir" e colar na caixa de nome da planilha "CalculoImpressão"( neste caso o que eu copiei da K9 da planilha "MacroImprimir" era uma matriz)

4) dar enter depois de copiar o K9 da planilha "MacroImprimir" na caixa de nome da planilha "CalculoImpressão" e visualizar impressão

Explicando um pouco como funciona a minha planilha: a célula P2 da planilha "Cálculo" varia de acordo com algumas entradas de dados, portanto ela não é sempre a mesma, por isso o colar especial com valores no passo 2

Quando tentei gravar esta macro os seguintes problemas ocorreram:

A macro não realiza o ultimo passo de visualização de impressão e ela utiliza a célula P2 da planilha "Cálculo" de quando eu gravei a macro, caso eu altere os dados da minha planilha e com isso consequentemente o resultado da célula P2 da planilha "Cálculo", a macro não muda a área de impressão no passo 4, é a mesma de quando eu gravei a macro

Segue a apuração da macro:

Sub ImprCalc() ' ' ImprCalc Macro '

'
Range("P2").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("MacroImprimir").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Application.CutCopyMode = False

Selection.Copy

Sheets("CalculoImpressão").Select

Application.Goto Reference:="R2C2:R43C14"

Application.CutCopyMode = False

End Sub

Obs: Todas estas planilhas estão no mesmo arquivo

Alguém sabe onde eu possa estar errando?

Obrigado desde já

[Alyson Ronnan Martins]

@Rheden Boa noite.

Eu vi o código e no ponto 2 você diz que quer colocar o código na k9 do "MacroImprimir"

...
Sheets("MacroImprimir").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Seria nescessário informar a area que vai colocar:

...
Sheets("MacroImprimir").Select

'Agora seleciona aonde vai colocar oa dados:
Range("K9").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

 

Mudando um pouco o código você pode colocar o valor diretamente na plnilha que deseja da seguinte maneira:

sheets("CalcularMacro").Range("K9").value = sheets("Cálculo").Range("P2").value

Assim você coloca o valor diretamente no campo que precisa.

[Rheden]

Consegui resolver de outra forma, obrigado!!!