Ir ao conteúdo
  • Cadastre-se
araujofa01

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

Recommended Posts

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!

Compartilhar este post


Link para o post
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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro 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 publicações 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

×