Tarihler arası +-5 gün olanların eşleştirilip listeye aktarılması

[Diamante]

Detaylı açıklama örnek excel dosyasının içerisinde mevcut. Şimdiden emek sarfeden herkese çok teşekkür ediyorum. İyi günler dilerim

 

[veyselemre]

Sub test()

    With Sheets("Sayfa 1")
        veri = .Range("A2:D" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With

    With CreateObject("Scripting.Dictionary")
        
        For i = 1 To UBound(veri)
            .Item(veri(i, 1)) = veri(i, 4)
        Next i
        
        Sheets("Sayfa 2").Select
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            
            ky = Cells(i, 1).Value
            If .exists(ky) Then
                ver = .Item(ky)
                fark = Abs(ver - Cells(i, 4).Value)
                If fark < 6 Then
                    Cells(i, "H").Value = ver
                Else
                    Cells(i, "H").Value = "fark 5 günü aşıyor (" & ver & ")"
                End If
            End If
        Next i
    
    End With

End Sub

 

[Diamante]

çok teşekkür ederim üstad. işimi gördü