Cole uma cópia do código abaixo no módulo da planilha de interesse.
Para acessar o módulo clique com o direito na guia da planilha Excel e selecione Exibir Código.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Value <> "" Then Target.Offset(, 1).Value = Time
End Sub
funcionamento - após digitar ou colar algum conteúdo em alguma célula da coluna A o código irá lançar a hora atual em B, mesma linha. Formate a coluna B para exibir a hora conforme a sua preferência.
Postado : 25/09/2023 7:49 pm