Soru Aynı değerdeki hücreleri karşılaştırıp karşılık gelen başka hücreden veri çağırma

[ZonaX]

Merhabalar, yapmak istediğim "Sayfa1" deki "B" ve "C" sütunundaki verileri "Sayfa2" deki "B" ve "C" sütununları ile karşılaştırıp tam eşleşme olanların yanına "Sayfa2" deki "D" sütunundaki tarihleri "Sayfa1" deki "D" sütuna çağırmak istiyorum, bu konuda yardımlarınızı bekliyorum, dosyam ektedir,teşekkürler.

 

[çıtır]

Dosyanız.

 

[YUSUF44]

Formülle nasıl yapılır bilemedim, makro isterseniz aşağıdaki makroyu deneyiniz:

Sub tarihler()
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son1 = s1.Cells(Rows.Count, "B").End(3).Row
son2 = s2.Cells(Rows.Count, "A").End(3).Row
For i = 2 To son1
    If WorksheetFunction.CountIfs(s2.Range("A2:A" & son2), s1.Cells(i, "B"), _
        s2.Range("B2:B" & son2), s1.Cells(i, "C")) > 0 Then
        For j = 2 To son2
            If s2.Cells(j, "A") = s1.Cells(i, "B") And s2.Cells(j, "B") = s1.Cells(i, "C") Then
                s1.Cells(i, "D") = s2.Cells(j, "C")
                j = son2
            End If
        Next
    End If
Next
s1.Range("D2:D" & son1).NumberFormat = "dd/mm/yyyy"
Application.ScreenUpdating = True
End Sub

 

[ZonaX]

Teşekkürler Yusuf Bey ilginiz için, elinize sağlık, çok işime yarayacak.

 

[ZonaX]

Dosyanız.

Teşekkür ederim desteğiniz için, elinize sağlık.

 

[çıtır]

Teşekkür ederim desteğiniz için, elinize sağlık.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.