Sheet Kopiëren

[recius]

Beste mensen,

Ik heb een macro waarme ik dmv een knop een sheet kan kopiëren, deze wordt uiteraard in het huidige excel bestand gekopieerd, maar ik wil graag dat de sheet naar een ander excel bestand wordt gekopieerd. Is dit mogelijk?

Ik gebruik nu de onderstaande macro:

Sub nieuwe_week()

Sheets("orgineel").Select
Sheets("orgineel").Copy after:=Sheets(1)

On Error Resume Next
i = Len(Sheets([origineel!H1]).Name) = 0

Sheets("orgineel (2)").Name = Range("H1")

If Err.Number <> 0 Then

Worksheets("origineel").Copy after:=Sheets(3)
Sheets(4).Name = [origineel!H1]
End If

Range("H1").Copy
Range("H1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("orgineel").Select
End Sub

Alvast bedankt! :thumb:

 

[Roncancio]

Jazeker.
Als je de naam van het andere blad ervoor zet.

Bijv.:

Worksheets("origineel").Copy after:=Workbooks("AnderBestand").Sheets(3)

Het bestand moet dan wel openstaan.

Ik denk overigens niet dat je macro werkt.
In de code komt zowel origineel als orgineel voor.
Dat lijkt mij niet in orde.
Afgezien van de .Select die ook in de code staat.

Met vriendelijke groet,


Roncancio

 

[recius]

Roncancio,

thnx de sheet wordt nu iig naar het andere xsl bestand gekopieerd maar nu heb ik het volgende probleem. De Sheet waar de knop in staat heet "orgineel" in de sheet moet je een ordernummer invoeren (in H1) zodat de sheet die je kopieerd naar het andere bestand de naam krijgt van het ingevoerde ordernummer. Als ik nu op de knop klik komen er 2 gekopieerde sheets te staan.. de een met de naam "Orgineel" en de ander met het ordernummer dat ik heb ingevuld in H1. Ik wil het graag zo hebben dat alleen de sheet met het ordernummer er komt te staan.

Ik heb de volgende macro:

Sub nieuwe_week()

Sheets("orgineel").Copy after:=Workbooks("Worksheet").Sheets(2)

Worksheets("orgineel").Copy after:=Workbooks("Worksheet").Sheets(1)
Sheets(4).Name = [orgineel!H1]

Range("H1").Copy
Range("H1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Gr, recius

 

[snb]

Sub nieuwe_week()
   Thisworkbook.Sheets("orgineel").Copy ,Workbooks("Worksheet").Sheets(2)
   With Workbooks("Worksheet")
     .Sheets(.sheets.count).Name = Thisworkbook.sheets("orgineel").range("H1")
   End with
End Sub

PS. ik hoop dat je dit goed kopieert

 

[recius]

Hij kopieerde nogsteeds 2 sheets maar heb nu t volgende gebruikt:

Sub nieuwe_week()

Sheets("orgineel").Copy after:=Workbooks("Worksheet").Sheets(2)
Sheets(3).Name = ThisWorkbook.Sheets("orgineel").Range("H1")

End Sub

en nu doet ie het Bedankt voor de hulp! :thumb:

ps ik heb t goed gekopieert