Script/Macro lukt niet

[spaarie]

Beste forum-leden,

Ik heb weinig, tot geen verstand van macro's en VBA. Nu wil ik wel een knop in mijn Excel bestand met een macro .

Ik heb een knop gemaakt en een macro "opgenomen". Heel simpel 1 tabblad kopiëren/dupliceren en grootste gedeelte van de inhoud verwijderen.
Nu loop ik tegen het probleem dat hij ook de knop (waar de macro achter zit) ook dupliceert en met meer dan 100 tabbladen zijn dit ook meer dan 100 knoppen achter elkaar. Ook op het orginele blad wordt een knop erachter gezet...

Hoe kan ik dit oplossen? Als vb bestand nodig is hoor ik het graag, zit nog gevoelige info in.

Bij voorbaat dank...

 

[Haije]

spaarie,

zonder voorbeeld kunnen we niet zien hoe je code er uitziet.

 

[sylvester-ponte]

vreemd, bij mij kopieert de macro wel de knopMacro maar niet de knop zelf

groet sylvester

 

[spaarie]

Hierbij het voorbeeldbestandje...

De macro knop komt ook boven de huidige knop te staan en zie dan geen "nieuwe kaart" meer, maar Knop 21 ofzo...

 

[sylvester-ponte]

de eerste 2 regels van de macro moet je verwijderen.
daar staat nl.: dat er een knop toegevoegd moet worden.

groet sylveseter

 

[spaarie]

Helemaal top!

Zover reikt me kennis dus van VBA/Macro's :d

Bedankt voor jullie tijd en hulp.

 

[spaarie]

Heb ik nog één vraag :d

Als ik d.m.v. de knop een op nieuwe kaart aanmaak moet de nieuwe kaart eigenlijk aan het einde komen van alle tabbladen. De nieuwe kaart om nu tussen de te dupliceren kaart en al aangemaakte kaart... snap je hem nog?

 

[Haije]

spaarie,

deze regel zorgt dat de copie achteraan gezet wordt:

Sheets("Naam Medewerker").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

jij hebt nu:

 Sheets("Naam Medewerker").Copy After:=Sheets(2)

 

[sylvester-ponte]

hallo verander:

Sheets("Naam Medewerker").Copy After:=Sheets(2)

in

Sheets("Naam Medewerker").Copy After:=Sheets(Sheets.Count)

 

[sylvester-ponte]

ik was alweer telaat

 

[spaarie]

Wederom hartelijk dank Haije en Sylvester-ponte!

:thumb::thumb::thumb::thumb::thumb::thumb:

 

[spaarie]

ik was alweer telaat

Dat klopt :d, maar beter laat dan nooit toch?