Werkblad opslaan in nieuw bestand met macro

[bioman]

Beste,

ik ben al zover geraakt dat bij het klikken op de knop bestelbon enkele gegevens in de lijst op het 1e werkblad geplaatst worden. Nu zo ik nog willen dat het hele werkblad formulieren opgeslagen wordt in een apart bestand met de naam van de bestelbon en dat dan de gegevens van de bestelbon in het bronbestand gewist worden. Dit nieuwe bestand mag opgeslagen worden in dezelfde map als het bronbestand.

Kan iemand mij hierbij helpen

 

[Breuk132]

Hi,

Probeer het hier eens mee.

Sub Kopie_opslaan()

ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\" & Cells(3, 8) & ".xls"

Range("d13:h21").Clearcontents
Range("d24:h33").Clearcontents
Range("d36:d39").Clearcontents
Range("d41:d43").Clearcontents
Range("g36:g39").Clearcontents
Range("g41:g43").Clearcontents

End Sub

 

[snb]

sub vervolg()
   ThisWorkbook.sheets("formulier") copy
   With Activeworkbook
      .Saveas replace(Thisworkbook.fullname,".xls"," 000.xls")
      .close False
   End Sub
  
  Thisworkbook.sheets("formulier").Range("d13:h21,d24:h33,d36:d39,d41:d43,g36:g39,g41:g43").Clearcontents
End Sub