Excel werkblad automatisch kopieren naar ander

[Marthy Mc Fly]

Ik ben volledig nieuw in deze materie. Vandaar dat alle hulp welkom is. Ik wil nl. het volgende bereiken.
Ik heb twee verschillende xls bestanden. Via een btn in sheet 1 van bestand A.xls, wil ik een sheet 1 van bestand B.xls automatsch kopieren en plaatsen achter sheet 1 van bestand A.xls. Deze moet dan ook de melding geven als bestand gekopieert is.
Wie is zo goed om mij hiermee te helpen.

 

[Bakk4318]

Je kan toch een macro opnemen en deze aan de knop hangen. Je krijgt dan zoiets:

Sub Kopieren()
'
' Kopieren Macro
' De macro is opgenomen op 2-12-2010 door ........
'
    Cells.Select
    Selection.Copy
    Windows("B.xls").Activate
    ActiveSheet.Paste
End Sub

 

[Marthy Mc Fly]

Hier wordt toch niet vermeld dat dat bestand B.xls gekopieerd moet worden achter het werkblad (sheet 1) van bestand A.xls. Want dit is van groot belang voor mijn eerste bestand.

 

[Bakk4318]

Met deze code kopieer je de inhoud van een sheet in A.xls naar een sheet in B.xls. Hierbij zijn beide bestanden geopend. Ik heb gewoon een macro opgenomen. Neem anders zelf een macro op.

 

[wampier]

Een voorbeeld is altijd handig.

Een topic dat ik in het verleden al eens heb gezien:

http://www.helpmij.nl/forum/showthr...anaf-gesloten-bestand-dat-op-een-server-staat

indien je altijd wil copieren na de laatste sheet kun je de after:= statement als volgt aanpassen:

remote.Sheets.Copy After:=huidig.Worksheets(huidig.Sheets.Count)

dit kopieert alle sheets van het tweede bestand achter de laatste sheet van het eerste bestand

Indien je alleen sheet1 wil copieeren (even uit het hoofd):

remote.Sheets("Sheet1").Copy After:=huidig.Worksheets(huidig.Sheets.Count)

 

[Marthy Mc Fly]

Ik heb zelf de volgende macro toegepast:

Code:
Sub Afgeronderechthoek1_Klikken()
'
' Afgeronderechthoek1_Klikken Macro
'

'
Sheets("sheet 2").Select
ActiveWindow.SelectedSheets.Delete
Windows("B.xls").Activate
Sheets("sheet 2").Move After:=Workbooks( _
"A.xls").Sheets(1)
Sheets("sheet 1").Select
End Sub

Maar deze geeft foutcode 9

 

[wampier]

als je die spaties in je code hebt staan ligt het waarschijnlijk daar aan sheet1

 

[HSV]

Misschien door zoiets?
Bestand B.xls wordt geopend, Blad2 wordt gekopiëerd naar bestand A.xls, B.xls wordt weer gesloten.

Sub Afgeronderechthoek1_Klikken()
' Afgeronderechthoek1_Klikken Macro
Workbooks.Open ("D:\Excel Tips\B.xls") 'de plaats van je bestand aanpassen
   Sheets("Blad2").Copy After:=Workbooks("A.xls").Sheets(1)
  Sheets("Blad1").Activate
 Workbooks("B.xls").Close
End Sub

 

[Marthy Mc Fly]

Deze werkt perfect HSV. Bedankt allemaal voor de hulp en tot wederdienst.

Misschien door zoiets?
Bestand B.xls wordt geopend, Blad2 wordt gekopiëerd naar bestand A.xls, B.xls wordt weer gesloten.

Sub Afgeronderechthoek1_Klikken()
' Afgeronderechthoek1_Klikken Macro
Workbooks.Open ("D:\Excel Tips\B.xls") 'de plaats van je bestand aanpassen
   Sheets("Blad2").Copy After:=Workbooks("A.xls").Sheets(1)
  Sheets("Blad1").Activate
 Workbooks("B.xls").Close
End Sub

 

[HSV]

Graag gedaan,

Je andere vraag was een melding.

Voeg dan regel tussen de bovenste en onderste in de code.

Sheets("Blad1").Activate
MsgBox "Blad2 van bestand B.xls is gekopiëerd achter Blad1 !!", , "Ter info" 
Workbooks("B.xls").Close