Preciso congelar a data e hora de input

Preciso congelar a data e hora em que inseri uma informação em outra célula.

Ex: Inseri um dado na célula B2, quero que apareça na célula A2 a data e a hora em que essa informação foi inserida.

Você quer um loop ou vai lançar dados somente na célula B2?

Vou ir inserindo dados na célula B2,C2,D2 , etc.

Esta macro atribuída ao evento “Conteúdo alterado” faz a tarefa.

Sub insertar_fecha(source)
	
	If Not (source.ImplementationName = "ScCellObj") Then
		Exit Sub
	End If
	
	a = source.CellAddress
	If a.Column <> 1 Then
		Exit Sub
	End If
	
	hoja = source.SpreadSheet
	celda = hoja.getCellByPosition(0, a.Row) 
	celda.Value = Now()
	
End Sub

ask_example_2.ods (8.4 KB)
ask_002

1 Like