keuzemenu en eerste letter

[vrouw]

Hoi,

Ik heb een keuzemenu gemaakt :d maar die is wel heel lang.
# het gereageerd niet op de eerste letter als je die intikt.is dat op te lossen?
# het pop-up venstertje of keuze schermpje (hoe wil je het noemen) is wel erg klein, kan je dat vergroten?

 

[hoogteijling]

Heb je het keuzemenuutje gemaakt dmv Validatie ?
Dan is het een beetje klein ja vind ik ook, als je het via VBA doet (Besturingselement) dan kun je de grootte aanpassen.
Hoe je hem op de eerste letter kunt laten reageren weet ik helaas niet.

Groeten Marcel

 

[vrouw]

Ja, gemaakt met validatie. Het kan dus ook met VBA?

 

[hoogteijling]

Ja, dan kun je in ieder geval de grootte instellen en lettertype en nog veel meer.
Als je een voorbeeldje post met korte uitleg wat je wilt kan ik je misschien verder helpen.

Groeten Marcel

 

[vrouw]

Dat moet ik dan eerst gaan maken want wat ik nu heb is nogal vertrouwelijk.

 

[hoogteijling]

Hier heb je een voorbeeldje.
Wel even zorgen dat je Ontwikkelaarstabblad aanstaat (via OfficeKnop>>opties>>populair)
Bekijk bijlage Combobox.xlsm

Groeten Marcel

 

[vrouw]

oke, dat is dan een " combobox" die je bij ontwikkelaars=>invoegen=>besturingselementen vind?
Ik kan dan inderdaad de combobox groter en kleiner slepen maar de tekst kan ik niet aanpassen in formaat?

Edit.
Ha, gevonden hoe ik de tekst kan opmaken.
Wat me wel opvalt met dit keuzemenu dat de gebruiker er zelf tekst in kan typen, en dat is niet de bedoeling....

 

[hoogteijling]

Dan gebruik je een Listbox i.p.v. een Combobox met invoervak.
Bekijk bijlage Listbox.xlsm

Groeten Marcel

 

[JeanPaul28]

@Vrouw
Kan je een voorbeeld bestand laten zien zodat we een overzicht hebben, met een duidelijke uitleg het geen je wil bereiken,anders gaat het een raadseltje worden.

 

[robdgr]

Bedoel je dit?

 

[vrouw]

Nee niet echt. Ik wil wel de hele lijst zien (of een deel zeg maar) en als ik dan de eerste letter intik dat je daar komt te staan met de cursor zodat je niet de hele lijst hoeft af te zoeken als Tinus moet hebben.
En daarbij zou ik het keuzemenu dus wat groter willen hebben dan standaard keuzemenu van Excel.

 

[popipipo]

Wat is het probleem als je de T in tikt en je ziet Tinus, Tjark, Toos T.... T.... en niet alle namen die met een andere letter begint.
Andere naam, andere letter intikken; zo simpel is het.

 

[vrouw]

Ja, wellicht kan ik er wel wat mee. Ik probeer hem nu na te maken zodat ik het ga begrijpen maar dat lukt niet.
Ik zie al die vreemde waardes in validatie en ook nog een formule in een cell ergens op het werkblad. Die horen er allemaal bij?

 

[Ad Becude]

Volgens mij bedoel je zoiets, het voorbeeldje is afkomstig van Leo

 

[vrouw]

Dat is inderdaad wel een mooie, maar niet wat ik zoek. Er zitten allerlei formules in de celllen van de namen.
Aangezien in mijn bestand de gegevens dmv een query worden ogehaald ben je daarna de formules weer kwijt.

Als je de eerste letter intikt in het keuze en dan gelijk naar die waarden gaat is op dit moment even het belangrijkste voor me.

 

[popipipo]

Als je de eerste letter intikt in het keuze en dan gelijk naar die waarden gaat

Hoe je dat moet doen wordt hier voor dus al meermalen aangegeven.
Je hebt daar de gegeven formules voor nodig. Deze doen precies wat je wilt.
Tik een letter in en je gaat gelijk naar die waarden.
Zonder die formules gaat het niet.

 

[HSV]

Hier een methode met Vba.

 

[vrouw]

:thumb:YES, dit is wat ik zocht, Shapoo:thumb:
Ik zie in de VBA dat er op ider blad " Option Explicit" staat. Is dat nodig en waarvoor dient dat?

Edit:
Als er iets in kolom B staat komt er een foutmelding. Als er iets in de andere kolommen staat komt die foutmelding niet.
Waar staat de verwijzing in de VBA naar waar de lijst met namen staat?

 

[HSV]

Kleine aanpassing.

Private Sub ComboBox1_DropButtonClick()
 If ComboBox1 = vbNullString Then ComboBox1.List = Cells(1).CurrentRegion.[COLOR=#ff0000]Columns(1).[/COLOR]Value
End Sub

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim cl As Range
ComboBox1.Clear
 For Each cl In Cells(1).CurrentRegion[COLOR=#ff0000].Columns(1).SpecialCells(2)[/COLOR]
  If Asc(cl) = KeyAscii Or Asc(cl) = KeyAscii + 32 Or Asc(cl) = KeyAscii - 32 Then ComboBox1.AddItem cl
 Next cl
End Sub

Anders een range opgeven met variabele lengte.

 

[Warme bakkertje]

Of

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim cl As Range, sn As String
 ComboBox1.Clear
 For Each cl In Cells(1).CurrentRegion.Columns(1).SpecialCells(2)
  If Asc(cl) = KeyAscii Or Asc(cl) = KeyAscii - 32 Then sn = sn & cl & ";"
 Next cl
 ComboBox1.List = Split(sn, ";")
End Sub