Yazdığım tarihe otomatik olarak yıl eklemek istiyorum

[askdoctoru]

Merhaba

Yazmış olduğum tarihe, otomatik olarak 5 yıl ekletmesini istiyorum. Gün ve Ay lara değişiklik olmayacaktır.


15.06.2008
15.06.2013 (sadece yıl eklemek istiyorum)

 

[asilme]

bana göre en kolayı =BUGÜN()+1826,5 formülü ile bulabilirsin

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [a1:a500]) Is Nothing Then Exit Sub
deger = Cells(ActiveCell.Row - 1, ActiveCell.Column).Text
If Len(deger) = 8 Then
Cells(ActiveCell.Row - 1, ActiveCell.Column).Value = Left(deger, 2) _
& "." & Mid(deger, 3, 2) & "." & Right(deger, 4) + 5
End If
End Sub

 

[askdoctoru]

Çok teşekkürler arkadaşlar. İyi çalışmalar