Jump to content
Fórum Script Brasil
  • 0

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


Question

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á

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

@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.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148692
    • Total Posts
      644524
×
×
  • Create New...