kopieren gegevens bon naar tabel

[Kevein]

Hallo,

 

In bijlage een excel van een bestelbon, waarvan ik bepaalde gegevens naar een tabel zou willen kopieren via een macro. Heb al vanalles geprobeerd, maar het lukt me niet.

 

Wanneer er op de knop 'doorboeken' wordt gedrukt zou ik willen dat de gele cellen en de blauwe cellen (voor zover ingevuld) worden gekopieerd van de bestelbon (tabblad1) naar tabblad 2. Op tabblad 2 heb ik de gegevens geplaatst hoe het er zou moeten uitzien nadat er op de knop wordt gedrukt...

 

Graag jullie hulp

Alvast bedankt

voorbeeld2.xls

[Leotaxi]

Sub test()
For x = 12 To 12 + Application.CountA(Range("A13", "A39"))
Sheets("blad2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 4) = Array(Range("H5"), Range("B6"), Range("A" & x), Range("B" & x))
Next
End Sub

mvg

Leo

 

voorbeeld2 L.xlsm