• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Meerdere zoekfuncties in combobox userform

Status
Niet open voor verdere reacties.
Zonder verdere slimmigheden/ wijzigingen in de code moet je dan steeds de combobox regel aanvullen.

Dus bv.
Code:
ComboBox1.List = Split(Mid(c01, 2), ",")
wordt
Code:
  ComboBox1.List = Split(Mid(c01, 2), ",")
  With CreateObject("system.collections.arraylist")
    For j = 0 To UBound(ComboBox1.List)
      .Add ComboBox1.List(j, 0)
    Next
    .Sort

    ComboBox1.List = .toarray
  End With

Ik denk dat snb (en met hem vele anderen) hier vast met een slimmere/ kortere code kunnen komen voordat ik dit überhaupt heb uitgedacht
 
Dit is i.i.g. al iets korter
Code:
  ComboBox1.List = Split(Mid(c01, 2), ",")
  cbSort 1
  ComboBox2.List = Split(Mid(c02, 2), ",")
  cbSort 2
  ComboBox3.List = Split(Mid(c03, 2), ",")
  cbSort 3
  ComboBox4.List = Split(Mid(c04, 2), ",")
  cbSort 4

+

Code:
Private Sub cbSort(i As Integer)
  With CreateObject("system.collections.arraylist")
    For j = 0 To UBound(Me("ComboBox" & i).List)
      .Add Me("ComboBox" & i).List(j, 0)
    Next
    .Sort

    Me("ComboBox" & i).List = .toarray
  End With
  
End Sub
 
Beste,

Had ook iets in elkaar gestoken, waarbij hij ook oplopend sorteerde maar mijn lijst op tabblad Reservatie sorteerde ook mee wat niet de bedoeling was.
Ik had deze in de Commandbutton geplaatst

Met jouw code gaat deze zoals het hoort
Enkel heb ik :

Code:
For j = 0 To UBound(Me("ComboBox" & i).List)

Aangepast in

Code:
For j = [COLOR="#FF0000"]1[/COLOR] To UBound(Me("ComboBox" & i).List)

Zo ben ik de eerste regel (kolomkoppen) kwijt

In bijlage nog eens het aangepast bestandje
 

Bijlagen

  • Test zoeken.xlsm
    35,1 KB · Weergaven: 41
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan