4 werkbladen kopieren naar ander excel bestand
Rob
namen, te bewerken.
Dat bewerken wil ik doen in een aparte sheet,maar daarvoor is het
nodig dat ik 4 bladen vanuit de file ik per mail ontvang, naar het te
bewerken bestand kopieer.
Dat kan handmatig maar het mooiste zou zijn via een macro of vba.
In het bestand wat ik per email ontvang daar zit de macro niet in, en
dat is ook geen optie. Is het mogelijk om met vba en/of een macro buiten
de file die ik ontvang, iets te maken waarmee ik de 4 sheets naar de
te bewerken excel file kan kopieeren?
De 4 te kopieren sheets hebben telkens dezelfde naam.
Zou dat moeten kunnen met een macro, maar waar moet ik deze dan
opslaan(persoonlijke werkmap?)
--
Met vriendelijke groet,
Rob
Peter
Sub HaalBladenOp()
Dim Bestandsnaam As Variant, NaamDitBestand As String
NaamDitBestand = ActiveWorkbook.Name
Bestandsnaam = "Testmap.xlsx"
Workbooks(Bestandsnaam).Sheets(Array("Blad1", "Blad2", "Blad3",
"Blad4")).Copy 'before:=Workbooks(NaamDitBestand).ActiveSheet
'als je de commentaar appastroof weghaalt komen de bladen in het active
bestand
'anders wordt een nieuwe werkmap aangemaakt
End Sub
De macro staat in 'n geopend bestand
"Testmap.xlsx" wordt de naam van je (per e-mail) toegestuurde bestand
Blad1", "Blad2", "Blad3", "Blad4" zullen de correcte namen moeten worden
Groet,
Peter
"Rob" <R...@nottinsue.com> schreef in bericht
news:957205914.20...@nottinsue.com...
Rob
> Hier een VBA routine:
> Sub HaalBladenOp()
> Dim Bestandsnaam As Variant, NaamDitBestand As String
> NaamDitBestand = ActiveWorkbook.Name
> Bestandsnaam = "Testmap.xlsx"
> Workbooks(Bestandsnaam).Sheets(Array("Blad1", "Blad2", "Blad3",
> "Blad4")).Copy 'before:=Workbooks(NaamDitBestand).ActiveSheet
> 'als je de commentaar appastroof weghaalt komen de bladen in het active
> bestand
> 'anders wordt een nieuwe werkmap aangemaakt
> End Sub
> De macro staat in 'n geopend bestand
> "Testmap.xlsx" wordt de naam van je (per e-mail) toegestuurde bestand
> Blad1", "Blad2", "Blad3", "Blad4" zullen de correcte namen moeten worden
> Groet,
> Peter
Ok, ik heb het zelf nu via een macro gedaan, die de eerste 4 bladen
selecteert en deze kopieert naar de basis sheet zeg maar, die ik
verder wil bewerken. Die macro komt dan in mijn persoonlijke werkmap
te staan, zodat ik deze ook kan starten wanneer ik het bestand open
wat ik via email ontvang:
Sheets(Array("project1", "project 2", "project 3", "project 4")).Select
Sheets("project 3").Activate
Sheets(Array("project1", "project 2", "project 3", "project 4")).Copy Before:= _
Workbooks("BasisSheet.xls").Sheets(1)
Columns("Y:Y").Select
Selection.EntireColumn.Hidden = True
Sheets("BasisSheet").Activate
De BasisSheet is de uiteindelijke file die bewerkt wordt.
De macro start vanuit het bestand wat ik per email ontvang.
Ik hou me uiteraard aanbevolen voor nadelen van mijn werkwijze:-)
|Rob
> "Rob" <R...@nottinsue.com> schreef in bericht
> news:957205914.20...@nottinsue.com...
> Ik dien excel sheets die ik ontvang per email, met telkens andere
> namen, te bewerken.
> Dat bewerken wil ik doen in een aparte sheet,maar daarvoor is het
> nodig dat ik 4 bladen vanuit de file ik per mail ontvang, naar het te
> bewerken bestand kopieer.
> Dat kan handmatig maar het mooiste zou zijn via een macro of vba.
> In het bestand wat ik per email ontvang daar zit de macro niet in, en
> dat is ook geen optie. Is het mogelijk om met vba en/of een macro buiten
> de file die ik ontvang, iets te maken waarmee ik de 4 sheets naar de
> te bewerken excel file kan kopieeren?
> De 4 te kopieren sheets hebben telkens dezelfde naam.
> Zou dat moeten kunnen met een macro, maar waar moet ik deze dan
> opslaan(persoonlijke werkmap?)
-----------
Rob