Ir para conteúdo
Fórum Script Brasil
  • 0

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


Rheden

Pergunta

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 para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...