Ir ao conteúdo
  • Cadastre-se

Excel VBA com função if acionando copiar e colar.


Posts recomendados

Boa noite, 

Estou com uma dificuldade em criar uma linha de comando de uma macro para que a mesma possa uma vez reconhecido determinado valor (função if) ela copie uma seleção de células (ex: B1:M2) e cole este intervalo em outra aba do mesmo arquivo no intervalo B1:M2. Esta planilha na verdade ela copiará e colará conforme eu alternar o que estará escrito na célula A1. 

Para 2013 será copiar o intervalo B1:M2 da planilha 1 e colar no intervalo em B1:M2 da planilha 2;

Para 2014 será copiar o intervalo B3:M4 da planilha 1 e colar no intervalo em B3:M4 da planilha 2;

Para 2015 será copiar o intervalo B5:M6 da planilha 1 e colar no intervalo em B5:M6 da planilha 2

e assim por diante.

Eu até consegui fazer usando usando botão de opções de controle de formulário,mas queria otimizar usando o botão de rotação. 

Alguem pode me ajudar? Obrigado!

Link para o comentário
Compartilhar em outros sites

Experimente este codigo:

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

Select Case Planilha1.Range("A1")

Case Is = 2013
Planilha1.Range("B1:M2").Copy
Planilha2.Select
Planilha2.Range("B1").PasteSpecial Paste:=xlPasteValues
Planilha1.Select

Case Is = 2014
Planilha1.Range("B3:M4").Copy
Planilha2.Select
Planilha2.Range("B3").PasteSpecial Paste:=xlPasteValues
Planilha1.Select

Case Is = 2015
Planilha1.Range("B5:M6").Copy
Planilha2.Select
Planilha2.Range("B5").PasteSpecial Paste:=xlPasteValues
Planilha1.Select

End Select

End If
Application.CutCopyMode = False

End Sub

Lembre-se que o codigo utiliza o valor da celula A1

 

 

Pode tentar tb colocar o codigo em um botao.

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...