checkbox kopieren met macro

[zwinmi]

Hallo Forum,

Zie onderstaande (deel van) code. Ik gebruik plakken speciaal waarden/opmaak omdat ik niet wil dat de formules ook gekopieerd worden, die achter Range A2:AW2 staan. Maar in AX2 staat een checkbox, maar deze wordt niet meegekopieerd met plakken speciaal, vandaar dat ik het zo wilde oplossen:

  Sheets("DataUren").Range("A2:AW2").Copy
  Sheets("DataUren").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
Sheets("DataUren").Range("A" & Rows.Count).End(xlUp).Offset(0).PasteSpecial xlFormats
  Sheets("DataUren").Range("AX2").Copy
  Sheets("DataUren").Range("AX" & Rows.Count).End(xlUp).Offset(1).Paste

Maar dit werkt dus niet niet, hij gaat fout op de onderste regel, als AX2 geplakt moet worden. Weten jullie hoe ik dit moet oplossen?

Alvast bedankt!

Mike

 

[Hoornvan]

zwinmi,

Ik heb een ListBox op een blad gezet en met de macrorecorder de handelingen opgenomen en kwam tot dit resultaat.
Misschien een idee voor je om de macrorecorder te gebruiken.

ActiveSheet.Shapes("ListBox1").Copy

 

[zwinmi]

Hoi Wim,

bedankt voor je reactie. Maar dit is niet wat ik zoek denk ik. als ik die checkbox gewoon handmatig kopieer en plak, gaat het goed. maar deze moet dmv macro automatisch onderaan de lijst worden geplakt. en vba geeft pas een foutmelding bij de laatste regel: paste. het kopieren gaat dus wel goed...

groet mike

 

[Hoornvan]

zwinmi,

Als je dehandelingen doet die nodig zijn om te kopieren en te plakken, maakt de recoder de code.
Deze kun je dan toch aanpassen in je eigen code en eventueel inkorten.

Misschien zie ik het verkeerd.

 

[HSV]

Ik heb dit getest in eigen bestandje.
Probeer het eens om te zetten naar jouw bladen en bereiken

Sheets("Blad1").Range("A1:L1").Copy
Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Offset(0).PasteSpecial xlFormats
Sheets("Blad1").Shapes("CheckBox1").Copy
    Sheets(2).Paste Destination:=Worksheets("blad2").Range("G" & Rows.Count).End(xlUp)

 

[zwinmi]

Hallo Harry,

Met deze code werkt het wel maar excel plakt ze over elkaar, hij ziet de andere cel niet als gevuld als er een selectievakje in staat. Ik heb hem al gekoppeld met de cel waarin deze staat, maar dat werkt ook niet. Ik gebruik nu geen selectievakje meer en heb gewoon een kolom waarin een V voor akkoord wordt geplaatst. Niet echt de oplossing, maar met het selectievakje wilde het niet lukken. Misschien dat iemand later nog iets weet...

Met vriendelijke groet,

Michael

 

[HSV]

In mij testbestandje gaat het wel goed Zwinmi.

Ps. zet onderstaande regel onder Sub Macro1().
Application.ScreenUpdating = False

 

[zwinmi]

Juist Harry!

Deze gaat wel goed. Kan ik hem mooi ff aanpassen in mijn bestand. Hartelijk dank voor hulp iedere keer!

Met vriendelijke groet,

Michael