Wouter00000
Gebruiker
- Lid geworden
- 13 mrt 2018
- Berichten
- 5
Hallo allemaal,
Ik heb onderstaande formule gebouwd. Nu zijn er bepaalde cellen alleen groter. Wat moet ik toevoegen om het format te behouden?
Sub Download_Excel_Export()
Dim a As Range, rng As Range
Dim wb As Workbook
Set rng = Range("A2:J156")
Set wb = Workbooks.Add(xlWBATWorksheet)
For Each a In rng.SpecialCells(xlCellTypeVisible).Areas
a.Copy
With wb.ActiveSheet.Range(a(1).Address)
.PasteSpecial xlPasteValuesAndNumberFormats
.PasteSpecial xlPasteFormats
End With
Next a
Application.CutCopyMode = True
End Sub
Ik heb onderstaande formule gebouwd. Nu zijn er bepaalde cellen alleen groter. Wat moet ik toevoegen om het format te behouden?
Sub Download_Excel_Export()
Dim a As Range, rng As Range
Dim wb As Workbook
Set rng = Range("A2:J156")
Set wb = Workbooks.Add(xlWBATWorksheet)
For Each a In rng.SpecialCells(xlCellTypeVisible).Areas
a.Copy
With wb.ActiveSheet.Range(a(1).Address)
.PasteSpecial xlPasteValuesAndNumberFormats
.PasteSpecial xlPasteFormats
End With
Next a
Application.CutCopyMode = True
End Sub