• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro verpest knoppen bij kopiëren

Status
Niet open voor verdere reacties.

BramB2

Gebruiker
Lid geworden
12 feb 2009
Berichten
163
Beste,

Met excel 2007 kun je van een heel tabblad een kopie maken. Deze stappen heb ik opgenomen met een macro, zodat er een soort database gemaakt word. Deze macro werkt opzich goed, hij kopiërt alles, inclusief formules, opmaak en dergelijke(zelfs een stuk VBA!!). Maar het probleem is dat hij de knoppen en selectievakjes die erin zitten verpest. Het lijkt erop dat hier een kopie van maakt, zonder de naam en koppelingen. Ik kom er echt niet uit!
Dit is de code van de macro:

Sub rauwdata()
'
' rauwdata Macro
'

'
Sheets("Rauw menu").Select
ActiveSheet.CheckBoxes.Add(349.5, 750.75, 276, 17.25).Select
ActiveSheet.CheckBoxes.Add(746.25, 240, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 375, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 525, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 750, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 937.5, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 1164.75, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 1352.25, 95.25, 24.75).Select
ActiveSheet.CheckBoxes.Add(746.25, 1515.75, 95.25, 24.75).Select
ActiveSheet.Buttons.Add(33.75, 5.25, 99.75, 28.5).Select
ActiveSheet.Buttons.Add(157.5, 5.25, 113.25, 28.5).Select
ActiveSheet.Buttons.Add(289.5, 5.25, 112.5, 29.25).Select
ActiveSheet.Buttons.Add(423.75, 5.25, 99.75, 29.25).Select
ActiveSheet.Buttons.Add(421.5, 115.5, 117.75, 42.75).Select
ActiveSheet.CheckBoxes.Add(348, 582, 291.75, 17.25).Select
Sheets("Rauw menu").Copy After:=Sheets(53)
Range("C10").Select
End Sub


Alvast bedankt..!


Edit:
Ik heb ontdekt dat hij nog een knop over de huidige knop plakt.. hoe kan dit?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan