Página 1 de 1

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

Enviado: 24 Fev 2020 às 12:33
por 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á