overbrengen van variabele lijst naar ander werkblad

[willie76]

forumleden,

Ik ben bezig met een soort van kassa-systeempje.
Op zich heb ik het al een heel eind klaar, alleen de laatste stap nog.....

ik wil de lijst uit het kassa-systeem (max J2 t/m H16) overbrengen naar de verzamelstaat middels een knop. De inhoud van de lijst is variabel !!!!!
Waarschijnlijk denk ik weer veel te moeilijk, maar ik heb uit een ander project van me een deel code gekopieerd, maar nu krijg ik alleen de eerste kolom als rij in de verzamelstaat te zien.

Wie weet de juiste code voor me te bedenken ???
Ik weet het nl echt niet meer

Alvast bedankt voor jullie hulp

 

[HSV]

Zoiets Willie?

Private Sub CommandButton1_Click()
 With Sheets("verzamelstaat")
    .Unprotect Password:="test"
    .Range("A2:C16").ClearContents
    .Range("A2:C16") = Sheets("Rekenblad").Range("H2:J16").Value
    .Protect Password:="test"
 End With

 

[willie76]

Zoiets Harry, maar als ik vervolgens een tweede keer een lijst ga maken, voor bijv een nieuwe klant, dan zou ik willen dat die 2e lijst onder de eerste komt te staan.....
Nu overschrijft ie de hele lijst op de verzamelstaat.

Uiteindelijk zou ik dus in de verzamelstaat een lijst willen hebben van alle spullen die ik verkocht heb......

 

[HSV]

Het was een gok van één op twee.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
 With Sheets("verzamelstaat")
    .Unprotect Password:="test"
aantalrijen = Sheets("rekenblad").Range("H2").End(xlDown).Row - 1
    .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(aantalrijen, 3) = Sheets("Rekenblad").Range("H2").Resize(aantalrijen, 3).Value
    .Protect Password:="test"
 End With

 

[willie76]

helemaal top Harry !!!!!

Dit is precies wat ik bedoelde