Vericaal zoeken en kopiëren

[Lobanovski]

Beste forumleden,


In mijn bestand heb ik in cel A1 de datum staan.
In de cellen B2:BA2 worden variabelen gevuld. Deze variabelen worden dagelijks opnieuw gevuld.
Ik wil na het invullen van de variabelen deze met een macro kopiëren naar de datum waarop ze zijn ingevuld. De data staan in BF2:BF367

Bij een andere vraag heb ik onderstaande macro gevonden, maar ik krijg hem niet goed aangepast. Zou iemand mij daarbij kunnen helpen?

Alvast bedankt!

sub tst()
Dim kolom
   kolom = WorksheetFunction.Match(CLng([Blad1!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

 

[HSV]

Als jij er een voorbeeldbestand bijhangt, kan ik allicht even kijken.

 

[Lobanovski]

Beste Harry,

Bijgaand het gevraagde bestand.
Het is de bedoeling dat door het klikken op een opdrachtknop de gegevens in B2:BA2 geplakt worden achter de datum in kolom BF die gelijk is aan de datum die in cel A1 staatBekijk bijlage voorbeeldbestand.xls

 

[HSV]

Zoiets dus.
De msgbox is waarschijnlijk (gedeeltelijk) overbodig.

Sub kopiëren()
 Dim rij As Integer
   rij = WorksheetFunction.Match(Range("A1"), Range("BF1:BF368"), 0)
    Range("BG" & rij).Resize(, 52).Value = Range("B2:BF2").Value
   Range("BG" & rij).Resize(, 52).NumberFormat = "hh:mm:ss"
 MsgBox "" & WorksheetFunction.Rept(Chr(160), 10) & "Gegevens zijn weggeschreven. ", , "Je hebt op de knop gedrukt. "
End Sub

 

[Lobanovski]

Beste Harry,

Het werkt geweldig. Hartstikke bedankt!