• 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.
danny147

danny147

Terugkerende gebruiker
Lid geworden
29 apr 2007
Berichten
4.744
Beste,

Is het mogelijk om een code die filtert naar 3 kolommen waar "Uitgevoerd" staat, zodat ik het volgende kan bekomen

Test zoeken.JPG

Is er ook een mogelijkheid dat de ColumnHeads vast blijft staan in Listbox met kader erom heen

Test zoeken2.JPG

Kan een listbox afgeprint worden ?
 

Bijlagen

  • Test zoeken.xlsm
    26,8 KB · Weergaven: 60
Laatst bewerkt:
Voor het filteren denk ik aan de volgende code. Als je dit achter een knop o.i.d. hangt dan toggle je tussen gefilterd/ niet gefilterd (ofwel alles weergeven):
Code: 
Sub Filter()
Set rng = Blad1.Range("A1:A27")
If rng.SpecialCells(xlCellTypeVisible).Rows.Count = rng.Rows.Count Then
    For i = 6 To Blad1.Cells(Blad1.Rows.Count, "A").End(xlUp).Row
        If Blad1.Cells(i, "M") <> "Uitgevoerd" And _
            Blad1.Cells(i, "N") <> "Uitgevoerd" And _
            Blad1.Cells(i, "O") <> "Uitgevoerd" Then
            Blad1.Rows(i).Hidden = True
        End If
    Next i
    Else
        rng.Rows.Hidden = False
    End If
End Sub
 
Beste Peter B,

Knap gedaan :thumb:

Heb volgende wat aangepast om naar Blad 2 te schrijven zodat hij zichtbaar is in mijn ListBox


Code: 
Sub Filter()
Set rng = Blad1.Range("A1:A27")
If rng.SpecialCells(xlCellTypeVisible).Rows.Count = rng.Rows.Count Then
    For i = 6 To Blad1.Cells(Blad1.Rows.Count, "A").End(xlUp).Row
        If Blad1.Cells(i, "M") <> [COLOR="#FF0000"]ComboBox4.Value[/COLOR] And _
            Blad1.Cells(i, "N") <> [COLOR="#FF0000"]ComboBox4.Value[/COLOR] And _
            Blad1.Cells(i, "O") <> [COLOR="#FF0000"]ComboBox4.Value[/COLOR] Then
            Blad1.Rows(i).Hidden = True
        End If
    Next i
            [COLOR="#FF0000"]Sheets("Reservatie").Range("A5:O400").SpecialCells(xlCellTypeVisible).Copy Sheets("Gegevens").Range("A100").End(xlUp)[/COLOR]
        rng.Rows.Hidden = False
    End If
End Sub

Kan er hier een afdruk van gemaakt worden ?
 
Beste,

Heb volgende gevonden op het net voor afdrukken, maar werkt niet

Code: 
Private Sub CommandButton5_Click()
      Parent.DisplayAlerts = False
      Dim xlsx As New Worksheet
      Dim i As Integer
      Set xlsx = ThisWorkbook.Worksheets.Add
      For i = 0 To Listbox1.ListCount - 1
          xlsx.Range("A" & i).Value = Listbox1.List(i)
      Next
      xlsx.PrintOut

     xlsx.Delete

     Parent.DisplayAlerts = True
End Sub
 
Begin bij de basis.

Die columnheads in een Listbox is geen goed idee: uitschakelen dus.

Nieuwe bijlage toegevoegd.
 

Bijlagen

  • __zoeken_009.xlsb
    23,4 KB · Weergaven: 64
Laatst bewerkt:
Beste,

Kan er eens gekeken worden naar de eigenschappen van de listbox en comboboxen of deze goed zijn ingesteld
Het printen werkt nog niet als behoren, zie bijlage
Hoe kan ik unieke waarden krijgen in de comboboxen
Op snb zijn site vond ik dit, maar hoe krijg ik dit verwerkt in het bestandje

Code: 
Private Sub Workbook_Open() 
sn = Sheets("database").Cells(1).CurrentRegion
 For j = 1 To UBound(sn) 
If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
Next

 With Sheets("output") 
.keus1.List = Split(Mid(c01, 2), ",")
 .keus2.Clear
 .keus3.Clear
 .Range("B5:B7").ClearContents
End WithEnd Sub
 

Bijlagen

  • Test zoeken.xlsm
    25,9 KB · Weergaven: 48
Laatst bewerkt:
De oplosssing heb je al, nu zelf even aanpassen voor iedere afzonderljke combobox. (Prgrammeren=schrijven, programmeren<>vinden).
 
