Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Samenvoegen van 2 klommen naar 1 met behoud van inhoud  (gelezen 10182 keer)

0 leden en 2 gasten bekijken dit topic.

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #15 Gepost op: 14 oktober 2018, 17:00:47 »
Hoi RedHead,

Of je nu beter af bent met een keer of 5 op "Alles vervangen" te klikken of met een stuk code te schrijven, daar zullen de meningen altijd wel verdeeld over blijven...

Maar deze had ik in mijn vorige post al moeten afzwakken :
Er even vanuit gaan dat de postcode van Nederland een format heeft van "#### ?? "
  If Left(temp, 8) Like "#### ?? " Then     ' Nederland
Anders gezegd, je redenering (die dezelfde is als deze van SoftAid) klopt, maar het uitgangspunt helaas  niet : die structuur KAN ook bij een Belgische gemeente horen.

Waar je wel gelijk in hebt : ts moet hier een eindje verder mee komen (maar dat was al zo), en zal hoe dan ook nog eea moeten nakijken.

Groeten,
pitufo


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

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #16 Gepost op: 14 oktober 2018, 18:48:40 »
die structuur KAN ook bij een Belgische gemeente horen
Vreemd... op Wikipedia wordt gezegd dat het belgische postnummer altijd uit 4 cijfers bestaat...
https://nl.m.wikipedia.org/wiki/Postcode
En
https://nl.m.wikipedia.org/wiki/Postnummers_in_België

Wat is nou juist?
______________________________

Groet, Leo

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #17 Gepost op: 14 oktober 2018, 19:07:26 »
Hallo Leo,

het is niet de cijfercombinatie die verschillend is, maar wel dat er Belgische gemeentes zijn die met een 2-letter woord beginnen, zoals bvb "De Pinte" of "La Louvière".

In dergelijk geval gaat onze code én jou macro een Belgische postcode + gemeente als "4510 La Louviere" aanzien worden als een Nederlandse code: 4510 LA.

:) 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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #18 Gepost op: 14 oktober 2018, 20:09:54 »
Owwwww... Was dát het probleem! Die had ik niet begrepen uit het draadje. Tja... da's inderdaad een lastige.
Hoewel... Zijn  "de" "la" en "le" niet de voorvoegsels die België kent? Of zijn er meer? Dan zou je bij die letter combinaties een melding kunnen geven.
______________________________

Groet, Leo

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #19 Gepost op: 14 oktober 2018, 21:04:31 »
Owwwww... Was dát het probleem! Die had ik niet begrepen uit het draadje.
Euhhh ? >>> zie Reactie #12

Zijn  "de" "la" en "le" niet de voorvoegsels die België kent? Of zijn er meer? Dan zou je bij die letter combinaties een melding kunnen geven.
't Is te zeggen... verschuif je dan niet het probleem ? want wat als er Nederlandse postcodes bestaan waarvan de posities 6+7 "LE", "LA" of "DE" zijn ?
Daarom had ik in diezelfde post al een meer radicale aanpak gesuggereerd :
Dat wordt dus of achteraf manueel uitpluizen, of een volledige lijst van Belgische gemeenten met een spatie op positie 3 toevoegen en dat lijstje in de formule verwerken.

Helemaal goed krijgen we het natuurlijk nooit, want wie zegt dat in de oorspronkelijke lijst alle benamingen correct zijn gespeld ?
Anderzijds, ik vind totaal niet dat dat onze zorg moet zijn  0:-)
"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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #20 Gepost op: 14 oktober 2018, 21:39:02 »
Hallo RedHead,

ik heb het even opgezocht, en het valt wel mee met die 2-letter gemeentes of gemeentes met een 2 letter-voorvoegsel.

AS, LO, MY, ON zijn gemeentenamen
DE, LE, LA zijn voorvoegsels  (= van of vandaan)
ST (heiligen waarvan de afkorting wordt gebruikt van Sint of Saint in gemeentenamen)

Dus maar 8 stuks waar rekening mee moet worden gehouden. Valt wel mee  ;D

:) 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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #21 Gepost op: 14 oktober 2018, 22:20:54 »
Euhhh ? >>> zie Reactie #12
Wél gelezen, maar niet begrepen. ;)

@SoftAid, dank voor je lijstje met uitzonderings-letters.
Sorry, maar kon het dus toch niet laten om deze even in mijn procedure in te voegen...
Sub Splits_PC_Adres()
'14-10-2018; RedHead; Oplossing.BE

'AS, LO, MY, ON zijn gemeentenamen
'DE, LE, LA zijn voorvoegsels  (= van of vandaan)
'ST (heiligen waarvan de afkorting wordt gebruikt van Sint of Saint in gemeentenamen)

    Lijst = ActiveSheet.UsedRange
    For i = 2 To UBound(Lijst, 1)
        If Lijst(i, 1) <> "" Then
            temp = UCase(Application.Trim(Lijst(i, 1)))
            If Left(temp, 8) Like "#### ?? " Then     ' Nederland
                Lijst(i, 2) = Left(temp, 7)
                Lijst(i, 3) = Mid(temp, 9)
                If InStr(1, "AS LO MY ON DE LE LA ST", Mid(temp, 6, 2)) > 0 Then
                    Lijst(i, 2) = "#?"
                    Lijst(i, 3) = "#?"
                End If
            ElseIf Left(temp, 5) Like "#### " Then     ' België
                Lijst(i, 2) = Left(temp, 4)
                Lijst(i, 3) = Mid(temp, 6)
            Else
                Lijst(i, 2) = "#?"
                Lijst(i, 3) = "#?"
            End If
        End If
    Next i

    Cells(1).Resize(UBound(Lijst, 1), 3) = Lijst

