Excel Macro para repetir celula especifica ao digitar em outra

[Rafael nunes da silva]

Boa noite a todos, 

 

gostaria de uma ajuda com uma macro que trouxesse a seguinte situação:

ao digitar algo por exemplo na célula A2, a célula B2 repetisse o conteúdo da célula acima, ou seja A2

e assim por diante, sempre ao digitar em uma célula, a célula ao lado informe o valor da célula acima

 

em anexo uma ilustração, teste.xlsx esta como macro

desde já, agradeço a todos.

 

 

[Visitante]

Solução via macro ~~~> instale uma cópia do código abaixo no módulo da Plan1. Para acessar o módulo clique com o direito na guia daquela planilha e escolha Exibir Código.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [D5:D100]) Is Nothing Or Target.Value = "" Then Exit Sub
 Target.Offset(, 1) = Target.Offset(-1, 1)
End Sub

 

Solução via fórmula ~~~> cole uma cópia da fórmula abaixo em E6 e arraste para baixo.

=SE(D6="";"";E5)

 

[Rafael nunes da silva]

1 hora atrás, osvaldomp disse:

Solução via macro ~~~> instale uma cópia do código abaixo no módulo da Plan1. Para acessar o módulo clique com o direito na guia daquela planilha e escolha Exibir Código.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [D5:D100]) Is Nothing Or Target.Value = "" Then Exit Sub
 Target.Offset(, 1) = Target.Offset(-1, 1)
End Sub

 

Solução via fórmula ~~~> cole uma cópia da fórmula abaixo em E6 e arraste para baixo.

=SE(D6="";"";E5)

 

Nossa, muitíssimo obrigado resolveu meu problema