Hücreden çıkıldığında kod çalışssın

[udentr2002]

Merhaba arkadaşlar,
E stünundaki hücreden enterla yada okla çıktığımda hemen yanındaki hücreye (D stünuna) bakacak eğer oraya "A" yazılmışsa F stünundaki hücreye gelip oraya E stünundaki hücrede yazılı olan tarihin üzerine 2 yıl ekleyip otomatik olarak yazacak böyle bir kodu nasıl yazabilrim acaba?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 5 Then Exit Sub
    If Target.Offset(0, -1) = "A" Then
    Target.Offset(0, 1) = DateSerial(Year(Date) + 2, Month(Date), Day(Date))
    End If
End Sub

 

[ozgretmen]

Dosya ekte...

 

[udentr2002]

Hamit hocam
ellerine sağlık teşekkür ederim

 

[udentr2002]

sayın öğretmen hocam sizede teşekkür ederim