Help!

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

Hulp bij posten

Recente topics

Auteur Topic: opzoeken telefoonnummer uit lijst  (gelezen 31593 keer)

0 leden en 1 gast bekijken dit topic.

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
opzoeken telefoonnummer uit lijst
« Gepost op: 17 oktober 2019, 09:38:41 »
Hallo,

ik heb een telefoonlijst die ik nog moet uitbreiden ,nu is de vraag om er een zoekfunctie in te zetten via vba die er voor zorgt dat wanneer ik de beginletters van de naam / of het telefoonnummer ingeef de naam en het nummer toont (huisnummer en Gsm)
zal niet zo moeilijk zijn maar ik ken niets van vba :-[
ps:hopelijk voldoende en duidelijk genoeg anders laat maar weten.
in bijlage een gedeeltelijk ingevulde lijst.

   mvg,lco

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: opzoeken telefoonnummer uit lijst
« Reactie #1 Gepost op: 17 oktober 2019, 15:15:21 »
bedoel je iets in deze zin?

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: opzoeken telefoonnummer uit lijst
« Reactie #2 Gepost op: 17 oktober 2019, 15:59:51 »
emields,

waar kan ik de opzoeking starten vind niets terug om in te geven of zie ik iets over het hoofd :-\



   mvg,lco

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: opzoeken telefoonnummer uit lijst
« Reactie #3 Gepost op: 17 oktober 2019, 16:53:23 »
Sorry, verkeerde bestand bijgevoegd

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: opzoeken telefoonnummer uit lijst
« Reactie #4 Gepost op: 17 oktober 2019, 17:02:15 »
emields,

bedankt voor de snelle oplossing :thumbsup: :thumbsup:


   mvg,lco

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: opzoeken telefoonnummer uit lijst
« Reactie #5 Gepost op: 17 oktober 2019, 17:42:20 »
emields,

ik heb geprobeerd om de formules aan te passen tot 100 lijnen maar ik krijg geen namen te zien na lijn 35
de lijst word nog veel langer,hoe heb je dat klaargespeeld :-[ :-[

    mvg,lco

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: opzoeken telefoonnummer uit lijst
« Reactie #6 Gepost op: 17 oktober 2019, 18:05:52 »
Luc,

verander de formule in J3 naar:
=ALS.FOUT(ALS(LENGTE(VERT.ZOEKEN(I3;A4:E100;3;0))>1;VERT.ZOEKEN(I3;A4:E100;3;0);"Geen nummer");"")dus E35 veranderen in E100
Idem voor de formule in K3

emields, bedankt voor het bedankje op mijn Personal Message....  :'(

:) 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 emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: opzoeken telefoonnummer uit lijst
« Reactie #7 Gepost op: 17 oktober 2019, 18:23:13 »
je zal ook de gegevens validatie moeten aanpassen.

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: opzoeken telefoonnummer uit lijst
« Reactie #8 Gepost op: 17 oktober 2019, 19:48:20 »
softAid,

"Je kan dat doen door telefoonnummers!$A4:$A35 aan te passen naar telefoonnummers!$A4:$A100"
het bereik had ik aangepast naar 100 lijnen maar dit werkte niet  ::)

emields,

Het bereik in formules-namen beheren aanpassen kende ik niet

ps: er een dynamisch bereik van te maken daar had ik geen benul van :-[

in ieder geval beide bedankt voor de oplossing,leer iedere keer één beetje bij


    mvg,lco

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: opzoeken telefoonnummer uit lijst
« Reactie #9 Gepost op: 18 oktober 2019, 10:21:27 »
Hallo,

De gegevensvalidatie zoals ze nu is ingesteld voor I3 is o.k. maar je zal wel nog altijd de formules in J en K moeten aanpassen als de lijst langer wordt.
Best als volgt veranderen (zal het altijd goed mee zijn):
J3: =ALS(VERT.ZOEKEN($I3;$A:$E;3;0)<>0;VERT.ZOEKEN($I3;$A:$E;3;0);"---")
K3: =ALS(VERT.ZOEKEN($I3;$A:$E;5;0)<>0;VERT.ZOEKEN($I3;$A:$E;5;0);"---")

Tegelijk: deze manier werkt en is aanvaardbaar voor een (relatief) korte lijst. Maar stel dat de lijst écht lang wordt, dan wordt het vervelend scrollen door die gegevensvalidatielijst.
Mocht ik vandaag nog tijd vinden dan zal ik voor de fun eens een alternatieve methode posten die ook nog eens letterlijk beantwoordt aan de vraag :
Citaat
zoekfunctie in te zetten via vba die er voor zorgt dat wanneer ik de beginletters van de naam / of het telefoonnummer ingeef
Ik heb een tijd geleden namelijk iets in die aard ontworpen bij een andere vraag, en mits een beetje aanpassen is dat hier ook bruikbaar (dan mogen er zelfs duizenden rijen in de tabel staan)

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

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: opzoeken telefoonnummer uit lijst
« Reactie #10 Gepost op: 18 oktober 2019, 14:44:35 »
pitufo bedoeld waarschijnlijk zoiets. zoek de naam via cel A2

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: opzoeken telefoonnummer uit lijst
« Reactie #11 Gepost op: 18 oktober 2019, 16:48:44 »
Wel, 't is te zeggen... ik bedoel eigenlijk meer iets als dit !

Misschien overkill (voor sommigen), tot je met lange lijsten aan de slag moet...
De achterliggende code is niet echt kort, maar wel zo leesbaar mogelijk gehouden, én werkt tamelijk snel, én zorgt voor grote flexibiliteit.
Zonder dat je dat zelf moet aangeven kan op naam en/of nummer worden gezocht, en nummers worden in beide kolommen gezocht.

Benieuwd naar de meningen  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.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: opzoeken telefoonnummer uit lijst
« Reactie #12 Gepost op: 18 oktober 2019, 17:42:51 »
Hallo pitufo,

works like a charme...  :thumbsup:

Wat de code betreft (t'is maar een voorstel) zou je ""Sheets("Blad1")"" niet beter vervangen door Active.Sheet

De macro wordt toch gestart op dat werkblad, en er moet maar weer eens ene slimme tussen zitten die de naam van het werkblad veranderd, en je code werkt niet meer...  ;) :)

:) 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: opzoeken telefoonnummer uit lijst
« Reactie #13 Gepost op: 18 oktober 2019, 17:50:10 »
Helemaal mee eens, SoftAid  :thumbsup:

'k Had (weeral) zo veel mogelijk uit een bestaand bestand gekopieerd (waar formulierknop en data op ander werkblad stonden) en in de rapte enkel de noodzakelijke aanpassingen gedaan.
Namens mijzelf en die 'ene slimme' dus dank voor je opmerkzaamheid  :)

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.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: opzoeken telefoonnummer uit lijst
« Reactie #14 Gepost op: 18 oktober 2019, 19:02:33 »
Ik begin te blozen   :-*
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 !

 


www.combell.com