Kod:
If Sheets("Sayfa3").Range("D3").Value = "Ortaokulu bitirenler" And Sheets("Sayfa3").Range("D5").Value = "Liseyi bitirenler" Then
Kod:
Sheets("Sayfa3").Range("D3").Value = Format(Day(Range("M3").Value) & "." & Month(Range("M3").Value) & "." & Year(Range("L3").Value) + 3, "dd.mm.yyyy")
Yapmak istediğim L3 de ki yıl kısmına 3 yıl ekleyerek M3 deki tarihin yıl kısmına almak
Örnek :
M3 = 30.06
L3 = 30.06.1998
D10 = 30.06.2001 olacak
Yardımlarınızı istirham ediyorum.
M3'ün anlamı ne? L3'teki tarihin gün ve ay kısmı değil mi?
Berduş ustam M3
Sayfa1de öğrenim durumunun hemen altında yer alan yıl eksik tarih
kodu aşağıdaki gibi düzenleyip dener misiniz?
If Not Intersect(Target, [B3:O6]) Is Nothing Then
If Sheets("Sayfa3").Range("D3").Value = "Ortaokulu bitirenler" And Sheets("Sayfa3").Range("D5").Value = "Liseyi bitirenler" Then _
Sheets("Sayfa3").Range("D10").Value = Sheets("Sayfa3").Range("M3").Value & Format(DateAdd("yyyy", 3, Sheets("Sayfa3").Range("L3").Value), "yyyy")
End If
Berduş Ustam
Hakkınızı Helal edin
rica ederim
iyi çalışmalar ama bu kodu siz de yazabilirdiniz aslında, dilerim yazdığımız kodları inceleyip anlamaya çalışıyorsunuzdur çünkü ilerde sorun yaşama ihtimaliniz olabilir
taşıma suyla değirmen bir yere kadar döner...