Tabbladen naar een nieuwe werkmap kopieren

[dominiekO]

Hallo iedereen,

Ik zit met een werkmap waarvan als ik verschillende gegevens verander, ik 3 tabbladen wil kopiëren naar een nieuw bestand, verander ik wat gegevens moet ik terug dezelfde drie tabbladen naar een nieuw bestand kopiëren.

Ik zou dit graag macrogewijs doen, maar ik geraak er niet uit.

Ik heb een deel van de macro hieronder gezet, de macro loopt natuurlijk vast als ik een tweede keer wil kopiëren bij "Windows("Map1").Activate", want map 1 is al weg en map 2 staat daar dan.

Workbooks.Add
Windows("offertetest2.xls").Activate
Sheets("Offerte voorblad").Select
Cells.Select
Selection.Copy
Windows("Map1").Activate

Iemand een voorstel?

Groeten Dominiek

 

[snb]

sub kopie()
  sheets.copy
  With activeworkbook
    .SaveAs  "C:\nieuw_0" & createobject("scripting.filesystemobject").getfolder("C:\").files.count & ".xls"
    .close
  End With
End Sub

 

[dominiekO]

Beste snb,

Werkt perfect als ik de volledige werkmap wil kopiëren.

Wat moet ik veranderen als ik bv maar blad 2,3 en 6 moet hebben. Ik heb hier al vanalles geprobeerd, maar het lukt me niet