automatisch lijst laten zien met namen

[danny147]

Beste,

Zie mijn volgend bestandje

Graag zou ik hier willen, van zodra ik een letter typ bv: D
Dat hij mij dan automatisch een lijst laat zien met al de namen die beginnen met de letter D.
Van zodra ik een tweede letter aan toevoegt dat de lijst wordt aangepast met de namen die nog in aanmerking komen.

Vb:
Ik typ D
Automatisch komen de namen op het scherm zoals:
Danny
Daniël
Davy
Dirk
Dusty
David
Dieter
Dierk

Ik typ de volgende letter a
Automatisch wordt de lijst aangepast en krijg ik het volgende:
Danny
Daniël
Davy
David

Dan typ ik n
Ik krijg:
Danny
Daniël

Dan nog een n
Tot ik uiteindelijk maar een naam meer krijg nl. Danny.

Iemand enig idee

Groetjes Danny. :thumb:

 

[Roncancio]

Ik zie dat je hier nog niet gekeken hebt.
Daar heb ik namelijk precies gedaan wat je hier vroeg.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Ik zie dat je hier nog niet gekeken hebt.
Daar heb ik namelijk precies gedaan wat je hier vroeg.

Met vriendelijke groet,


Roncancio

Had ik wel gezien, trouwens heb er ook aan gewerkt.

Misschien verkeerd begrepen mijn vraag

Van zodra ik een letter typ, dat ik dan niet hoef te klikken op het driehoekje maar dat de lijst automatisch verschijnt in beeld en van zodra ik een tweede letter typ automatisch de lijst aangepast wordt.

Groetjes Danny. :thumb:

 

[HSV]

Deze gevonden van Mr.T.
Wel in hoofdletters typen.

Misschien heb je er iets aan Danny.

 

[danny147]

Beste HSV

Dit begint aardig in de buurt te komen.

Als ik de naam gevonden heb in de lijst, zou ik hem graag ergens willen plaatsen, maar hoe en waar ?

Misschien dmv op een naam te klikken in een lijst en dat er dan een box te voorschijn komt die zegt waar ik deze kan plaatsen in een cel.

Groetjes Danny. :thumb:

 

[HSV]

Misschien gewoon zo.

Ik weet nl. niet in wat voor toepassing je het wil gebruiken.

 

[danny147]

Beste HSV

Het is voor een vriend van mij

Wat hij zou willen is van zodra de lijst tevoorschijn komt, dat ik daar op een naam kan klikken en dat er dan een tekstbox opengaat die mij zegt waar ik deze naam in een cel wil plaatsen.
Als ik dan Bv. D6 intyp dat hij deze naam dan daarin plaatst.

Weet niet of dit mogelijk is

Groetjes Danny. :thumb:

 

[HSV]

Zoiets dus Danny.

Alleen nu nog in een waarschuwingsvenster dus.
Misschien dat iemand anders dat voorelkaar kan krijgen.
Ben meer van de formules.

 

[danny147]

Beste HSV

Zal dit morgen met de persoon is bespreken.

Nog één vraagje.

Als je dubbelklikt op de naam, wordt deze weggeschreven naar cel A6.
Als dit gebeurt is kan cel A1 dan daar A7 geplaatst worden.
Dus dubbelklik en A1 vermeerdert met 1.

Groetjes Danny. :thumb:

 

[HSV]

Beste HSV

Nog één vraagje.

Dus dubbelklik en A1 vermeerdert met 1.

Groetjes Danny. :thumb:

Zoiets dus Danny.

 

[danny147]

Beste HSV

Knap staaltje. :thumb:

Voor mij ziet het er goed uit.
Even overleggen met mijn collega, wat hij ervan vindt.

Reactie morgenavond rond 23 u.

Groetjes Danny. :thumb:

 

[HSV]

Beste Danny,

Is prima.
Heb het nog iets aangepast zodat het kolomnummer ook variabel is.

Ik verneem het wel.

 

[danny147]

Beste HSV

Het ziet er allemaal goed uit voor mijn collega, enkel vraagt hij zich af hoe je de textbox kan verplaatsen.

Heb ook al zitten stoeien maar kan hem ook niet verplaatsen.

Groetjes Danny. :thumb:

 

[HSV]

Hallo Danny,

Ga naar Menu Beeld>Werkbalken>Werkset Besturingselementen>Ontwerpmodus.
Dit is de Driehoek-lineaal-potlood.
Nu kun je het selecteren en verslepen.
Daarna weer klikken op Ontwerpmodus.

Succes.

 

[danny147]

Beste HSV

Heb het gevonden, bedankt voor alles via mijn collega en mij.

Groetjes Danny. :thumb:

 

[snb]

Het kan ook zo:

Private Sub TextBox1_Change()
  If TextBox1.Text = "" Then Exit Sub

  Columns(5).ClearContents
  sq = Application.WorksheetFunction.Transpose([H10].Resize(Cells(Rows.Count, 8).End(xlUp).Row))
  sq = Filter(sq, UCase(TextBox1.Text))
    
  If UBound(sq) = -1 Then
    [E10] = " Nix gevonden"
  Else
    [E10].Resize(UBound(sq) + 1) = Application.WorksheetFunction.Transpose(sq)
  End If
End Sub

 

[danny147]

Beste snb

Vervangt deze code volledig de bestaande code ?

Zoja, dan werkt ze bij mij niet

Kan je ze in een bestandje steken en even uit proberen ?
Als je dit kan optimaliseren, des te beter natuurlijk.

Groetjes Danny. :thumb: