Meerdere Autofilers in een scenario

[Rap261]

Hallo,


Zie bijgaand voorbeeld.
Wanneer je op de knop "Filter resultaat" klikt wordt een Form geopend met 2 ComboBoxen en 4 Checkboxen
Op dit moment heb ik alleen een macro die filtert op de Checkboxen (Met dank aan SNB) en het resultaat wordt getoond op rij 17 in sheet 1

De bedoeling is dat alles gefilterd wordt beginnend bij Combo1 dan Combo2 en dan een van de Checkboxen
Vraag is nu: Hoe kan ik meerdere Autofilters plaatsen?
Zie onder mijn een van mijn pogingen

Private Sub CommandButton1_Click()
If ComboBox1.Value = "inbound" And ComboBox2.Value = "Barco NV" And CheckBox1 = True Then
    With Range("C5:C10")
    .AutoFilter 2, "inbound"
    With Range("D5:D10")
    .AutoFilter 3, "Barco NV"
    With Range("B5:B10")
    .AutoFilter 1, "Y"
    .Columns(1).Resize(, 3).Copy Sheets(1).Range("B17")
    .AutoFilter
    End With
End If
End Sub

 

[Rap261]

Volgens mij is dit hem..

Private Sub CommandButton1_Click()
If ComboBox1.Value = "inbound" And ComboBox2.Value = "Barco NV" And CheckBox1 = True Then
    With Range("B5:D10")
    .AutoFilter 1, "Y"
    .AutoFilter 2, "Inbound"
    .AutoFilter 3, "Barco NV"
    .Columns(1).Resize(, 3).Copy Sheets(1).Range("B17")
    .AutoFilter
    End With
End If
UserForm1.Hide
End Sub

 

[Rap261]

Ja, en met nog een aanpassing in de range + offset in de kopieer regel werkt het