Code werkt anders dan hij is openomen

[grietsenwijma]

een code die ik heb opgenomen werkt niet zoals ik hem opgenomen heb

Wat hij moet doen en wat ik opgenomen heb is van de hele kolom alles selecteren met een waarde >0.95
Wat hij volgens mij echter doet is 2 filters toepassen, namelijk eerst alles NIET selecteren, en op de overblijvende selectie (geen selectie dus) het criterium >0.95 toepassen ...en dus niks vinden.

    Columns("AS:AS").Select
    Selection.AutoFilter
    ActiveSheet.Range("$AS$1:$AS$851").AutoFilter Field:=1, Criteria1:=">0,95" _
        , Operator:=xlAnd

Wie heeft een suggestie waar de fout kan zitten?

Alvast dank!

 

[LucHeyndrickx]

Alles er uit smijten wat overbodig is (en dat is bij opgenomen macro's véél).
Vervolgens er aan denken dat in Amerika een punt gelijk is aan een komma. Dus komma's vervangen.
En dan krijg je zoiets:

Columns("AS:AS").AutoFilter Field:=1, Criteria1:="> 0.95"

 

[snb]

Columns(45).AutoFilter 1, "> 0.95"