Springen naar inhoud


- - - - -

Combobox


  • Log in a.u.b. om te beantwoorden
Er zijn 4 reacties in dit onderwerp

#1 Dieter

Dieter

    Starting Developer

  • Leden
  • 17 berichten
    Laatst bezocht 18 May 2012 10:23

Geplaatst op 07 May 2012 - 10:16


Beste forummers,

Ik wil jullie alvast bedanken voor de snelle hulp in mijn vorige topics (vooral RedThread dan ;) ) maar ben nog niet lang bezig met vba en jullie hulp is meer dan welkom!

Ik zit ondertussen al met een nieuwe vraag ; ik heb in mijn excel een inputbox waarbij naar de naam van een leverancier wordt gevraagd ; deze naam zal worden opgezocht in een kolom in mijn eerste werkblad en daarna zal er een overzicht van deze leverancier zijn afnames worden gekopieerd in een andere sheet. Het probleem is nu dat je de exacte naam moet ingeven in de inputbox om dit overzicht te bekomen. Ik had dit graag anders gehad waar je door middel van een combobox de leverancier uit een lijst kan kiezen, of wanneer je een deel van de naam in het veld typt, er bijpassende suggesties worden weergegeven.

Kan er mij iemand hier voor op weg zetten want ik heb me al suf gezocht, maar ik kan er nogal moeilijk aan uit?

Volgens mij moet ik de combobox eerste vullen, maar ik heb geen idee hoe ik de inputbox aanpas?

#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3294 berichten
    Laatst bezocht gisteren, 23:50
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 07 May 2012 - 12:38

Hier heb je misschien al iets aan :

Ik heb een textbox geplaatst op een sheet, en met de change event filter ik.
zoals je kan zien is de voorwaarde dat de textbox niet leeg is en de lengte van de ingave > 3 chars.
ik zet ook een * voor en achter de searchstring.

Visual Basic Code:
Private Sub TextBox1_Change()
	If Len(TextBox1.Text) > 3 And TextBox1.Text <> "" Then
		With ActiveSheet
				.AutoFilterMode = False
				.Range("A2:D2").AutoFilter
				.Range("A2:D2").AutoFilter Field:=4, Criteria1:="*" &amp; TextBox1.Text &amp; "*"
		End With
	End If


End Sub


Opmerking : de range A2:D2 zijn autofilters.

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#3 Dieter

Dieter

    Starting Developer

  • Leden
  • 17 berichten
    Laatst bezocht 18 May 2012 10:23

Geplaatst op 08 May 2012 - 16:38

Bericht bekijkenRedThread, op 07 May 2012 - 12:38, zei:

Hier heb je misschien al iets aan :

Ik heb een textbox geplaatst op een sheet, en met de change event filter ik.
zoals je kan zien is de voorwaarde dat de textbox niet leeg is en de lengte van de ingave > 3 chars.
ik zet ook een * voor en achter de searchstring.

Opmerking : de range A2:D2 zijn autofilters.

Ok, ik ben niet mee :D

#4 Dieter

Dieter

    Starting Developer

  • Leden
  • 17 berichten
    Laatst bezocht 18 May 2012 10:23

Geplaatst op 15 May 2012 - 16:25

Kan je niet op één of andere manier de inputbox gewoon aanpassen?

#5 Dieter

Dieter

    Starting Developer

  • Leden
  • 17 berichten
    Laatst bezocht 18 May 2012 10:23

Geplaatst op 18 May 2012 - 10:26

Bericht bekijkenDieter, op 15 May 2012 - 16:25, zei:

Kan je niet op één of andere manier de inputbox gewoon aanpassen?

Heb het ondertussen klaargekregen, maar ik zit nu met het probleem dat je bij het selecteren van een waarde in de combobox, enkel kan selecteren.
Ik zou liever hebben dat je hierin kan typen en dat er suggesties worden weergegeven van de gegevens die in de combobox zitten...
Ik heb al gevonden dat je de style moet aanpassen, maar ik weet niet juist hoe of waar, kan iemand mij hier bij helpen?




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Hosting provided by Combell
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be