Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

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

0 leden en 2 gasten bekijken dit topic.

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Kolom naar meerdere kolommen verdelen
« Gepost op: 19 oktober 2019, 11:19:35 »
Goede middag,

misschien een domme vraag?
Hoe kunnen we 1 kolom naar meerdere kolommen verdelen?

In voorbeeld:
Tabblad : 1 kolom
Tabblad : Gewenst (meerdere kolommen)

Alvast bedankt
Groeten Georgyboy

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Kolom naar meerdere kolommen verdelen
« Reactie #1 Gepost op: 19 oktober 2019, 13:31:35 »
gaat het altijd om 100 regels die over 4 kolommen moeten worden verdeeld?
Of kan het ook 90 regels over 3 kolommen worden.
Of 100 over 5 kolommen
of....
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Kolom naar meerdere kolommen verdelen
« Reactie #2 Gepost op: 19 oktober 2019, 16:14:08 »
Hallo Haije,

Hier is het 4 x 25, maar inderdaad het zou ook willekeurig kunnen zijn zoals je aangeeft.

In 1 kolom kunnen we sorteren van hoog naar laag of omgekeerd, vermoed met meerdere kolommen dat dit moeilijker is.
stel de hoogste waarden in de linkse kolom en de kleinste in de laatste kolom rechts helemaal onderaan.

Alvast bedankt !

groetjes
Georgyboy

Online popipipo

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 316
Re: Kolom naar meerdere kolommen verdelen
« Reactie #3 Gepost op: 19 oktober 2019, 18:08:56 »
Maak een nieuwe tabel van H2:K26

Zet in h2 de volgende formule (evt vertalen naar nl) en trek deze door naar rechts en beneden.

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

Pas het getal 25 aan voor evt langer of kortere rijen
Willem
Hoe meer je weet hoe meer je vergeet.
Hoe meer je vergeet hoe minder je weet.
Hoe minder je weet hoe minder je vergeet.
Hoe minder je vergeet hoe meer je weet.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Kolom naar meerdere kolommen verdelen
« Reactie #4 Gepost op: 19 oktober 2019, 20:01:11 »
evt vertalen naar NL
=KLEINSTE($B$2:$E$26;(KOLOMMEN($H:H)-1)*25+RIJEN($2:2))

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Kolom naar meerdere kolommen verdelen
« Reactie #5 Gepost op: 20 oktober 2019, 11:52:44 »
Hallo,

Zoals ik het zie zal de formule van popipipo enkel voor het sorteren zorgen van een reeds in kolommen verdeelde tabel, maar was de vraag om te starten vanuit één kolom.
Tevens was de wens om van groot naar klein te sorteren.
Dus moet m.i. de formule worden:
=GROOTSTE($B$2:$B$101;(KOLOMMEN($H:H)-1)*25+RIJEN($2:2))

Georgyboy,
wel opletten om de formule exact naar 25 rijen door te trekken, anders krijg je ofwel niet alle resultaten ofwel sommige dubbel.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Ervaren lid
  • ***
  • Berichten: 314
  • Geslacht: Man
  • Oplossing.be
Re: Kolom naar meerdere kolommen verdelen
« Reactie #6 Gepost op: 20 oktober 2019, 18:33:02 »
Bedankt voor de geboden oplossingen :)

Werkt Top !

Heb van jullie weer bij geleerd  _/-\o_

Groetjes,
Georgyboy

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Kolom naar meerdere kolommen verdelen
« Reactie #7 Gepost op: 20 oktober 2019, 19:11:34 »
Hallo Georgyboy,

ik heb nog een variant gemaakt met VBA. Je kan daar meer mee spelen dan met formules in het werkblad.
Zo kunnen er ook geen formules verloren gaan.
Let op! In de kolom A van beide werkbladen zitten nog formules, maar die dienen enkel om het nummer in de kolom A te tonen. Dit kan eveneens in het VBA opgenomen worden.

Het was voor mij ook weer eens een interessante oefening  :)

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Kolom naar meerdere kolommen verdelen
« Reactie #8 Gepost op: 21 oktober 2019, 22:00:24 »
SoftAid, nog ff je "Exit Sub" bóven de "ErrorHandler" plaatsen. Dan voorkom je dat die MSGBOX altijd wordt getoond ipv alleen bij een error.  ;)
______________________________

Groet, Leo

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Kolom naar meerdere kolommen verdelen
« Reactie #9 Gepost op: 21 oktober 2019, 22:08:15 »
Hallo Leo,

Dank voor de correctie. Dit stukje code heeft mij een hele dag gekost, wat ik er graag voor over heb.
Kwestie dat ik mijn (nu erg) grijze cellen bezig kan houden.
Leren doe ik niet meer, maar door dergelijke code proberen te schrijven vergeet ik net iets minder dan vroeger ;D

Ik pas de code dadelijk aan.

Ik hoop dat ik Georgyboy, die toch echt graag lijkt te willen leren, iets geholpen heb.

Veel respect voor jou, en al de trouwe inbreng van jou in de 13 jaar dat je op dit forum sublieme hulp hebt geboden.

 \o/

Veel groeten,

