Auto Filter

[stefano]

Hoe kan ik in VBA checken of de functie auto filter is ingeschakeld ?

Indien deze controle positief is, hoe kan ik dan auto filter uitschakelen ?

 

[Niels28]

Een voorbeeld

With ActiveSheet.Range("$A$5:$BC$301")
.AutoFilter
.AutoFilter Field:=2, Criteria1:="HUT"
End With

.autofilter zorgt voor de reset

Niels

 

[stefano]

De functie .Autofilter is alleen geldig binnen een blok With.

Hoe voeg ik dit

Sub BZUCD()
    
    Application.Run ("clear")

    Sheets("formule").Select
    Selection.AutoFilter Field:=4, Criteria1:="=BESCHADIGD ZETMEEL UCD"
    Rows("1:10002").Select
    Selection.Copy
    Sheets("WERKBLAD").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
        
 [COLOR="#FF0000"]   With ActiveSheet.Range("$A$5:$BC$301")
    .AutoFilter
    End With[/COLOR]
    Application.Run ("filter")

End Sub

 

[Niels28]

Wat is je bereik waarop gefiltert moet worden?
Probeer zoveel mogelijk select te vermijden, dit maakt de code leesbaarder
en hij werkt sneller.

Niels

 

[Warme bakkertje]

Plaats eens een voorbeeldbestandje zodat wij kunnen zien waar je heen wil.