Ir para conteúdo
Fórum Script Brasil

Rheden

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre Rheden

Rheden's Achievements

0

Reputação

  1. Consegui resolver de outra forma, obrigado!!!
  2. 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á
×
×
  • Criar Novo...