Gegevensveld filteren dmv 2 comboboxen

[Jack Nouws]

Hallo

Is het mogelijk om een gegevensveld (A t/m Z) te filteren met 2 comboboxen?
1e combobox zou dan de namen (kolom D) moeten filteren. (1e filtering)
2e combobox, wil ik een keus maken welke van de 9 kolommen ( kolom G t/m O) ik wil filteren (2e filtering)

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Ik denk dat je hier wel wat mee kan, staat een voorbeeld bestandje in.

 

[Jack Nouws]

Jack Nouws,

Ik denk dat je hier wel wat mee kan, staat een voorbeeld bestandje in.

Hoi Wim,

Ik heb je voorbeeld bestandje bekeken en dit is niet echt wat ik bedoel. Ik heb zelf een voorbeeld bestandje gemaakt en daar staan allemaal gegevens op.
Nu wil ik met combobox 1 het plantsoort uitfilteren kolom D. Daarna wil ik met combobox 2 een keus kunnen maken, om met kolom G,H,I,J,K,L,M,N of O een volgende filtering uit te kunnen voeren, op de selectie van combobox 1. Ik hoop dat je hier iets voor me kan doen. Ik zou zelf niet weten hoe ik met combobox 2 de selectie van combobox 1 verder kan uitfilteren. Ik heb al diversen topics bekeken maar ik kan geen raakvlakken vinden om dit verder op te lossen. Wat ik wel heb gevonden is een mooi stukje code van SNB waar combobox 1 op draait, en ik hoop op een simpele oplossing voor combobox 2.

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Waarom gebruik je niet gelijk het filter?

Tevens heb ik de formule in kolom N zo gewijzichd zodat de nul niet zichtbaar is.

=ALS(OF(L5=0;M5=0);"";ALS(SOM(L5-M5)=0;"";SOM(L5-M5)))

 

[Jack Nouws]

Jack Nouws,

Waarom gebruik je niet gelijk het filter?

Tevens heb ik de formule in kolom N zo gewijzichd zodat de nul niet zichtbaar is.

=ALS(OF(L5=0;M5=0);"";ALS(SOM(L5-M5)=0;"";SOM(L5-M5)))

Hallo

Om vergissingen te voorkomen wil ik, dat wanneer er een keus gemaakt wordt in combobox2, dat alleen de gekozen kolom zichtbaar is, dus van de 9 kolommen worden er 8 verborgen. Dit alles voor een beter overzicht!
Aangezien ik nog steeds met dit progje bezig ben worden het steeds meer kolommen en steeds meer getallen.

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Ik heb een klein beginnetje gemaakt, kijk of dit de bedoeling is.
Het item leverancier werkt.
Verder kan je het zelf wel denk ik en er zal wel iemand zijn die een betere code heeft maar ik denk dan maar het werkt.

 

[Jack Nouws]

Jack Nouws,

Ik heb een klein beginnetje gemaakt, kijk of dit de bedoeling is.
Het item leverancier werkt.
Verder kan je het zelf wel denk ik en er zal wel iemand zijn die een betere code heeft maar ik denk dan maar het werkt.

Hallo Wim,

Hartelijk bedankt, dit had ik juist nodig. :thumb: :thumb:

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Graag gedaan.
Als je de ComboBox1 leeg maakt is alles weer normaal.
Vergeet je hem niet als opgelost te zetten als je tevreden bent.

 

[Jack Nouws]

Jack Nouws,

Graag gedaan.
Als je de ComboBox1 leeg maakt is alles weer normaal.
Vergeet je hem niet als opgelost te zetten als je tevreden bent.

Hoi Wim

Ik kon het niet laten om nog in die code van je te rommelen, en ik ben tot dit resultaat gekomen.

Private Sub combobox2_change()
Dim c As Range

On Error Resume Next

    If ComboBox1.Value = "" Then
        ComboBox2.Value = ""
        [G2].Value = ""
        Else
            Set c = Sheets("Blad1").[G4:O4].Find([G2].Value, LookIn:=xlValues)
                For Each c In [G4:O4]
                    If c.Value = [G2].Value Then
                        Columns("G:O").Hidden = True
                        Columns([H2].Value).Hidden = False
                    End If
                Next c
    End If
End Sub

Naast het bereik van Combobox2 (AF3:AF10) heb ik een bereik gemaakt met kolomletters. Dmv VERT.ZOEKEN wordt in cel H2 de kolom letter weergegeven en die bepaald in de code welke kolom zichtbaar moet blijven.

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Ik kon het niet laten om nog in die code van je te rommelen, en ik ben tot dit resultaat gekomen.

Dat is je goed recht, om er in te rommelen.

Je code heb ik er in gezet maar helaas werkt het bij mij niet, ik krijg als ik klant in ComboBox2 selecteer, geen kolom klant te zien.

Doet hij het bij jou wel?

 

[Jack Nouws]

Jack Nouws,


Dat is je goed recht, om er in te rommelen.

Je code heb ik er in gezet maar helaas werkt het bij mij niet, ik krijg als ik klant in ComboBox2 selecteer, geen kolom klant te zien.

Doet hij het bij jou wel?

Natuurlijk, kijk maar eens.

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Natuurlijk, kijk maar eens.

Ja je heb gelijk, alleen kun je geen plantnaam selecteren, wel een getal.

Suc6

 

[Hoornvan]

Jack Nouws,

Nog 1 kleine opmerking (positief bedoeld)
Je heb 2x geleverd en 2x te leveren staan maar je ziet er daar maar 1 van.
Misschien moet die 2 stuks een andere naam geven b.v.b. reeds geleverd en nog te leveren.

De code is een stuk korter dan de mijne maar dat was een aanzet voor jou.

 

[snb]

Of:

Private Sub ComboBox1_Change()
    If ComboBox1.Value = "" And Sheets(1).FilterMode = True Then
        [Blad1!A4].CurrentRegion.AutoFilter
    ElseIf Sheets(1).FilterMode = False Then
        [Blad1!A4].CurrentRegion.AutoFilter 2, ComboBox1.Value
    End If
End Sub

Private Sub combobox2_change()
    If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
        Sheets(1).Columns("G:O").Hidden = True
        Sheets(1).Columns(ComboBox2.ListIndex + 7).Hidden = False
    End If
End Sub

verwijder voor combobox1 en combobox2 de linkedcell.
verwijder de formule in H3
maak van beide een type dropdownlist.
combobox1.listfillrange AA1: AA20 en zorg dat AA1 leeg is.
combobox2.listfillrange AF1:AF12 en zorg dat AF1 leeg is.