Bom dia!!
Tente sempre usar a pesquisa do fórum, tive algumas postagens à esse assunto.
Ao digitar em A1 os valores vai para B2, e é acumulado para baixo na mesma coluna
Para usar o código, aperte as teclas Alt + F11, ao entrar no Editor VB, do lado esquerdo escolha a Plan1 dê 2 clicks nela, e cole o código abaixo!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Target.Value
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 23/05/2012 4:55 am