Tarih yazdırma ve eski tarihin silinmemesi

[cckastan]

iyi çalışmalar arkadaşlar. ekte kullanmış olduğumuz basit bir takip dosyası vardır. B2 hücresinde koşullu biçimlendirme bulunmaktadır. başvuru, röleve alındı, verildi, gezildi, geri, onaylandı olarak koşulludur. Bu her durum içinde birer tarih yazılması gereken hücre bulunmaktadır.

yapamadığım ve yapmak istediğim, B2 "başvuru" olduğunda W2 ye o günün tarihini yazsın ancak sonraki günlerde B2 "röleve alındı" olduğunda W2 de bulunan tarih silinmesin ve X2 ye "röleve alındı" tarihi yazılsın. sonra ki koşullanmalarda da aynı şekilde "onaylandı"ya kadar sürmesi gerek.

eğer yapılabilecek bir işlem ise yardım ederseniz sevinirm.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırın. B2:B5000 aralığında belirttiğiniz değerleri girdiğinizde hizasındaki ilgili sütuna bugünün tarihini atacaktır. Yalnız düzgün çalışması için dererlerin örnek dosyanızdaki gibi büyük harflerle ve aynı şekilde yazılması gerekmektedir. Bunu sağlamak için B sütununa Veri doğrulama uygulayarak sadece istenen değerlerin girilmesini sağlamanızı öneririm:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B5000]) Is Nothing Then Exit Sub

If Target = "BAŞVURU" Then Target.Offset(0, 21) = Format(Date, "dd/mm/yyyy")
If Target = "RÖLEVE ALINDI" Then Target.Offset(0, 22) = Format(Date, "dd/mm/yyyy")
If Target = "VERİLDİ" Then Target.Offset(0, 23) = Format(Date, "dd/mm/yyyy")
If Target = "GEZİLDİ" Then Target.Offset(0, 24) = Format(Date, "dd/mm/yyyy")
If Target = "GERİ" Then Target.Offset(0, 25) = Format(Date, "dd/mm/yyyy")
If Target = "ONAYLANDI" Then Target.Offset(0, 26) = Format(Date, "dd/mm/yyyy")

End Sub

 

[cckastan]

ilginiz ve yardımınız için teşekkür ederim. iyi çalışmalar.