Zoeken op 2 comboboxen

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 11 jul 2018

• #1

Ik probeer een programma te maken met zoeken op 2 Comboboxen (Aan beide voldoen) en plaatsen in Listbox,
maar bij mij komt in de listbox alleen de gegevens van alleen de kolom WAAR of de kolom WIE, maar hij moet
voldoen aan beide comboboxen


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


Wie heeft er een idee?


Bij voorbaat hartelijk dank.

 

Bijlagen

• PLANNING (2).xls

  72,5 KB · Weergaven: 38

OctaFish

Verenigingslid

Lid geworden

6 feb 2009

Berichten

42.008

• 11 jul 2018

• #2

Je zult er een extra check bij moeten zetten die controleert of er een dubbele waarde is gekozen. Ik gebruik voor het gemak een controlekolom, maar het zal ongetwijfeld zonder kunnen.

 

Bijlagen

• Planning v2.xls

  65,5 KB · Weergaven: 29

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 11 jul 2018

• #3

OctaFish,

Ziet er lekker uit, ik ga nu de macro's bekijken.

Top hartelijk dank!!!

 

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 11 jul 2018

• #4

OctaFish,

Ik stuit op een raar probleem, als je sorteert op kolom "WAAR", dan gaat het sorteren
bij Bungalow en Huis goed, maar bij het sorteren op Villa geeft hij alle regels, kan jij zien waar het probleem zit?

Bij voorbaat dank

 

Bijlagen

• Planning v2 (Versie 1.1).xls

  81,5 KB · Weergaven: 28

snb

Verenigingslid

Lid geworden

12 jun 2008

Berichten

19.714

• 12 jul 2018

• #5

Dat kan een stuk simpeler.

Vermijd overbodige interaktie met het werkboek.

 

Bijlagen

• __PLANNING_snb.xls

  55,5 KB · Weergaven: 28

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 12 jul 2018

• #6

snb,

Bedankt voor je reactie, ik ga morgen naar de procedures kijken

 

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 13 jul 2018

• #7

snb,

Ziet er echt fantastisch uit!

Ik heb alleen nog een vraag:

Bij het invoeren van combobox1, zie je nog geen reactie in de Listbox?,
deze komt pas als je de selectie aangeeft in combobox2.

Is het ook mogelijk dat je al een reactie in de Listbox ziet, als je combobox1 activeert?

Alvast bedankt

Offthefield

 

snb

Verenigingslid

Lid geworden

12 jun 2008

Berichten

19.714

• 13 jul 2018

• #8

Dat kan wel maar wat heeft dat voor zin ?

 

Bijlagen

• __PLANNING_snb.xls

  52 KB · Weergaven: 45

Laatst bewerkt: 13 jul 2018

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 13 jul 2018

• #9

snb,

Geweldig, hartelijk dank voor de super snelle hulp!!!,
dit was precies wat ik zocht!!

 

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 15 jul 2018

• #10

snb,

Ik wil nog een aanpassing doen, listbox1 moet kolom B worden ipv kolom A,
ik weet niet waar ik dat kan aanpassen.

Heb jij misschien een idee?

 

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 20 jul 2018

• #11

Heeft iemand nog een idee, het lukt mij maar niet om het onderstaande probleem op te lossen.

Ik wil nog een aanpassing doen, listbox1 moet kolom B worden ipv kolom A,
ik weet niet waar ik dat kan aanpassen.

Alvast hartelijk dank

 

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 20 jul 2018

• #12

Even de eigenschappen in de listbox aanpassen. Columncount, boundcolumn en columnwith

 

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 20 jul 2018

• #13

VenA,

Het lukt mij niet, als ik bv. BoundColumn =2 geeft hij krijg je weer errors bij Listbox1_Change()

Wat gaat er fout ?

 

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 21 jul 2018

• #14

Dezelfde foutmelding krijg je ook zonder aanpassingen.

Even aanpassen

Code:

Private Sub Listbox1_Change()
  [COLOR="#FF0000"]If ListBox1.ListIndex > -1 Then[/COLOR]
    For j = 2 To 12
      Me("T_" & Format(j, "00")) = IIf(j = 6 Or j = 7 Or j = 8, Format(ListBox1.Column(j - 1), "hh:mm"), ListBox1.Column(j - 1))
    Next
 [COLOR="#FF0000"] End If[/COLOR]
End Sub

 

Bijlagen

• __PLANNING_snb (1).xls

  54 KB · Weergaven: 33

O

Offthefield

Gebruiker

Lid geworden

27 apr 2005

Berichten

369

• 21 jul 2018

• #15

VenA,

Heerlijk!!

Ik kan weer verder met het uitbreiden van mijn programma

Hartelijk dank.

Offthefield