Listeden değişiklik yapıldığında tarih yazdırma

[eciddi]

https://drive.google.com/file/d/1NVe3edwk4Ck5IWIvhiCEQojCCchn8mnv/view?usp=sharing

YUKARIDA DOSYA ÖRNEĞİNİ KOYDUM DAHA NET ANLAŞILIR.LİSTEDEN TAMAMLANDI YI SEÇTİĞİMDE OGÜNÜN TARİHİNİ KAYDETTİRMEK İSTİYORUM

 

[çıtır]

Sayfanın kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
If Target = "TAMAMLANDI" Then
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
Else
Target.Offset(0, 1) = ""
End If
End Sub

formül ile isterseniz. C2 ye kopyalayıp aşağı çekerek çoğaltınız.Hücre biçimini tarih olarak ayarlayınız.Kolay gelsin.

=EĞER($B2="TAMAMLANDI";BUGÜN();"")

 

[eciddi]

Teşekkür ederim emeğinize sağlık fakat kafama bir soru takıldı bunu her gün açtığımızda tarihlerde otomatik olarak dosyayı açtığımız tarihe göre değişmeyecekmi bunu nasıl engelleriz değişikliği yaptığımız günün tarihi saklı kalsın istiyorum

 

[çıtır]

1.Gönderdiğim kodu kullanın ,bahsettiğiniz sorun olmaz.