Cel-opmaak meekopieren ( macro )

[caresquare]

Hallo iedereen,

zou iemand mij kunnen vertellen hoe ik de opmaak van een cel mee-kopier met de code die ik heb.
​

Private Sub CommandButton2_Click()
Sheets("Offerte").Range("A28:B" & Sheets("Offerte").Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    For Each cl In Sheets("Producten").Range("C3:C" & Sheets("Producten").Cells(Rows.Count, 1).End(xlUp).Row)
        If cl = 1 Then [offerte!A65536].End(xlUp).Offset(1).Resize(, 2) = _
                            cl.Offset(, -2).Resize(, 2).Value
    Next
End Sub

dit is m'n code ( door warme bakkertje geschreven ,

nu verzet hij de inhoud van de aangeduide cellen, maar als ik ook de opmaak van de cel wil meekopieren, hoe doe ik dit?

Ik vond dit op internet:

.PasteSpecial xlPasteFormats

maar waar zou ik dit moeten plaatsen? En is dit het juiste?

Hier een oplage van het bestand als je het niet begrijpt: Bekijk bijlage OfferteSysteem2.xls

Bedankt iedereen!

Ps: dit forum is geweldig, ik leer zoveel ( of zo veel? ) bij ! ​

 

[HierEnNu]

Zoiets?

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False

Sheets("Offerte").Range("A28:B" & Sheets("Offerte").Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    For Each cl In Sheets("Producten").Range("C3:C" & Sheets("Producten").Cells(Rows.Count, 1).End(xlUp).Row)
        If cl = 1 Then Range(cl.Offset(, -2), cl.Offset(, -1)).Copy
        [offerte!A65536].End(xlUp).Offset(1).PasteSpecial xlPasteAll
    Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[Warme bakkertje]

Zie je vorige vraag waar je hetzelfde vraagt en waar ik je mijn antwoord heb gegeven.
Gaat het niet snel genoeg soms

 

[caresquare]

Zie je vorige vraag waar je hetzelfde vraagt en waar ik je mijn antwoord heb gegeven.
Gaat het niet snel genoeg soms

Sorry rudi ;s
Ik wordt hier nogal gepushed om het te vragen :s

Ik zal jullie forum niet meer lastig vallen

 

[oeldere]

mag ik eens vragen, door wie je wordt gepushd?

als je bij dezelfde vraag blijft is het voor iedereen duidelijker.

tevens kun je dan ook zien wat de medeforumleden al hebben geantwoord.

 

[caresquare]

mag ik eens vragen, door wie je wordt gepushd?

als je bij dezelfde vraag blijft is het voor iedereen duidelijker.

tevens kun je dan ook zien wat de medeforumleden al hebben geantwoord.

Door mijn stage die zegt dat ik deze opdracht vlug moet afwerken, ik heb hem net ingedient, en hij kon geen fouten vinden! Bedankt iedereen echt waar! Vooral Bakkertje

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost