Auteur Topic: Telefoonnummers aanpassen (gelezen 10739 keer)

Tornado · « **Gepost op:** 21 november 2013, 11:04:32 »

Hallo Oplossers, Heb hier lijsten van gsm nummers, dewelke worden gebruik naar ons klienteel toe van de vereniging. De gsm nummers zijn ingevoerd als: 0479 / 126 456 doch door verandering van SMSproviders moeten deze genoteerd zijn als 0032479126456. Moeten we deze allen handmatig aanpassen

(amai) of bestaat hier een oplossing voor. Lijst zit in Excel. Groetjes

SoftAid · « **Reactie #1 Gepost op:** 21 november 2013, 13:04:22 »

Hallo Tornado,

Veronderstel je GSM nummers staan in kolom A en beginnen in "A1"
Voeg 2 kolommen toe achter kolom A door kolom B te selecteren en te kiezen voor: Start, Cellen, Klik op het pijltje onder Invoegen en kies voor "Bladkolommen invoegen". Doe dit 2 maal, zodat je een lege kolom B en een lege kolom C krijgt .
Selecteer deze 2 nieuwe kolommen en rechtsklik op een cel en kies "Celeigenschappen" en stel deze in op "Tekst"

In de nieuwe kolom B zet je in B1 de formule: =TEKST.SAMENVOEGEN("0032";DEEL(A1;2;3);DEEL(A1;8;3);DEEL(A1;12;3))

!!! Beginnen je GSM nummers op A2, dan verander je in de formule alle vetgedrukte verwijzingen in A2, enzovoort.... !!!

Trek deze formule door tot beneden aan je laatste gsm nummer.
In de nieuwe kolom B zouden nu de gsm nummers in de nieuwe opmaak moeten staan.

Als dit zo is, Selecteer dan de hele kolom met nieuwe GSM-nummers en kies voor Kopiëren, of via Ctrl + C
Selecteer nu de cel in de derde lege kolom C, deze naast je bovenste nieuwe nummer en kies Start, Plakken en klik op het pijltje onder "Plakken"(gebruik hier niet de toetsencombinatie Ctrl+V)

Het "Plakken" venster opent. Kies hier voor : Waarden plakken In kolom C verschijnen nu opnieuw de nieuwe gsm-nummers, echter staat er nu een nummer, geen formule.

Je mag nu de vorige kolommen A en B verwijderen en enkel de C behouden.

Zie bijlage

SoftAid

popipipo · « **Reactie #2 Gepost op:** 21 november 2013, 20:24:42 »

Kolom C heb je daar niet voor nodig
Plakken speciaal waarde kun je rechtstreeks in kolom B doen en daarna kolom A verwijderen
Of omgekeerd plakken speciaal in kolom A en verwijder kolom B

Heb zelf een andere formule bedacht.
ENG: ="0032"&RIGHT(SUBSTITUTE(SUBSTITUTE(A1;"/";" ");" ";"");9)
ned: ="0032"&rechts(substitueren(substitueren(A1;"/";" ");" ";"");9)

Ben je wat minder afhankelijk van de posities van de spaties en de /

SoftAid · « **Reactie #3 Gepost op:** 21 november 2013, 20:39:21 »

Hallo Willem,

bedankt voor het compliment (zoals altijd $:-\$ )

"Substitueren" genest in een vorige functie "Substitueren" zal voor een leek zeker leesbaar en gemakkelijk volgbaar zijn....

SoftAid

Warme bakkertje · « **Reactie #4 Gepost op:** 24 november 2013, 17:09:25 »

Nog een mogelijkheid

Code: [Selecteer]

Sub tst()

    sn = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(sn)
        sn(i, 1) = "0032" & Right(Replace(Replace(sn(i, 1), "/", " "), " ", ""), 9)
    Next
    Columns(1).NumberFormat = "@"
    Cells(1).Resize(UBound(sn), 1) = sn
    
End Sub

NoNick · « **Reactie #5 Gepost op:** 24 november 2013, 20:35:51 »

Andere mogelijkheid, zonder formules...

Eerst gaan we de spaties wegwerken in de telefoonnummers ... zie je voorbeeld: 0479 / 126 456

Open de lijst met de nummers en gebruik de toetsencombinatie CTRL + H ... er opent zich een venster "Zoeken en vervangen" zoals in deze afbeelding:

Ga naar het tabblad "Vervangen" en geef je bij "Zoeken naar" "[spatie]" in, bij "Vervangen door" geef je niets in en dan klik je op "Alles vervangen".

Nu geef je bij "Zoeken naar" "[/]" in, bij "Vervangen door" geef je niets in en dan klik je op "Alles vervangen".

Als laatste geef je bij "Zoeken naar "04" in, bij "Vervangen door" geef je "00324" in en dan klik je op "Alles vervangen".

Kees is klaar ...

Tornado · « **Reactie #6 Gepost op:** 25 november 2013, 11:50:25 »

Aan alle oplossers ivm dit item, onze HARTELIJKE DANK, voor de oplossing. Alles is ok, en de voorgestelde oplossingen, hebben ons VEEEEEL werk bespaard.

Groetjes, bedankt, en tot volgende keer

Gustaaf

spyder · « **Reactie #7 Gepost op:** 25 november 2013, 13:35:23 »

Citaat van: NoNick op 24 november 2013, 20:35:51

Andere mogelijkheid, zonder formules...

Ga naar het tabblad "Vervangen" en geef je bij "Zoeken naar" "[spatie]" in, bij "Vervangen door" geef je niets in en dan klik je op "Alles vervangen".

Nu geef je bij "Zoeken naar" "[/]" in, bij "Vervangen door" geef je niets in en dan klik je op "Alles vervangen".

Ik wist niet dat dit mogelijk was op deze manier. Bedankt voor de tip.

Citaat

Als laatste geef je bij "Zoeken naar "04" in, bij "Vervangen door" geef je "00324" in en dan klik je op "Alles vervangen".

Deze "kan " volgens mij een klein risico inhouden als er in het telefoonnummer ook "04 " in komt.

groetjes

NoNick · « **Reactie #8 Gepost op:** 25 november 2013, 18:05:10 »

Citaat van: spyder op 25 november 2013, 13:35:23

Ik wist niet dat dit mogelijk was op deze manier. Bedankt voor de tip.

Zonder dank spyder, eerlijk gezegd kwam deze tip van mijn vriendin ...

Citaat van: spyder op 25 november 2013, 13:35:23

Deze "kan " volgens mij een klein risico inhouden als er in het telefoonnummer ook "04 " in komt.

Klopt, dat was SoftAid ook al opgevallen ...

Wanneer je deze tip gebruikt is het manueel overlopen van de lijst dan ook een noodzaak.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics