Auteur Topic: Kolom naar meerdere kolommen verdelen (gelezen 52751 keer)

SoftAid · « **Reactie #15 Gepost op:** 24 oktober 2019, 12:24:06 »

Hallo pitufo,

ik ga het zeker allemaal onder de loep nemen en de verbeteringen toepassen. Alvast bedankt!

SoftAid

Georgyboy · « **Reactie #16 Gepost op:** 26 oktober 2019, 08:37:10 »

Goedemorgen,

Heb een zéér drukke week gehad en zie nu al jullie bijkomende reacties, oplossingen.

Had niet verwacht dat mijn vraag zoveel positieve reacties zou krijgen,
de oplossing was al TOP !

Respect SoftAid om nog verder te gaan, blij dat deze vraag je/jullie boeit $_/-\o_$

Top forum "oplossing.be" = ook "oplossing en zelf véél meer "oplossingen" bedankt allen

Groetjes,
Georgyboy

pitufo · « **Reactie #17 Gepost op:** 26 oktober 2019, 09:39:01 »

Hallo Georgyboy,

Voor iemand die vaak zó van blijdschap overloopt doen we graag een extraatje...
Voor het geval je dit soms ook zou willen gebruiken voor veel langere lijsten heb ik daarom mijn eigen versie gebouwd, t.t.z. geïnspireerd door de versie van SoftAid.

@ SoftAid,
Iets correct werkend krijgen is en blijft de hoofdzaak, en daar was je toch in geslaagd.
Dit doet dus helemaal geen afbreuk aan jouw methode, ik benader de kwestie gewoon op een andere manier waarbij de nadruk ligt op hogere snelheid. Er zitten ook een paar nieuwigheidjes in zoals bv. de procedure niet verlaten bij foute invoer.
Dus vermits jij ook graag de dingen uitzoekt vind je er misschien nog wat tips and tricks in

Groeten,
pitufo

Georgyboy · « **Reactie #18 Gepost op:** 26 oktober 2019, 10:29:45 »

Fijne reactie Putifo

Heb de code van SoftAid al eens willen testen maar krijg "compileerfout"
Weer een bijkomende vraag

Groetjes
Georgyboy

Georgyboy · « **Reactie #19 Gepost op:** 26 oktober 2019, 11:04:37 »

Hey Putifo,

Heb je code getest, wat is dit knap werkend $_/-\o_$
Kan het zijn dat bij de sortering het laatste getal niet gesorteerd is ?
Heb een paar testen gedaan en telkens de laatste is niet gesorteerd, is muggenziften na al dit moois.

Ben met deze oplossingen meer dan geholpen en hoop dat andere er ook baat mee hebben.

Top, top, top !

SoftAid · « **Reactie #20 Gepost op:** 26 oktober 2019, 11:12:59 »

Georgyboy,

in mijn code zitten nog een aantal fouten, en andere regels zijn voor verbetering vatbaar.

Spijtig genoeg heb ik nog geen tijd gevonden om een aangepaste versie te plaatsen, maar de verbeteringen staan in de bijdrage van pitufo en RedHead, en zijn door jou gemakkelijk zelf aan te passen.

Anders zal het voor maandag zijn.

Groeten,

SoftAid

pitufo · « **Reactie #21 Gepost op:** 26 oktober 2019, 11:35:22 »

@SoftAid,

Ik had ondertussen ook al een versie gepost die... bijna

goed was (zie reactie 17)

@Georgyboy,

Neen neen dat is geen muggenziften, er werd inderdaad nog één element te weinig gesorteerd.
Als je regel 12 van de code als volgt aanpast zal het in orde zijn:
.Range("B2:B" & aantal + 1).Sort Key1:=.[B2], Header:=xlNo

Groeten,
pitufo

Georgyboy · « **Reactie #22 Gepost op:** 26 oktober 2019, 11:38:25 »

Hey SoftAid,

Geweldig hoe je begaan bent, ik had al een super oplossingen met de aangeboden formules en krijg er nu zoveel meer extra bij door jouw inzet
en de super mooie, leerrijke oplossingen van Putifo en SoftAid (Zij hebben een véél hoger niveau dan ik).

Respect, daar leer ik van en dan mede door de extra volgende oplossingen

Code: [Selecteer]

in mijn code zitten nog een aantal fouten, en andere regels zijn voor verbetering vatbaar.

Code: [Selecteer]

=SMALL($B$2:$E$26;(COLUMNS($H:H)-1)*25+ROWS($2:2))

Code: [Selecteer]

=KLEINSTE($B$2:$E$26;(KOLOMMEN($H:H)-1)*25+RIJEN($2:2))

Code: [Selecteer]

=SMALL($B$2:$E$26;(COLUMNS($H:H)-1)*25+ROWS($2:2))
Ook dank voor popipipo & Haije

Dank beste oplossing.be vrienden !
Groetjes
Georgyboy

Georgyboy · « **Reactie #23 Gepost op:** 26 oktober 2019, 11:46:00 »

Helemaal Top Putifo !

Wederom dank voor de oplossing en vooral voor info waar dit aangepast moest worden

Groetjes,
Georgyboy

JayBeeke · « **Reactie #24 Gepost op:** 28 januari 2021, 15:47:16 »

Citaat van: SoftAid op 19 oktober 2019, 20:01:11

Code: [Selecteer]
=KLEINSTE($B$2:$E$26;(KOLOMMEN($H:H)-1)*25+RIJEN($2:2))

SoftAid

Dit is me duidelijk en ook gelukt bij een eerste poging... Ik zoek nu echter een gelijkaardige oplossing om tekst vanuit een eerste kolom alfabetisch te verdelen in meerdere kolommen in plaats van waarden van klein naar groot. Ik vind de juiste formule niet. Iemand die me hierbij kan en wil helpen?

Groetjes!

Help!

Menu

Hulp bij posten

Zoeken

Recente topics