@ SoftAid,
Da's inderdaad vreemd dat hij MP75 wel neemt (ik had het ook niet volledig uitgespit) : ik stelde het vast bij "gaskraan" en bij "hoekstopkraan". En als ik de 'tabel' op een ander tabblad plak werkt het daar wel goed mits ik er minimaal 2 woorden van maak. Bizar...
Toch nog eens gekeken, en ik vind in de bijlagen een originele en een gewijzigde code van snb, een eerste met
sn = Filter([transpose(if(b2:b402="","",trim(f2:f402)&"_"&d2:d402))], "_")
en de volgende met
sn = Filter([transpose(if(b2:b402="","",trim(f2:f402)& " ~" &"_"&d2:d402))], "_")
Die tweede lost het 'spatieprobleem' op.
@ tonnie,
Mogen we misschien ook weten waarom een draaitabel geen optie is ?
Maar als je toch op deze manier verder wil ben ik bereid mee te spelen. Alleen zie ik inderdaad niet goed wat je wil.
Mocht het zo zijn dat je gewoon het resultaat vanaf rij 21 wil krijgen dan moet je in de laatste regel
Range("H2").Resize(i, 4).Value = Application.Index(a, 0, 0)
enkel H2 vervangen door H21 zou ik zo denken (alle code die daaraan voorafgaat doet immers niets op je werkblad).
Anders moet je nog maar een extra uitlegpoging wagen... (of een manueel gemaakte oplossing meesturen die aan je eisen voldoet)