Soru Bir tablodan başka bir tabloya veri almak

[hadromer]

Merhaba,
Fotoğrafta görüldüğü üzere Tablo 1 ve Tablo 2 isminde iki adet tablom var. Tablo 1'i Veri 1'e, Tablo 2'yi Veri 2'ye ilgili tablonun sütun başlıklarına göre aktarmak istiyorum.
Tüm tablo ve verilerin A sütunları sabit. Tablolarda diğer Sütunlar farklılık gösteriyor. Örneğin Tablo 1'de D sütununda yer alan "acat" adlı sütun Veri 1'de de varsa o sütun altındaki verilerin tamamını aktarmak istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

ÖRNEK DOSYA: https://s5.dosya.tc/server6/ht6vnt/Aktarma.xlsx.html

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
With Sheets("Veri2")
    sat = .Cells(Rows.Count, 1).End(3).Row
    sut = .Cells(1, Columns.Count).End(1).Column
    With .Range(.Range("B2"), .Cells(sat, sut))
        .Formula = "=IFERROR(IF(INDEX(Tablo2!$1:$65000,MATCH($A2,Tablo2!$A:$A,0),MATCH(B$1,Tablo2!$1:$1,0))="""","""",INDEX(Tablo2!$1:$65000,MATCH($A2,Tablo2!$A:$A,0),MATCH(B$1,Tablo2!$1:$1,0))),"""")"
        .Value = .Value
    End With
End With

With Sheets("Veri1")
    sat = .Cells(Rows.Count, 1).End(3).Row
    sut = .Cells(1, Columns.Count).End(1).Column
    With .Range(.Range("B2"), .Cells(sat, sut))
        .Formula = "=IFERROR(IF(INDEX(Tablo1!$1:$65000,MATCH($A2,Tablo1!$A:$A,0),MATCH(B$1,Tablo1!$1:$1,0))="""","""",INDEX(Tablo1!$1:$65000,MATCH($A2,Tablo1!$A:$A,0),MATCH(B$1,Tablo1!$1:$1,0))),"""")"
        .Value = .Value
    End With
End With
End Sub

 

[hadromer]

Merhaba,
Deneyiniz...
[/CODE]

Merhaba,
Kod istediğim gibi çalıştı. Bazı sütun başlıklarını algılamamış onları manuel olarak hallettim. Tekrardan teşekkür ediyorum.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...