Opgelost filter op kolom aan of uit

[drholly]

Ik ben op zoek naar een makro (zodat ik hem aan een knop kan koppelen)
die wisselt tussen alles laten zien in een kolom of alleen lege cellen.

ik krijg het helaas zelf niet voor elkaar

 

[peter59]

Heb je de macro-recorder al eens geprobeerd?

 

[drholly]

ja, maar die ziet niet waar de filter al op staat.
dus als de filter op lege cellen staat moet hij wisselen naar alles laten zien en als hij alles laat zien wisselen naar alleen lege cellen.

of ben ik te ambitieus ;-)

 

[jkpieterse]

Laat je opgenomen macro(s) maar eens zien. Liefst hebben we ook een representatief voorbeeldbestand

 

[drholly]

hierbij de opgenomen makro. Ik betwijfel of je hier iets mee kunt aangezien deze dus niet doet wat ik wil.
Daarnaast even een testbestandje gemaakt en bijgevoegd

Sub filter()
'
' filter Macro
'

'
ActiveSheet.Range("$A$1:$A$8").AutoFilter Field:=1
Range("A9").Select
End Sub

 

[emields]

Spijtig dat je er niet bij verteld waarop je wil filteren. Of weet je dat zelf niet?

 

[drholly]

volgens mij staat dat in de vraag, maar kort gezegd alles of niets.
maar ik zie dat mijn bestand voor onduidelijkheid zorgt.
ik heb een nieuwe toegevoegd waarbij de filter op kolom B dient te liggen.
Daar mot hij dus alles of alleen lege cellen laten zien.

 

[peter59]

Dient het perse met een macro te gebeuren?
Anders misschien met een slicer.

 

[drholly]

nee hoeft niet met een makro, maar ik ken de optie slicer niet vandaar.
zoiets is wel wat ik bedoelde maar is het ook mogelijk een aantal keuzes uit te schakelen?
zodat er maar 2 opties over blijft?

 

[emields]

alles of niets?

 

[drholly]

dat is hem!
dank je wel

 

[jkpieterse]

Als volgt. Deze code gaat ervan uit dat je altijd filtert op lege cellen in de tweede kolom.
Ik heb ook de tabel omgezet naar een "echte" tabel. Dat zal je met je echte bestand ook moeten doen wil dit werken. Sowieso aan te raden: als het lijkt op een tabel, altijd opmaken als tabel gebruiken.

 

[roeljongman]

Deze code doet wat je wilt volgens mij

Sub FilterLegecellen()

    If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    Else
        ActiveSheet.Range("$B$1:$B$16").AutoFilter Field:=1, Criteria1:="="
    End If
End Sub

zie ook bijlage


edit: lol de vernieuwen functie heeft een lichte vertraging op dit netwerk blijkbaar.
naja beter een oplossing te veel dan te weinig

 

[emields]

Als er geen bijkomend vragen zijn vergeet dan niet, in uw eerste post, de vraag als opgelost te zetten.