Kolon başlığını eşleştirerek kolon bilgisi aktarmak

[bmutlu966]

Arkadaşlar selam,

Bir DATA'dan belli kolonlardaki bilgileri başka bir sayfaya aktarmak istiyorum. Ancak DATA'da kolondaki bilgilerin yeri değişiklik gösteriyor. Bu yüzden istenen bilgiye ait kolon DATA'da aranıp o bilgilerin getirilmesi gerekiyor. Ekte basit bir örnekle açıklamaya çalıştım.

Yardımlarınız için şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub aktar()
Set s1 = Sheets("DATA")
Set s2 = Sheets("Getir")

eskisat = WorksheetFunction.Max(2, s2.Cells(Rows.Count, "A").End(3).Row)
eskisut = WorksheetFunction.Max(2, s2.Cells(1, Columns.Count).End(xlToLeft).Column)

sil = MsgBox("Getir Sayfasındaki eski veriler silinsin mi?", vbYesNo)
If sil = vbYes Then
    s2.Range(Cells(2, "A"), Cells(eskisat, eskisut)).ClearContents
    eskisat = 1
End If

eskidatasut = WorksheetFunction.Max(2, s1.Cells(1, Columns.Count).End(xlToLeft).Column)

For sut = 1 To eskisut
    For datas = 1 To eskidatasut
        If s2.Cells(1, sut) = s1.Cells(1, datas) Then
            son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, datas).End(3).Row)
            s1.Range(s1.Cells(2, datas), s1.Cells(son, datas)).Copy s2.Cells(eskisat + 1, sut)
        End If
    Next
Next
            
End Sub

 

[bmutlu966]

Yusuf bey süper olmuş. Çok teşekkür ederim