werkblad verplaatsen naar workbook

[Timmy]

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.

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

mvg

Timmy

 

[joost verdaasdo]

Hai,

Deze code opent het werkboek blad 3
Plaatst de focus terug naar werkboek Test en verplaatst de sheet blad 3 naar werkboek blad 3!

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: