Esse código VBA pode ser muito útil quando mais de uma pessoa altera a mesma tabela, cada vez que a tabela é alterada a data e hora são marcadas automaticamente.

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

A célula onde a data de alteração será inserida pode ser modificada dentro do Case do código.

 

Problemas com o download?

 

Veja nosso tutorial e saiba como resolver qualquer tipo de problema que você enfrentar para baixar, abrir ou executar nossas planilhas.