Hücreye tarih girince diğer hücrede 1 yıl sonrasın atması

[mars2]

İyi Günler;

Tablomun S sutununda Başlangıç tarihi T Sutunun da bitiş tarihi bulunmaktadır. Ancak, S sutunun da Başlangıç tarihleri alt alta olup T sutununda bitiş tarihleri de alt alta olacaktır.
Sutunundaki hücreye yeni, tarih girdiğimde T sutunundaki hücreye 1 yıl sonraki tarihi yazdırmak istiyorum.

Başlangıç Tarihi	Bitiş tarihi
15.08.2023 15.08.2024 15.08.2025 15.08.2026	14.08.2024 14.08.2025 14.08.2026 14.08.2027

 

[mars2]

İyi Günler;

Tablomun S sutununda Başlangıç tarihi T Sutunun da bitiş tarihi bulunmaktadır. Ancak, S sutunun da Başlangıç tarihleri alt alta olup T sutununda bitiş tarihleri de alt alta olacaktır.
Sutunundaki hücreye yeni, tarih girdiğimde T sutunundaki hücreye 1 yıl sonraki tarihi yazdırmak istiyorum.

Başlangıç Tarihi	Bitiş tarihi
15.08.2023 15.08.2024 15.08.2025 15.08.2026	14.08.2024 14.08.2025 14.08.2026 14.08.2027

 

[besen]

İyi Günler;

Tablomun S sutununda Başlangıç tarihi T Sutunun da bitiş tarihi bulunmaktadır. Ancak, S sutunun da Başlangıç tarihleri alt alta olup T sutununda bitiş tarihleri de alt alta olacaktır.
Sutunundaki hücreye yeni, tarih girdiğimde T sutunundaki hücreye 1 yıl sonraki tarihi yazdırmak istiyorum.

Başlangıç Tarihi	Bitiş tarihi
15.08.2023 15.08.2024 15.08.2025 15.08.2026	14.08.2024 14.08.2025 14.08.2026 14.08.2027

Başlangıç tarihinin A2'de olduğunu varsayarsak =EDATE(A2;12)

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, Data As Variant, X As Integer
        
    If Intersect(Target, Range("S3:S" & Rows.Count)) Is Nothing Then Exit Sub
    
    For Each Rng In Intersect(Target, Range("S3:S" & Rows.Count))
        If Rng.Value <> "" Then
            Data = Split(Rng.Value, Chr(10))
            For X = 0 To UBound(Data)
                Data(X) = Format(WorksheetFunction.EDate(CDate(Data(X)), 12) - 1, "dd.mm.yyyy")
            Next
            
            If UBound(Data) = 0 Then
                Rng.Next = CDate(Join(Data, Chr(10)))
            Else
                Rng.Next = Join(Data, Chr(10))
            End If
        Else
            Rng.Next.ClearContents
        End If
    Next
End Sub

 

[mars2]

İyi Günler;

Tablomun S sutununda Başlangıç tarihi T Sutunun da bitiş tarihi bulunmaktadır. Ancak, S sutunun da Başlangıç tarihleri alt alta olup T sutununda bitiş tarihleri de alt alta bulunmaktadır.
S sutunundaki hücreye yeni, tarih girdiğimde T sutunundaki hücrede bulunan tarihlerin en altına 1 yıl sonraki tarihi yazdırmak istiyorum.

Başlangıç Tarihi	Bitiş tarihi
15.08.2023 15.08.2024 15.08.2025 15.08.2026	14.08.2024 14.08.2025 14.08.2026 14.08.2027

 

[mars2]

Sayın Korhan bey;
teşekkürler.

 

[Korhan Ayhan]

Küçük bir ekleme daha yaptım. Son halini denersiniz.