
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
[b1] = Now 'data+ora
[b2] = Date 'data
[b3] = Time 'ora
End If
End Sub |
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 2) = Now 'data+ora se vuoi solo l'ora sostituisci NOW con TIME
'se vuoi solo la data sostituisci NOW con DATE
End If
End Sub
|
