horizontaal zoeken in combinatie met kopieren en plakken

[Warthief]

Goedemorgen,

Ik ben op zoek naar een mogelijkheid om makkelijk data over te zetten middels een macro in excel.

De bedoeling is dat een rij informatie in blad 3 (bv range("a1:a25") wordt gekopieerd onder een specifieke datum (die datum is terug te vinden op blad 1) in blad 2 (datum rij staat bijvoorbeeld a1 t/m iv1)

Kan iemand mij daar bij helpen?

Met vriendelijke groet,

John

 

[HSV]

Als de datum in Blad 1 cel B1 staat kan het zo.

sub tst()
Dim kolom
   kolom = WorksheetFunction.Match(CLng([B1].Value), Sheets("Blad2").Range("A1:IV1"), 0)
     Sheets("Blad2").Cells(Rows.Count, kolom).End(xlUp).Offset(1).Resize(25).Value _
     = Sheets("Blad3").Range("A1:A25").Value
End Sub

 

[Warme bakkertje]

Harry, ik zou er voor alle zekerheid nog bijzetten dat de datum te vinden is op Blad1.

sub tst()
Dim kolom
   kolom = WorksheetFunction.Match(CLng([[COLOR="red"]Blad1![/COLOR]B1].Value), Sheets("Blad2").Range("A1:IV1"), 0)
     Sheets("Blad2").Cells(Rows.Count, kolom).End(xlUp).Offset(1).Resize(25).Value _
     = Sheets("Blad3").Range("A1:A25").Value
End Sub

 

[Warthief]

Dit is precies wat ik zocht, heel erg bedankt ik had dit zelf niet gevonden