DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Range("A2").NumberFormat = "dd.mm.yyyy"
Range("A3").NumberFormat = "hh:mm:ss"
Range("A2") = Date
Range("A3") = Format(Time, "hh:mm:ss")
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Time
Target.Offset(0, 3) = 1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
If Target.Value = "" Then
' Target.Offset(0, 1) = ""
' Target.Offset(0, 2) = ""
' Target.Offset(0, 3) = ""
Range("B" & Target.Row & ":D" & Target.Row).ClearContents
Else
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Time
Target.Offset(0, 3) = 1
End If
End Sub