Tarih karşılaştırması

[taneryuksell]

Arkadaşlar iyi akşamlar dilerim. Ekte ki dosyada açıklamayı yazdım. Uğraştığım bir dosyanın bu kısmında takıldım. Yardımcı olabilecek arkadaşlara şimdiden tşk ederim

 

[Muzaffer Ali]

Merhaba.

Dosyanız ekte.

Kodlar A yada B sütunlarının her ikisi de doluysa ve bir değişiklik olduğunda çalışır.

 

[taneryuksell]

Üstad çok tşk ederim.. ellerine sağlık

 

[Korhan Ayhan]

Merhaba,

Eğer beşlangıç ve bitiş tarihlerinde boş bıraktığınız hücrelere tarih yazma şansınız varsa aşağıdaki kodu da kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Parametre_Tarih As Range, Parametre_Sonuc As Range
    If Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then Exit Sub
    If Cells(Target.Row, "A") <> "" And Cells(Target.Row, "B") <> "" Then
        If Cells(Target.Row, "A") = "SARI" Then
            Set Parametre_Tarih = Range("F3:G12")
            Set Parametre_Sonuc = Range("H3:H12")
        ElseIf Cells(Target.Row, "A") = "KIRMIZI" Then
            Set Parametre_Tarih = Range("K3:L12")
            Set Parametre_Sonuc = Range("M3:M12")
        End If
        Cells(Target.Row, "C") = WorksheetFunction.Lookup(Cells(Target.Row, "B"), Parametre_Tarih, Parametre_Sonuc)
    End If
End Sub