range kopieren naar nieuwe excel bestand inclusief gegevens en kolombreedte en opmaak

[huppelpaard]

ik ben aan het proberen om een range te kopieren uit mijn sheet naar een nieuwe aan te maken excel file
alleen lukt het mij niet om zowel gegevens als kolombreedte en opmaak te kopieren/plakken
(datums worden nu getallen bijvoorbeeld ipv datum)

formules mogen niet gekopieerd worden. nu ben ik aan het googlen geweest hoe .pastspecial werkt maar het lukt mij nog steeds niet om meerdere voorwaarden toe te voegen

de code hieronder is een code die ik gevonden heb die nog aangepast moet worden naar mijn wensen
- 1 vaste naam voor nieuwe excel file bijv c:\test\test123.xlsx

Sub SaveValuesOnly()
Dim wsCopy As Worksheet, wsPaste As Worksheet
Dim wb As Workbook
Dim sFileName As String, sPath As String


    'Path to store new file
    sPath = "C:\Test\"
    'Change filename as required
    sFileName = "Expenses " & Format(Range("E1"), "Mmm yy")
    
    'set the sheet you are copying. Change where neccessary
    Set wsCopy = ThisWorkbook.Worksheets("Template")
    Set wb = Workbooks.Add
    Set wsPaste = wb.Sheets(1)
    
    'Copy everything from copy sheet
    wsCopy.Range("a1:m22").Copy
    'Paste Values only
    
    
    wsPaste.Range("a1:m22").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
   
    Application.CutCopyMode = False
     
    'delete first row
    wsPaste.Rows(1).Delete
    
    'Save new workbook
    
    wsPaste.Name = "Expenses" 'Change if needed
    wb.SaveAs FileName:=sPath & sFileName, FileFormat:=xlOpenXMLWorkbook
    
End Sub

weet iemand de oplossing?

 

[edmoor]

weet iemand de oplossing?

Dat komt vast in orde als je een vorbeeld document plaatst.

 

[huppelpaard]

bij deze een voorbeeld bestand macro staat erin. heb geen knop erin gezet ervoor -)

 

[emields]

ik begrijp niet de helft van uw vraag maar misschien kan je hier iets mee

 

[huppelpaard]

dank je wel voor de aanvulling wat ik wil bereiken is dat sheet template gekopierd word naar een nieuwe excel file in de map c:\test\test.xlsx
deze bestandsnaam blijft altijd hetzelfde en hoeft niet veranderd te worden

ik heb je bijlage bekeken en het is bijna wat ik bedoel sorry voor mijn kromme uitleg
nu word alles gekopieerd naar blad 2 een perfecte kopie echter kan je dit ook naar een nieuwe file kopieren? "c:\test\test.xlsx"

 

[VenA]

Opslaan als en sluiten

Sub VenA()
  Sheets("Template").Copy
  With ActiveWorkbook
    .SaveAs "C:\test\test.xlsx", 51
    .Close 0
  End With
End Sub

 

[huppelpaard]

dank jullie wel voor de hulp mijn vraag is opgelost