[Excel] voorwaardelijke merging tussen worksheets

[Wim.Vanmaele]

Allen,
ik heb hier een hoofdbreker waar ik niet aan uit kom.
1) stel ik heb diverse worksheets met op iedere sheet data die dezelfde structuur hebben
2) Per worksheets zijn er diverse rijen, maar niet overal evenveel.
Vraag:
Hoe kan ik nu een nieuwe worksheet maken waar ik kan bepalen van welke worksheets ik rijen wil kopiëren (dus variabel in naam en aantal)
Hierbij wil ik slechts die rijen waar data in staan, met de veronderstelling dat er GEEN lege rijen tussen de datatabel staan
Iemand een idee ?
Leuk zou zijn, mocht ik dan ook nog eens een voorwaardelijke (ook dynamisch) kunnen plaatsen van die rijen die echt in aanmerking komen voor die kopie naar dat nieuwe worksheet ?
thx

[Dany_]

Re: [Excel] voorwaardelijke merging tussen worksheets

Ik denk dat je dit enkel kan bereiken met VBA...

Edit : heb snel iets in elkaar geflanst

SheetN = InputBox("Welke sheet?")
Sheets("Result").Select
' Volgende lijnen terug activeren om iedere keer een lege sheet te hebben
' Cells.Select
' Selection.Clear
' Volgende lijn is nodig om de nieuwe data onder de bestaande te plakken. (append)
Range("A" & Range("A1").End(xlDown).Row + 1).Select

Sheets(SheetN).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Result").Select
ActiveSheet.Paste
Range("A1").Select

Sheet Result : hier komt alles samen.
Bij het starten vraagt het systeem een naam van een sheet te geven (er wordt niet op getest, dus deze sheet moet bestaan, anders : foutmelding).

[Wim.Vanmaele]

Re: [Excel] voorwaardelijke merging tussen worksheets

Grat vergeten dat je inderdaad ook VBA kan gebruiken.
Yhx voor de tip en de basis van het scriptje. Ik zal er een dialogsheet in plaatsen zodat ik dan kan opgeven hoeveel sheets ik wil mergen en ...