Toevoegen nieuwe regels dmv knop

[NewVBAUser]

Hallo,

In de bijlage heb ik een xls doc toegevoegd met een voorbeeld.

als je op het knop "Product toevoegen" klikt, dan voegt excel een nieuwe productgroep toe onder hetgeen wat er al staat. Als je weer op het knopje druk, dan doet hij precies hetzelfde (dus hij overschrijft de eerste die ik toegevoegd heb)...

a) hoe krijg ik voor mekaar dat excel nieuwe producten onder mekaar zet? Dus als ik 5 keer op het knopje druk, dat ik 5 nieuwe producten zie daaronder?
b) hoe kan ik zo een teller toevoegen (cell b1) dat als ik een nieuw productgroep toevoeg, hij automatisch gaat berekenen hoeveel productgroepen er in totaal zijn?

Dank!

Groetjes,

Sander

 

[AlexV]

Hoi Sander,

Je hebt een simple code.
Daar een regel aan toevoegen dan doe je Copy het.
Aleen heeft de knop 'Rij toevoegen' niet zo veel zin.
Daar die niet mee genomen wordt bij je copy.

Sub producttoevoegen()

' producttoevoegen Macro
    Cells(1, 2).Value = Cells(1, 2).Value + 1 ' voor je teller ;-)

    Range("A3:D16").Select
    Selection.Copy
    Range("A18:D31").Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    
End Sub

Gr,
Alex,

 

[Hoornvan]

Hoi Sander,

De code kan korter, zie hier.

Sub producttoevoegen()
    Cells(1, 2).Value = Cells(1, 2).Value + 1 ' voor je teller ;-)
    Range("A3:D16").Copy
    Range("A18:D31").Insert Shift:=xlDown
    ActiveSheet.Paste
End Sub

 

[NewVBAUser]

Hallo,

Dank voor jullie hulp! Dit is precies hetgeen wat ik zocht.

Al heb ik nog wel een vraag, hoe zou ik het knop rij toevoegen ook steeds mee kunnen kopieeren? Dus telkens als ik het geselecteerde gedeelte kopieer, dan een nieuwe knop toevoegen?

Alvast bedankt!

Grt,
Sander

 

[snb]

korter ?

Sub producttoevoegen()
  Cells(1, 2).Value = Cells(1, 2).Value + 1 ' voor je teller ;-)
  Range("A3:D16").Copy Range("A65000").end(xlup).offset(1)
End Sub

 

[NewVBAUser]

Hoi SNB,

Bedankt voor je reactie. De code kan niet korter volgens mij
Weet jij misschien hoe ik ook mijn knop constant kan kopieeren?

Thanks!

Grt,
Sander

 

[snb]

Ja, maar dat lijkt me geen slimme aktie.
Zet liever een kopieerknop in een werkbalk.

 

[NewVBAUser]

Het knop kopieeren dat lukt me wel. Maar de vraag is nu of het mogelijk is om ook die macro achter de knop te kopieeren? Of wordt het dan te complex?

 

[snb]

Ik blijf bij mijn vorige suggestie.