DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
ekteki dosyada detaylı açıklama yaptım yardımcı olursanız sevinirim
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy")
End Sub
İlginize teşekkürler sizin verdiğiniz kod oldu ayrıca sizin verdiğiniz kod sayesinde kendi kodumdaki hatayıda gördüm düzeltince oda çalıştı.....