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
kodu aşağıdaki gibi düzenleyip dener misiniz?