werkblad verplaatsen naar workbook

Status
Niet open voor verdere reacties.

Timmy

Gebruiker
Lid geworden
4 apr 2005
Berichten
17
Hallo VBA kenners


Ik heb in het bestand gegevens.xls verschillende tabbladen zoals blad1, blad2, blad3
nu is het de bedoeling om blad drie te kopieren of te verplaatsen naar een map blad3.xls met tabblad blad3
en dit met VBA die ik dan achter een formulier knop kan toewijzen. :o

Had gedacht met workbooks en dan de naam van de sheet als bestandsnaam :confused:

mvg

Timmy
 
Hai, :D

Deze code opent het werkboek blad 3
Plaatst de focus terug naar werkboek Test en verplaatst de sheet blad 3 naar werkboek blad 3!
Code:
Sub ShiftSheetToBook()
Dim sPath   As String
Dim sBook   As String

 sPath = ThisWorkbook.Path & Application.PathSeparator
 sBook = "Blad3.xls"
 
 Workbooks.Open (sPath & sBook)
 Workbooks("Test.xls").Activate
 
    Sheets("Blad3").Select
    Sheets("Blad3").Move After:=Workbooks("Blad3.xls").Sheets(3)
End Sub
Zie bijlage voor een voorbeeld. Open bestand test en druk op de knop om uit te voeren.

See Yah! :thumb:
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan