Copy maken met behulp van macro

[buckeru]

Hoi allen.

Ik heb een bestand en moet daar een kopie van opslaan, en dat gaat goed
Dank aan "warme bakker". Echter hij maakt nu allen een kopie van blad 1, en moet eigenlijk ook blad 2 opslaan.

wie heeft een (de) oplossing.

	Sheets("blad1").Copy
	    With ActiveWorkbook
	        .SaveAs Filename:="C:\Documents\" & Range("T4") & ".xls", _
	            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
	            ReadOnlyRecommended:=False, CreateBackup:=False
	        .Close
	    End With
	    Range("T4:X4").ClearContents

grtn ptr

 

[HSV]

Zo moet het goed gaan.

Sheets(Array("blad1", "Blad2")).Copy

 

[buckeru]

Thanx, het is gelukt.
Heb nog een vraagje bij deze macro, of moet ik een nieuwe aanmaken?
ik stel hem hier toch even.

op het blad wat gekopierd is, staat nog de macro knop.
kan die gewist worden voor het opslaan?

grtn ptr

 

[HSV]

Kijk eens een paar topics naar beneden.
Daar wordt een commandbutton verwijderd.
http://www.helpmij.nl/forum/showthread.php/664443-bladcode-in-excel-2000-verwijderen?daysprune=14

 

[buckeru]

ok, ik ga daar eens zoeke. en zet deze op opgelost