Beste snb,

Een paar keer geprobeerd maar tevergeefs
Lijkt voor mij te ver gegrepen, Sorry
 
Beste,

Het afdrukken werkt nu ook vlotjes.

Enkel nog unieke waarden weergeven in de comboboxen lukt niet, wie weet raad ?
 
Beste,

Moet deze niet in de CommantButton knop komen ?

Code: 
Private Sub CommandButton1_Click()
        sn = Sheets("Reservatie").Range("A5")CurrentRegion
         For j = 1 To UBound(sn)
        If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
        Next

        With Sheets("Gegevens")
        [COLOR="#FF0000"].ComboBox1.List = Split(Mid(c01, 2), ",")[/COLOR]
        .ComboBox2.Clear
        .ComboBox3.Clear
        .ComboBox3.Clear
        End With
        
        Listbox1.Clear
End Sub

Deze heeft wel een foutmelding - "Deze eigenschap of methode wordt niet ondersteund door dit object"
 
Laatst bewerkt:
Beste,

ComboBox1 al gevonden

Code: 
Private Sub CommandButton1_Click()
        sn = Sheets("Reservatie").Range("A5").CurrentRegion
         For j = 1 To UBound(sn)
        If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
        Next        
        ComboBox1.List = Split(Mid(c01, 2), ",")
        ComboBox1.Visible = True
        Listbox1.Clear
End Sub

Nu proberen voor Comobox2 te vinden :D
 
Zet deze excercitie in Userform _Initialize.

Zetje in de rug
Code: 
sn = Sheets("Reservatie").Range("A5").CurrentRegion
  For j = 1 To UBound(sn)
    If InStr(c01 & ",", "," & sn(j, 1) & ",") = 0 Then c01 = c01 & "," & sn(j, 1)
    If InStr(c02 & ",", "," & sn(j, 2) & ",") = 0 Then c02 = c02 & "," & sn(j, 2)
  Next        
  ComboBox1.List = Split(Mid(c01, 2), ",")
  combobox2.List =

PS. Vlamingen proberen angstvallig het Frans te vermijden (speurders i.p.v. detectives), maar gebuiken weer wel het 'fransige' reservatie (reservation) ipv het in Nederland gangbare duitsige 'reservering' (Reservierung)
 
Beste snb,

Bedankt voor het zetje, maar.....

Als ik de code handmatig uitvoer via F8 zie ik dat:
c01 = Loc.
c02 = SIDUSER
c03 = LKxxx
c04 = Co Wo 1

Allemaal unieke waarden
Enkel zijn ze niet zichtbaar in de comboboxen, enkel bij de eerste.
In bijlage nog eens het bestandje
 

Bijlagen

  • Test zoeken(2).xlsm
    57,9 KB · Weergaven: 50
Danny147,

Ik denk dat de ComboBoxen nu wel werken.
 

Bijlagen

  • Test zoeken(2)_Werkend.xlsm
    34,1 KB · Weergaven: 40
Laatst bewerkt:
Beste ExcelAmateur,

Inderdaad, de comboboxen werken maar ..... de listbox geeft geen info weer
Heb geprobeerd de sq te wijzigen in sn maar dit lukt ook niet
Kan er nog eens gekeken worden ?
 
Dat van de ComboBoxen zat in de eigenschappen ervan.

Waarom de Listbox niets weer geeft, weet ik niet zeker.
In de code van de knop staat volgens mij Listbox.Value = "" (dit gok ik, zit niet aan de PC)
Morgen ga ik een dagje naar Frankrijk, dus ga ik niet zolaat naar bed.
Dus vandaag ga ik niet meer aan de PC.

Als er niet naar gekeken word, zal ik zaterdag even kijken, of ik het kan oplossen durf ik niet te zeggen.
Ben maar een Amateur hierin, door zoeken heb ik het van de ComboBoxen gevonden.

Suc6
 
Laatst bewerkt:
Danny147,

Ik heb 3 nieuwe ComboBoxen geplaatst en de oude verwijderd.
Nu gaat het volgens mij wel goed.
 

Bijlagen

  • Test zoeken(3)_Werkend.xlsm
    32,9 KB · Weergaven: 74
Beste ExcelAmateur,

Zat ook met dit gedacht om de comboboxen te vernieuwen maar je was mij voor

Bedankt :thumb:

Nog een vraagje aan iedereen of er iemand de comboboxen ook alfabetisch kan maken ?
 
Beste,

Waar moet ik deze plaatsen

Het wordt ingewikkeld met al de gegevens die er al staan ?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan