Soru 2 ayrı dosyadaki verileri eşleştirme

camor35

Altın Üye
Katılım
14 Kasım 2019
Mesajlar
21
Excel Vers. ve Dili
microsoft office 2010
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.
 

Ekli dosyalar

camor35

Altın Üye
Katılım
14 Kasım 2019
Mesajlar
21
Excel Vers. ve Dili
microsoft office 2010
Sorum hakkında yarımcı olabilecek arkadaş yok mu acaba ?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

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

Deneyiniz.

C++:
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
 
Üst