Kopieeren via VBA

[Atwist]

Hallo,

Heeft iemand een idee hoe je met onderstaande code de exakte kopie kan maken van een sheet.
Dus cel eigenschappen en dat soort dingen.

 Sheets("lijst").Select
Range("A1:I44").Copy

    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:=FullFileName & "-" & i & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

 

[zapatr]

Een exacte kopie maken van een blad kan met vba eenvoudig op deze manier
(voorbeeld voor het kopiëren van blad1):

Sub Macro1()
Sheets("Blad1").Copy After:=Sheets("Blad1")
End Sub

 

[Atwist]

Zapatr,

Dank voor je reactie.

heb jij misschien enig idee hoe ik deze in mijn code invoegen wand ik moet de rest van de code zoals het opslaan met naam enz.

 

[zapatr]

heb jij misschien enig idee hoe ik deze in mijn code invoegen wand ik moet de rest van de code zoals het opslaan met naam enz.

Wil je alleen het blad dat je gekopieerd hebt als nieuw bestand opslaan?
Of wil je het bestand waarin je aan het werken bent (waarin dus na het kopiëren 1 blad dubbel voorkomt) onder een nieuwe naam opslaan?

 

[Atwist]

Ik wil het graag als een nieuw bestand opslaan, vandaar ook de uitgebreide code.

 

[Warme bakkertje]

Sheets("lijst").Copy
 ActiveWorkbook.SaveAs Filename:=FullFileName & "-" & i & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
  ActiveWindow.Close

 

[Atwist]

Rudi,

Dank je wel, dit werk perfect.
Het was simpeler dan ik dacht.