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 Intersect(Target, Range("C2:G65536")) Is Nothing Then Exit Sub
On Error Resume Next
Cells(Target.Row, "B").Value = Date
Cells(Target.Row, "B").NumberFormat = "dd.mm.yyyy"
End Sub
Güvenlik düzeyini düşürdünüzmü?yukardaki isimlerin notlarını girdiğimde tarihi girmedi