Specifieke inhoud Selecteren en kopieren naar ander Tabblad

[youdeni]

Beste mensen,

Wederom weer een vraagje vanuit mijn kant. Ik heb een Excel bestand waarin in tabblad Data een export staat van een bepaald software programma. Nu wil ik dat (ik d.m.v. een macro) de inhoud van specifiele cellen (heb ik voor het gemak geel gearceerd) gekopieerd worden naar Tabblad rapportage en daar onder elkaar komen te staan. Om het wat makkelijker te maken heb ik een voorbeeld bestand bijgevoegd.

 

[Roncancio]

Het zou zo kunnen:

Sub DataZoeken()
Dim iKolom As Integer
    Set tekst = Worksheets("Data").Range("A:IV").Find("Request", , xlValues, xlPart)
    Cells(2, 1).Value = Right(tekst.Value, 5)
    
    For iKolom = 2 To 4
        Set tekst = Worksheets("Data").Range("A:IV").Find(Cells(1, iKolom), , xlValues, xlPart)
        Cells(2, iKolom).Value = tekst.Offset(0, 1)
    Next
End Sub

Met vriendelijke groet,


Roncancio