End Sub
Dit genereert een error (#?) bij 35 records in de lijst, waarbij het grootste deel eigenlijk onterecht is omdat het echt NL Postcodes zijn. ;)
Maar op zich als dit voor een eenmalige opschoning is, kan je wel eenvoudig je lijst doorzoeken.

Het zou wél heel leuk zijn als de TS toch nog besluit om 'ns op z'n/haar vragen te reageren.
______________________________

Groet, Leo

Offline rvds

  • Lid
  • *
  • Berichten: 20
  • Geslacht: Man
  • Oplossing.be
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #22 Gepost op: 15 oktober 2018, 09:32:18 »
Beste Leo,

Helemaal goed. Fijn dank je wel.  \o/ \o/ \o/ ;D

Groet, Ron

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #23 Gepost op: 15 oktober 2018, 12:07:21 »
Ok, just for fun dan maar (ben het uiteindelijk toch nog leuk gaan vinden)

RedHead, ik heb de vrijheid genomen  :) je procedure heel lichtjes aan te passen en zit nu op nog 15 errors.
Met mijn idee om de Belgische DE-, LE- en LA-gemeenten op te lijsten zouden het er 7 zijn.
Sub Splits_PC_Adres()

    Lijst = ActiveSheet.UsedRange
    For i = 2 To UBound(Lijst, 1)
        If Lijst(i, 1) <> "" Then
            temp = Replace(UCase(Application.Trim(Lijst(i, 1))), "B-", "")
            If Len(temp) = 7 Then                         'België
                Lijst(i, 2) = Left(temp, 4)
                Lijst(i, 3) = Mid(temp, 6)
            Else
                If Left(temp, 8) Like "#### ?? " Then     ' Nederland
                    Lijst(i, 2) = Left(temp, 7)
                    Lijst(i, 3) = Mid(temp, 9)
                    If InStr(1, "DE LE LA ST", Mid(temp, 6, 2)) > 0 Then
                        Lijst(i, 2) = "#?"
                        Lijst(i, 3) = "#?"
                    End If
                ElseIf Left(temp, 5) Like "#### " Then     ' België
                    Lijst(i, 2) = Left(temp, 4)
                    Lijst(i, 3) = Mid(temp, 6)
                Else
                    Lijst(i, 2) = "#?"
                    Lijst(i, 3) = "#?"
                End If
            End If
        End If
    Next i

    Cells(1).Resize(UBound(Lijst, 1), 3) = Lijst

End Sub

"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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #24 Gepost op: 15 oktober 2018, 12:19:16 »
@ rvds,

Beste Leo,
Helemaal goed. Fijn dank je wel.  \o/ \o/ \o/ ;D
Groet, Ron

Niet bepaald de reactie die wij verwachten, dit zou je weten indien je de bovenstaande reacties (begrijpend) leest.

@ pitufo,

heb je in de macro ook rekening gehouden met gemeenten als AS, LO, MY, ON, ST ?

:) 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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #25 Gepost op: 15 oktober 2018, 12:23:06 »
Jawel, SoftAid, door in een eerdere fase van de procedure te kijken of de totale lengte misschien 7 karakters is (en dus Belgisch moet zijn) moet ik daar verderop juist geen rekening meer mee houden.

Groeten,
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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #26 Gepost op: 15 oktober 2018, 12:50:13 »
door in een eerdere fase van de procedure te kijken of de totale lengte misschien 7 karakters is (en dus Belgisch moet zijn) moet ik daar verderop juist geen rekening meer mee houden.
Hallo pitufo,
sorry voor mijn domheid, maar elke Nederlandse gemeente heeft toch net die totale lengte van 7 karakters?
ergens zal er in Nederland wel een gemeente zijn met postcode **** AS , net als in België een gemeente AS is met postcode ****

Mis ik iets?

:) 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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #27 Gepost op: 15 oktober 2018, 13:07:47 »
Hoi SoftAid,
Je mist enkel een kleinigheid : voor die totale lengte kijk ik naar postcode + benaming.
Een Nederlandse postcode telt al 7 karakters. Postcode + benaming moeten dus langer zijn.
Bij samen 7 karakters is het daarom België.

Groeten,
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: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #28 Gepost op: 15 oktober 2018, 13:13:35 »
OK, ik snap hem nu, die macro....  ;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 RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Samenvoegen van 2 klommen naar 1 met behoud van inhoud
« Reactie #29 Gepost op: 15 oktober 2018, 18:14:10 »
Ok, just for fun dan maar (ben het uiteindelijk toch nog leuk gaan vinden)
Ha ha ha... dat is vaak het nare van dit soort vragen. Het is niet zo lastig en dan ontstaat er toch iets van "fun" als er geen druk op staat. ;)

Citaat
RedHead, ik heb de vrijheid genomen  :) je procedure heel lichtjes aan te passen en zit nu op nog 15 errors.
\o/
Prima aanpassing zo.

Lekkâh bezig!
______________________________

Groet, Leo

 


www.combell.com