Bom dia Italo
Essa daqui que tem a ver mais com o que vc quer:
Deixe as células das colunas A e B em branco, pois nelas que serão registradas as entradas.
Siga os mesmo procedimentos da resposta anterior e copie e cole este código:
If Target.Column = 1 Then Cells(Target.Row, 2) = Now
O código todo ficará assim:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Now
End Sub
Clique em ALT+ F11 novamente para voltar a planilha e salve a planilha e feche.
Quando vc abrir novamente e habilitar a macro vc digita teu nome na célula A1 e a data e o horário serão lançados automaticamente na cédula B1.
Qunado vc entrar no vamente na planilha coloque teu nome na célula A2 e na célula B2 aparecerá a nova dta e horário e assim por diante.
Abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 13/06/2010 6:45 am