VBA meerdere bladen samenvoegen

[mooske04]

Forum-ers,

in bijgaand bestand wil ik graag blad mw1 en mw2 samenvoegen in blad totaal.
Ik kan dit dmv heel veel ALS formules wel doen, maar aangezien het originele bestand 8 mw en ong 500 regels pp beslaat, is dit nogal omslachtig. Ik zou het graag in de VBA willen hebben, zoals in het blad totaal nu handmatig is ingevuld.

Iemand practische ideeen?

 

[ExcelAmateur]

mooske04,

Dat had je hier toch ook al gevraagd?
Volgens mij was je daar tevreden mee.

 

[mooske04]

Ik kon die niet zo snel terugvinden, anders was ik daar verder gegaan...
Het probleem in die oplossing is dat de uren van alle mw in 1 kolom komen, niet de uren van mw1 in kolom mw1 enz zoals in het totaalblad is weergegeven. voor het overzicht moet ik ze gewoon in verschillende kolommen hebben....

 

[ExcelAmateur]

Als ik mij goed herinner doet die macro dat wel in dat voorbeeld.
Test het anders nog even in dat bestandje.

 

[mooske04]

heb ik inmiddels gedaan na je vorige bericht, maar het blijft helaas in 1 kolom staan.....

 

[ExcelAmateur]

Ik heb het nog even getest met je vorige vraag.
Ik heb de onderste code (van de vraag gebruikt)
Deze zet de uren van avd1 en avd2 elk in een eigen kolom.

Je moet de code die daar in staat eerst verwijderen en dan de andere code erin plaatsen.
Dus de code van wampier gebruiken, die doet het wel.

 

[mooske04]

Huh? Dat volg ik even niet.....
ik gebruik de code van wampier en zet daarna de code van de macro erin?

 

[mooske04]

Ah zo. Ik ga ermee aan het stoeien want ik moet de code even begrijpen om hem toe te voegen aan mijn (inmiddels aangepaste) bestand....
Bedankt zover!

 

[ExcelAmateur]

Hier is je vorige file.
De macro die er in zit doet dit.

Je andere file (van nu) zit anders inelkaar.

 

[ExcelAmateur]

Kijk wat je er zo van vind.
In de file staat wat uitleg.

 

[sylvester-ponte]

deze sorteert ook
Bekijk bijlage test totaal 2.xlsm

groet sylvester

 

[ExcelAmateur]

sylvester-ponte,

Die van jouw werkt beter (zonder hulpkolom) :thumb:
Ik ben maar een amateur en door proberen kwam ik tot dit resultaat.

 

[HSV]

Dit stukje is iets flexibeler.

If blad.Name <> "totaal" Then

 

[mooske04]

Luitjes,

ik heb dit even laten rusten omdat ik er nog steeds niet uitkom, maar ik ben er toch nog weer eens mee bezig geweest...
Ik blijf hangen in het feit dat ik het samenvoegen van bladen in 1 bestand wel voor elkaar krijg, maar alle bladen zijn van oirigne aparte bestanden en ik krijg het ombouwen van de macro voor het samenvoegen van de aparte bestanden niet voor elkaar.
Iemand nog een ideetje?

 

[oeldere]

hiervoor heb ik deze met de zoekfunctie gevonden.

http://www.worksheet.nl/forumexcel/afgehandelde-vragen/73134-excelbestanden-samenvoegen.html

Op de site van ron de bruin is hier ook nuttige info over te vinden.

http://www.rondebruin.nl/copy2.htm

Kijk op de site van Ron de Bruin eens bij onderstaande tekst.

Merge cells from all or some worksheets into one Master sheet