code copy - plak inclusief opmaak cellen

[sis123]

Hallo,

ik refereer eventjes terug naar onderwerp
http://www.helpmij.nl/forum/showthread.php?p=1744294#post1744294

de code om een selectie te filteren en te copiëren werkt, maar om volledig te zijn zou hij de opmaak ook moeten overbrengen (lettertype, datum, ...)

 

[Chielio]

geloof dat het tegen de huisregels is dit soort topics te starten

 

[sis123]

Verontschuldiging als ik iets mis deed.
Bedoel je dat de verwijzing naar een afgesloten onderwerp niet mag ?

 

[Wigi]

Test dit eens uit aub.

Sub kopieren()
Dim i As Integer, l As Long, lastrow As Long, m As Long
lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
m = 0
ActiveSheet.Range("A1:Z1").AutoFilter field:=8, Criteria1:="x"
For l = 3 To lastrow
    If Rows(l).Hidden = False Then
        m = m + 1
        Range("A" & l, Cells(l, Range("IV5").End(xlToLeft).Column)).Copy Sheets("Blad3").Cells(m, 1)
    End If
Next
ActiveSheet.ShowAllData
End Sub

Wigi

 

[Chielio]

Maar waarom sluit je hem af als je nog vragen hebt ?

Maar dan is dit volgens mij niet tegen de regels excuus hiervoor

 

[Wigi]

Maar waarom sluit je hem af als je nog vragen hebt ?

Maar dan is dit volgens mij niet tegen de regels excuus hiervoor

Sis123 kan niet weten of alles opgelost is of niet. Laat de mods maar oordelen. Voor mij kan het.

 

[m@rio]

Dat een topic op opgelost wordt gezet wil niet zeggen dat er niet meer gepost kan worden. Pas als er een slotje op komt kan er niet meer in gepost worden. Dat gebeurt met dit topic.

Er kan in het ander topic verder gegaan worden