Zoeken op 1 of 2 comboboxen (zonder userform)

Status
Niet open voor verdere reacties.
O

Offthefield

Gebruiker
Lid geworden
27 apr 2005
Berichten
369
Ik probeer een zoekfilter te maken met zoeken op 2 Comboboxen (zonder userform, deze zit wel al in het bestandje (95% door hulp van deze site!!),maar nu wil ik er 1 zonder userform!!), voldoet het hieraan de comboboxen, dan moet de Listbox alleen de gegevens van de kolom WAAR en kolom WIE laten zien (hij moet
voldoen aan beide comboboxen)

vb. Bij zoeken op Bungalow (WAAR) en Nico (WIE) moet 2 regels komen (N220820171 en N240820171)


Ik zou ook al dolgelukkig zijn, als hij alleen aan de kolom WAAR voldoet!


Wie heeft er een idee?


Bij voorbaat hartelijk dank.
 

Bijlagen

  • __PLANNING_snb (1) (1).xls
    83 KB · Weergaven: 30
edmoor,

Gaaf man, GEWELDIG!!!

Ik ga nu mijn originele programma aanpassen.

Dit is zoals ik het wilde hebben!!

Wederom hartelijk dank
 
edmoor,

Ik heb nog een paar vragen :

Is het mogelijk om bij het opstarten in kolom Datumnummers ALLE datumnummers te krijgen?,
geprobeerd met Listfillrange <Datumnr>, maar dan geeft het in het vervolg een foutmelding!


Is het mogelijk om alleen kolom Accommodatie in te voeren en niet Verhuurder of andersom?


Alvast hartelijk dank
 

Bijlagen

  • Werklijsten.xls
    85,5 KB · Weergaven: 28
Wat bedoel je met opstarten?
Als het document wordt geopend of als je het werkblad met de listbox opent?
Je 2e vraag begrijp ik even niet wat je precies bedoelt.
 
edmoor,

Vraag 1 :
Ik bedoel als ik het tabblad opent, dat de listbox1 alle Datumnummers laat zien (Dan kan ik er later met een SpinButton doorheen lopen)

Vraag 2:
Nu komen de gegevens in Listbox1 als ze aan beide Comboboxen voldoet!

Is het mogelijk om alleen Combobox cmbAccommodatie in te voeren en niets in te voeren in Combobox cbmPersoon of andersom?

Of beide als basis leeg telaten en als het nodig is de Comboboxen te gebruiken.

Ik hoop dat dit iets duidelijker is

Alvast bedankt
 
Duidelijk denk ik :)
Ik kan er vanavond voor je naar kijken.
 
Helaas nog geen tijd voor gehad.
Vanavond wel verwacht ik.
 
edmoor,

Ziet er FANTSTISCH uit!!

Ik ga zelf enkele opmerkingen in de macro's plaatsen om het voor mij duidelijker
te maken, anders ben ik het volgende week weer vergeten!

Daarna ga ik het verwerken in mijn originele programma.

Mag ik je nog hartelijk bedanken,
ik kan weer verder met het perfectioneren van mijn programma.

:thumb:
 
Van de SpinButton die je noemt zie ik het nut niet maar ik heb hem er vast bij gemaakt omdat dat meer behapt dan simpel een object toevoegen. Dan heb je in ieder geval de voorbeelden.

Document staat in #10.

Voor de rest, veel plezier er mee :)
 
Laatst bewerkt:
edmoor,

De spinbutton gebruik ik alleen om er snel doorheen te bladeren, kan natuurlijk ook met PgDn en PgUp, maar
het ziet er leuker uit.


Top!
 
Ik had wat extra tijd ervoor.
Enjoy :D
 
edmoor,

Ik wil zoals in de userform nu ook, via een .list (zoiets als hieronder)

Code: 
    CmbAccommodatie.List = Array("Huis", "Villa", "Bungalow")
    CmbPersoon.List = Array("Nico", "Simon", "Ruud")

nu gaat dit via listfillrange in de combobox (en via Tabblad BENOEMEN), hoe kan ik deze er tussen zetten?

Alvast bedankt voor het kijken
 
Ik zie niet wat je nu precies waar wilt hebben.
De code die je laat zien zou gewoon moeten werken.
 
edmoor,

In welk deel van de macro moet ik hem plaatsen?,
ik heb ze nu in Private Sub Worksheet_Activate() geplaatst, maar dan gebeurt er niets?

Ik heb het ook op andere plaatsen geprobeerd, ook niets

Zou je me kunnen aangeven waar ik deze moet plaatsen?

Alvast bedankt
 

Bijlagen

  • Werklijsten (1).xls
    90 KB · Weergaven: 28
Andere benadering zonder interactie met het werkblad.
 

Bijlagen

  • Werklijsten.xls
    87 KB · Weergaven: 31
VenA,

Ziet er echt goed (van de macro snap ik nog niets , maar daar moet ik wat tijd in steken en enkele memo's
er tussen zetten!,

MAAR nu kom ik weer bij hetzelfde probleem als #6 terecht!

Is het niet mogelijk om in het programma van edmoor de Accommodaties en Personen mbv

Code: 
CmbAccommodatie.List = Array("Huis", "Villa", "Bungalow")
CmbPersoon.List = Array("Nico", "Simon", "Ruud")


er tussen te zetten? of is er een andere manier ? als ik maar niet via CAT1 en CAT2 (FillListrange in de Comboboxen) hoeft?

Alvast bedankt, ook voor het maken van de macro's (die ik zeker gaat uitspitten)
 
Die staan in het bestand in #18. Alleen wat eenvoudiger geschreven.

Code: 
Private Sub Worksheet_Activate()
    ar = Sheets("WERKLIJSTEN").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Resize(, 12)
    [COLOR="#FF0000"]CbmAccommodatie.List = Split("Huis Villa Bungalow")
    CbmPersoon.List = Split("Nico Simon Ruud")[/COLOR]
    CbmAccommodatie.ListIndex = -1
    CbmPersoon.ListIndex = -1
    ListBox1.List = ar
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan