a sütununda tarih yazınca b sütununa yılın artırılmış halini yazdırmak

[u.L.a.s]

merhaba

a sütununda bir tarih girdiğimde (19.01.2023)
b sütununda 4 yıl sonrasını yazsın istiyorum (19.01.2027)

ama bunu makro kod ile yapsın istiyorum

Private Sub Worksheet_Change(ByVal Target As Range) kodu ile başlamasını istiyoru

teşekkür ederim

 

[Greenblacksea53]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim ilk As Range, hucre As Range
    Set ilk = Range("A1:A1000")

    Application.EnableEvents = False
    For Each hucre In Range(Target.Address)
        If Not Intersect(hucre, ilk) Is Nothing Then hucre.Offset(0, 1) = hucre + 1461
    Next hucre

    Application.EnableEvents = True
    Set ilk = Nothing
End Sub

 

[u.L.a.s]

teşekkürler üstadım

 

[Necdet]

Alternatif, 1. satırın başlık olduğu varsayılmıştır.

Sayfanın kod bölümüne kopyalanmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    If Target.Value = "" Then
        Target.Offset(0, 1) = ""
    Else
        Target.Offset(0, 1) = DateAdd("yyyy", 4, Target.Value)
    End If
    
End Sub

 

[u.L.a.s]

teşekkürler Necdet üstadım