Theo

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Kolom naar meerdere kolommen verdelen
« Reactie #10 Gepost op: 21 oktober 2019, 22:16:30 »
Theo, laatste tijd wél volgend, maar ff niet zoveel tijd meer om 's avonds nog te gaan reageren. Baal ik wel van, maar het is niet anders.
Wat betreft jouw "leren"? Dat doe je nog altijd. En gelukkig maar. Én elke keer een beetje beter!
Gaaf toch dat je toch steeds maar weer je eigen codes weet te maken die doen wat het moet doen? Top hoor.

Daarnaast blijf ik Oplossing.BE een warm hart toedragen. Ook na 13 jaar.  ;D
______________________________

Groet, Leo

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Kolom naar meerdere kolommen verdelen
« Reactie #11 Gepost op: 21 oktober 2019, 22:24:41 »
Top hoor.
  :-[ _/-\o_
Citaat
Daarnaast blijf ik Oplossing.BE een warm hart toedragen. Ook na 13 jaar.  ;D
Weet ik!! Je bent steeds een drijvende kracht geweest, waardoor deze site een echte "Excel-site" geworden is.
En je hebt anderen gemotiveerd, en de magie doorgegeven.
We hebben nu een "créme de la créme" hier om Excel-problemen op te lossen.
Soms beangstigend wat er allemaal mogelijk is met wat doorzettingsvermogen.

Geniet nog van je familie vanavond.

 :) Theo  :)
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Kolom naar meerdere kolommen verdelen
« Reactie #12 Gepost op: 22 oktober 2019, 13:09:24 »
Hoi SoftAid,

Inderdaad zeer verdienstelijk werkstukje.

Maar vooral ten behoeve van Georgyboy nog deze vaststellingen:
Er zit nog één foutje in: End With ontbreekt bij With Worksheets("1 kolom")

En meer in de richting van muggenziften:
Je berekent zowel 'rij' als 'kolom2' waar verder niets mee gedaan wordt.
De berekening van aantal_kolom kan een ietsje beter. Probeer eens met je 40 basisrijen en 15 rijen per kolom, dan krijg je ook een lege 'kolom 4' bij het resultaat.
Dat komt door de combinatie "Dim aantal_kolom As Integer" met "aantal_kolom = LastRow / NewRow"
Een juiste berekening krijg je bv. met "Dim aantal_kolom As Double" en "aantal_kolom = WorksheetFunction.RoundUp(LastRow / NewRow, 0)"
"For kolom = 0 To aantal_kolom" wordt dan nog één keer te veel uitgevoerd, dit kan op meerdere manieren worden aangepast.

Groetjes,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Kolom naar meerdere kolommen verdelen
« Reactie #13 Gepost op: 22 oktober 2019, 15:22:47 »
Hallo pitufo,

zo zie je maar hoeveel fouten men nog heeft staan in code die schijnbaar goed werkt.

De End With ben ik gewoon vergeten, shame...  :-[
Vreemd dat ik bij het compileren (wat ik altijd doe) geen foutmelding kreeg..?

De variabelen "rij" en "kolom2" zijn overblijfselen van testen, en die had ik moeten opruimen. De "Dim kolom2 as Integer" had ik dan weer wel verwijderd.

Als ik Round (of RounUp) gebruik dan moet ik de variabele als Double declareren, dat heb ik eergisteren geleerd toen ik de eigenschappen van de Round functie opzocht. Maar de uitvoering was inderdaad slordig.

Citaat
"For kolom = 0 To aantal_kolom" wordt dan nog één keer te veel uitgevoerd, dit kan op meerdere manieren worden aangepast.
Dat had ik bij het testen ook opgemerkt, maar ik vond het niet erg of storend.

Heel blij met de opmerkingen, zo leer ik tenminste weer iets bij...  :thumbsup:
Namelijk, Check, check and doubleCheck. En dan nog eens nakijken ook hé...  ;D

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Kolom naar meerdere kolommen verdelen
« Reactie #14 Gepost op: 24 oktober 2019, 08:30:12 »
Leren doe ik niet meer
Heel blij met de opmerkingen, zo leer ik tenminste weer iets bij
Ha ha, bijleren, we zullen het wel nooit afleren  ;D


Eentje had ik waarschijnlijk niet duidelijk genoeg uitgelegd. En omdat ook Georgyboy steeds wil bijleren:
Citaat
Citaat
For kolom = 0 To aantal_kolom" wordt dan nog één keer te veel uitgevoerd.
Dat had ik bij het testen ook opgemerkt, maar ik vond het niet erg of storend.
Daar kan ik helemaal inkomen, maar misschien kan deze verklaring voor andere gelegenheden nog wel zijn nut hebben:
Als je X vooraf definieert als Integer en je stelt daarna X=A/B dan wordt X afgerond op de 'normale' manier. Daarom kreeg je soms een kolom te veel en soms niet.

Het is met mijn "aantal_kolom = WorksheetFunction.RoundUp(LastRow / NewRow, 0)" dat je altijd het juiste aantal kolommen krijgt, en dat de daaropvolgende lus ook altijd een keer te veel wordt uitgevoerd.
Dat maakt het opportuun om "For kolom = 0 To aantal_kolom" te wijzigen naar "For kolom = 1 To aantal_kolom" (en de daardoor vereiste aanpassingen te doen in de regels eronder).

Groetjes,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

 


www.combell.com