cellen filteren indien niet 0 werkt niet

[Bjorkie]

Ik heb volgende code:

'
    'Copy Analytics options from Recorder page
    Worksheets("Recorders").Range("AJ31:AL40").AutoFilter
    Worksheets("recorders").Range("$AJ$31:$AL$40").AutoFilter Field:=2, Criteria1:=">=1", _
        Operator:=xlAnd
    'Selection.Copy
    Worksheets("recorders").Range("AJ32:AL38").Copy
    'select equipment page and paste values in first free row
    Worksheets("Equipment list").Select
    lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A" & lMaxRows + 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    'take away filter on recorders page
    Worksheets("recorders").Range("AJ31:AL40").AutoFilter

ik maak op sheet(recorders) een filter van een kleine lijst.
hier wil ik enkel de rows hebben waar in de 2de kolom een waarde staat groter dan 0
indien dit zo is, werkt het, maar indien er enkel overal 0 staat, dan kopieerd hij alle lijnen.
hij zou hier 'niets' mogen kopieren.
iemand die kan zien wat ik fout doe? of hoe ik mijn formule moet aanpassen

(verder heb ik hier nog steeds last van de beveiliging. staat nu tijdelijk uitgeschakeld in de Workbook.)
passwoord is 'test'

 

[Bjorkie]

gevonden

moest
Criteria1:=">=1",
vervangen door
Criteria1:="<>0",

 

[HSV]

Lijkt zoiets niet netter en beter?

Sub Selected_Switches()
   With Worksheets("Switch").Range("A344:C355")
   .Parent.Unprotect "test"
      .AutoFilter 2, "<>0"
      .Offset(1).Copy Worksheets("Equipment list").Cells(Rows.Count, 1).End(xlUp).Offset(1)
      .AutoFilter
   End With
End Sub