rij toevoegen met macro

[bart visser]

Ik heb een probleem met een excel-sjabloon, ik wil het volgende:

Via een macro een bladrij onderaan de tabel toevoegen, ongeacht hoe lang de
tabel is, en ongeacht op welke plek in het veld ik sta.

Ik hoop echt dat iemand mij kan helpen, k heb alles al geprobeerd.

Ik heb het bestand trouwens ook toegevoegt.

Alvast bedankt!

 

[Cobbe]

Ik heb een oplossing die niet héél orthodox is maar toch werkt als er niet meer dan 14 rijen moeten toegevoegd worden.

Cobbe

 

[vio]

zie bestandje

Hoi Bart,
Probeer deze knop maar eens.:thumb:
Succes,
Vio

 

[trucker10]

Beste Bart , je kan ook gewoon rechtermuis klik in de laatste rij ( 29) en dan op invoegen klikken . enz.....
Je formule voor het uitrekenen in kolom F16 tot F29 past zich autom. aan

 

[Cobbe]

Via een macro een bladrij onderaan de tabel toevoegen, ongeacht hoe lang de
tabel is, en ongeacht op welke plek in het veld ik sta.

Dit was toch de vraag?

Cobbe

 

[trucker10]

mijn laptop is blijkbaar niet orthodox genoeg want ik krijg en foutmelding , zowel in excel 2003 als 2007

 

[bart visser]

Allemaal erg bedankt voor de snelle reactie!!

De oplossing van Cobbe werk super, alleen komt het vaak voor dat ik er meer dan 14 moet toevoegen. Als ik in VBA kijk snap ik niet waarom het er niet meer als 14 kunnen zijn

 

[bart visser]

en Daniël, die oplossing die jij heb bedacht vind ik ook het makkelijkste werken,
maar bij ons op kantoor zijn ze daar niet handig genoeg voor vrees ik....

 

[Cobbe]

Schijnbaar is de button niet verbonden met de macro.
Wat natuurlijk niets afdoet aan de goede werking van de code.

Cobbe

 

[Cobbe]

Allemaal erg bedankt voor de snelle reactie!!

De oplossing van Cobbe werk super, alleen komt het vaak voor dat ik er meer dan 14 moet toevoegen. Als ik in VBA kijk snap ik niet waarom het er niet meer als 14 kunnen zijn

Dat het er maar 14 kunnen zijn komt doordat op regel 45 tekst staat in kolom A.
Als je deze tekst 1 kolom opschuift kun je onbeperkt rijen bijvoegen.

Dan hoef je deze code maar aan te passen:

Range("A" & Range("A[B]1000[/B]").End(xlUp).Row - 1).Select
 Selection.ListObject.ListRows.Add AlwaysInsert:=True

Suces, Cobbe

 

[bart visser]

Cobbe, Het werkt super zo!! Ik heb er alleen nog even een scrolloptie aan toegevoegd, dus nu is hij helemaal af!

Bedankt,

Groeten Bart

 

[bart visser]

Nu is er toch weer een klein probleempje: Ik heb het sjabloon thuis gemaakt met excel 2007, maar nu hebben ze op kantoor versie 2003. en de 2003 versie kan volgens mij niet met tabellen werken, dus moet ik op een of andere manier gewone rijen toevoegen

dacht ik dat nu alles werkte, krijgen we dit weer

 

[trucker10]

Nu is er toch weer een klein probleempje: Ik heb het sjabloon thuis gemaakt met excel 2007, maar nu hebben ze op kantoor versie 2003. en de 2003 versie kan volgens mij niet met tabellen werken, dus moet ik op een of andere manier gewone rijen toevoegen

dacht ik dat nu alles werkte, krijgen we dit weer

Deze van vio werkt bij mij in 2003