DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Range("b3") = Date & "-" & Time
çok teşekkür ederim bu tam istediğim gibi oldusayfa sekmesine sağ tuş yapıp kod bölümüne yapıştırın.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b500]) Is Nothing Then Exit Sub
ActiveCell.Offset(-1, -1) = Now
End Sub