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

Filter o.b.v. userform

Status
Niet open voor verdere reacties.
R

robertjl

Nieuwe gebruiker
Lid geworden
23 mei 2018
Berichten
3
Goedemiddag,

Ik loop vast met de code in mijn Excel bestand.

Filteren op kwaliteit werkt inmiddels. De functie alle kwaliteiten helaas niet.
Filteren op dikte werkt ook, maar niet van t/m wat ik graag zou willen.

Ook zou ik graag al deze filter variabelen in 1 code willen verwerken?

Is dit überhaupt mogelijk wat ik wil?

Bekijk bijlage Example.xlsm

Gr, Robert
 
voor alle kwaliteiten weer te geven kom ik hier op:
Code: 
Private Sub CommandButton1_Click()


    Dim filterValues()
    Dim counter As Long
    Dim ct As MSForms.Control
    
    For Each ct In Me.Controls
        If TypeName(ct) = "CheckBox" Then
            If ct.Caption = "All qualities" Then
                If ct.Value = True Then
                        ReDim Preserve filterValues(counter)
                        filterValues(counter) = "*"
                        counter = counter + 1
                End If
            Else
                If ct.Value = True Then
                        ReDim Preserve filterValues(counter)
                        filterValues(counter) = ct.Caption
                        counter = counter + 1
                End If
            End If
        End If
    Next ct
    If counter > 0 Then
        With ActiveSheet
            .AutoFilterMode = False
            With .Range("E1", .Cells(.Rows.Count, "E").End(xlUp))
            .AutoFilter
            .AutoFilter field:=1, Criteria1:=filterValues, Operator:=xlFilterValues
            End With
        End With
    End If
    End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan