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á
