Sinds een tijdje ben ik met behulp van YouTube bezig om een advanced filter in excel te zetten.
De gebruiker kan filteren op het onderwerp 'maand' of 'categorie' via een list-box in een user-form in de data-sheet.
Op dit moment kan de gebruiker al wel op maand EN categorie selecteren maar nog niet alleen op een van de twee omdat er ergens in het laatste gedeelte een fout in de code zit. Hiervoor wil ik excel een loop laten maken door een cellenbereik en afhankelijk van de waarde er een advanced-filter op zetten. Iemand tips?
De gebruiker kan filteren op het onderwerp 'maand' of 'categorie' via een list-box in een user-form in de data-sheet.
Op dit moment kan de gebruiker al wel op maand EN categorie selecteren maar nog niet alleen op een van de twee omdat er ergens in het laatste gedeelte een fout in de code zit. Hiervoor wil ik excel een loop laten maken door een cellenbereik en afhankelijk van de waarde er een advanced-filter op zetten. Iemand tips?
Code:
Columns("O:O").Select
Selection.Clear
Dim i As Integer
For i = 0 To ListBoxCategorie.ListCount - 1
If ListBoxCategorie.Selected(i) = True Then
Range("O400").End(xlUp).Offset(1, 0).Value = ListBoxCategorie.List(i)
Else
End If
Next
Columns("L:L").Select
Selection.Clear
Dim x As Integer
For x = 0 To ListBoxMaand.ListCount - 1
If ListBoxMaand.Selected(x) = True Then
Range("L400").End(xlUp).Offset(1, 0).Value = ListBoxMaand.List(x)
Else
End If
If Range("m2:m13").Value And Range("n2:n9") <> "" Then
Range("a8:g352").AdvancedFilter xlFilterInPlace, Range("m2:m13")
Else
End If
If Range("m2:m13") <> "" And Range("n2:n9").Value Then
Range("a8:g352").AdvancedFilter xlFilterInPlace, Range("n2:n9")
Else
End If
If Range("m2:m13").Value And Range("n2:n9").Value Then
Range("a8:g352").AdvancedFilter xlFilterInPlace, Range("m2:n13")
Else
End If
Unload Me
End Sub