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?
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: