Pessoal.

Consegui o código abaixo, mas como faço pra ele pegar em outra coluna?

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Rows.Count = 1 And .Columns.Count = 1 Then
            Select Case .Column
                Case 1
                   .Worksheet.Cells(.Row, 2).Value = Date
                   .Worksheet.Cells(.Row, 3).Value = Time
            End Select
        End If
    End With
End Sub

Nesse código, se você digitar na coluna A ( a 1) será inserida a data na coluna B (que é a 2) e a hora na coluna C (que é a 3).

Se você não souber adaptar, informe quais colunas você deseja usar.

Se foi útil, clique na mãozinha.

[]s

Teria que ser pelo menos na coluna D .... E/F Data e Hora

Experimente usar:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        Cells(Target.Row, 5).Value = Date
        Cells(Target.Row, 6).Value = Time
    End If
End Sub

Veja um outro exemplo com o VBA se referindo a colunas de uma tabela.

Experimente usar:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        Cells(Target.Row, 5).Value = Date
        Cells(Target.Row, 6).Value = Time
    End If
End Sub

Obrigadooooooo