meerder losse kollomen kiezen in VBA

[lakizali]

beste,

ik maak gebruik van onderstaande code om mn gegevens naar een lege excel te exporteren, nu zijn er drie kollomen die niet mee moeten, hoe zorg ik er voor dat excel alleen dit bereik mee neemt: "A1:X3000,AA1:AA3000,AC1:AD3000"?

Const SourceSheetName As String = "Besteladvies"
Const SourceRange As String = ("A1:X3000,AA1:AA3000,AC1:AD3000")

Sub CopyRangeToNewWorkbook()
  Dim Oldbook As Workbook, NewBook As Workbook, Path As String

  Path = ActiveWorkbook.Path & Application.PathSeparator
  Set Oldbook = ThisWorkbook
  Set NewBook = Workbooks.Add
  Oldbook.Sheets(SourceSheetName).Range(SourceRange).Copy
  NewBook.Sheets(1).Range(SourceRange).PasteSpecial xlValues
 BestandsNaam = Application.GetSaveAsFilename

End Sub

alvast bedankt

 

[lakizali]

""

 

[lakizali]

even de vraag aangepast. kan iemand mij hier mee helpen?

dank u

 

[Roncancio]

Const SourceSheetName As String = "Besteladvies"

Sub CopyRangeToNewWorkbook()
  Dim Oldbook As Workbook, NewBook As Workbook, Path As String

  Path = ActiveWorkbook.Path & Application.PathSeparator
  Set Oldbook = ThisWorkbook
  Set NewBook = Workbooks.Add
    With Oldbook.Sheets(SourceSheetName)
        Application.Union(.Range("A1:X3000"), .Range("AA1:AA3000"), .Range("AC1:AD3000")).Copy
    End With
  NewBook.Sheets(1).Range("A1").PasteSpecial xlValues
 BestandsNaam = Application.GetSaveAsFilename

End Sub

Met vriendelijke groet,


Roncancio

 

[lakizali]

dankje

 

[Roncancio]

Graag gedaan.
Gaarne nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio