Soru 2 ayrı dosyadaki verileri eşleştirme

[camor35]

Merhaba,



Ekli dosyada; "VERİ A" ve "VERİ B" olmak üzere 2 ayrı sayfada verilerim var."VERİ B" dosyamda hücreler içersinde bulunan "Y" harflerini, "VERİ A" dosyam içersinde karşılık gelen ilgili hücreler içersine formül yoluyla çekmek istiyorum(Diğer hücre içerikleri bozulmadan).
Şimdiden yardımcı olan destek olan arkadaşlara tşk ederim.

 

[camor35]

Sorum hakkında yarımcı olabilecek arkadaş yok mu acaba ?

 

[Korhan Ayhan]

Merhaba,

İstediğiniz işlem formülle olmaz. Makro kullanmanız daha uygun olacaktır.

Deneyiniz.

Option Explicit

Sub Y_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Ay As Byte, Yil As Integer, Son As Long
    Dim Gun As Range, Ad_Soyad As Range
    Dim Tarih As Date, X As Integer, Y As Byte
    
    Set S1 = Sheets("VERİ A")
    Set S2 = Sheets("VERİ B")
    
    Ay = Month(S1.Range("E3"))
    Yil = Year(S1.Range("E3"))
    Son = S2.Cells(S2.Rows.Count, 3).End(3).Row
    
    For X = 4 To Son
        For Y = 5 To 35
            If S2.Cells(X, Y) = "Y" Then
                Tarih = DateSerial(Yil, Ay, S2.Cells(3, Y))
                Set Gun = S1.Range("E3:AI3").Find(Tarih, , , xlWhole)
                If Not Gun Is Nothing Then
                    Set Ad_Soyad = S1.Range("C4:C" & S1.Rows.Count).Find(S2.Cells(X, 3), , , xlWhole)
                    If Not Ad_Soyad Is Nothing Then
                        S1.Cells(Ad_Soyad.Row, Gun.Column) = "Y"
                    End If
                End If
            End If
        Next
    Next

    Set Gun = Nothing
    Set Ad_Soyad = Nothing
    Set S1 = Nothing
    Set S2 = Nothing

    MsgBox "Veri aktarımı tamamlanmıştır.", vbInformation
End Sub