Waarden in kolom filteren met formule

Question

De kolommen B t/m BA hebben in de 1e rij de weken van een jaar staan genummerd van 1 t/m 52. Kolom A bevat klantnamen. Als een klant in week 1 een dienst afneemt staat er een 1 onder week 1, bij afname in week 2 is dat een 2 etc. Wordt er geen dienst afgenomen in een week dan staat er een 0.

Klein voorbeeld:

	1	2	3	4	5
Klant A	1	2	3	4	5
Klant B	1	0	3	0	5
Klant C	0	2	0	4	0
Klant D	1	0	3	0	5
Klant E	1	2	0	4	5

Ik wil het blad zo inrichten dat in bijvoorbeeld week 4 automatisch alle klanten die in die week een dienst afnemen worden gefilterd, en dus de namen van de klanten die GEEN dienst afnemen verborgen worden. Ik zie dan dua alleen klant A, C en E.

Niet dat het te veel werk is om met autofilter het nulletje weg te vinken, maar ik maak iets voor een vriend van me die een echte digibeet is en hij gaat het bestand zeker verzieken. Het moet allemaal zo automatisch mogelijk gaan zodat hij niet de kans krijgt iets fout te doen.

Ik hoop dat ik duidelijk ben.

Kan dit met geavanceerd filteren? Het lukt mij niet bijvoorbeeld de formule =WEEKNUMMER(NU()) in het filter in te passen zodat dit automatisch in elke week van het jaar gebeurt.

Groet, Ewout.

Answer 1

Ewout,

Ik denk dat ik je begrijp.

Pas je het filter toe zoals ik dat eerder aangaf in Blad1 en zet je op Blad2 een ComboBox uit de ActiveX_Besturingselementen, en zet je onderstaande code in de module van ThisWorkbook, dan wordt er gefilterd bij het openen van het bestand en wordt de lijst van de combobox gevuld met de namen van die week.

Overigens zou ik liever een keuzelijst gebruiken, dan hoef je de lijst niet open te klappen. Of je zet de (gefilterde) namen rechtstreeks in Werkblad Blad2 zonder besturingselement dus.

Private Sub Workbook_Open()

    Dim i As Long

    Sheets("Blad2").ComboBox1.Clear

    With Sheets("Blad1")

        .Range("B4:BA10").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

        .Range("B1:BA2"), Unique:=False

        For i = 5 To 1000

            If .Range("A" & i).EntireRow.Hidden = False _

                And Len(.Range("A" & i)) > 0 Then

                Sheets("Blad2").ComboBox1.AddItem .Range("A" & i)

            End If

        Next

    End With

End Sub

Jan