Bom dia,
consegui resolver com a seguinte macro:
Private Sub Worksheet_Change(ByVal Alvo As Range)
Dim limite_maximo As Integer
limite_maximo = 100 ' altere aqui para limitar a última linha
' faz nada se mais de uma célula modificada ou se deu delete
If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub
If Alvo.Column = 1 And Alvo.Row >= 2 And Alvo.Row <= limite_maximo Then
' o if acima garante que a célula modificada está dentro a2:a100
'
' desliga captura do evento change
Application.EnableEvents = False
' muda a célula C da linha correspondente
Alvo.Offset(0, 2).Value = Date()
' religa a captura de eventos
Application.EnableEvents = True
End If
End Sub
Postado : 30/04/2015 7:27 am