Filter instellen met VBA

[MJONK]

Goedemorgen allemaal,

Ik heb een code gemaakt/opgenomen die enkele waarden invoegt in een sheet.

ActiveSheet.Range("$A$1:$M$668").AutoFilter Field:=13
ActiveWorkbook.Sheets("blad1").Range("A1:G3000").ClearContents
ActiveWorkbook.Sheets("blad1").Range("A1").Select
ActiveSheet.Paste
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(7, 1), Array(50, 1), Array(63, 1), _
Array(66, 1), Array(68, 1)), TrailingMinusNumbers:=True
Range("A1:G3000").Select
Cells.EntireColumn.AutoFit

In de eerste regel wordt de autofilter uit gezet voor field 13.

Nu wil ik in de laatste regel dat het autofilter automatisch de 0 weglaat en alle andere waarden toestaat. Als ik de actie opneem, krijg ik in de code alle waarden staan die blijven staan in de filter. Ik wil het juist andersom, dus alleen de 0 invoeren en alle andere waarden gewoon laten zien.

Is dit mogelijk???

Alvast bedankt.

Mjonk

 

[DCWDPT]

volgens mij zo

Volgens mij moet je dan dit gebruiken:
Selection.AutoFilter Field:=13, Criteria1:="<>0"

:thumb:

 

[MJONK]

helaas,

in het autofilter wordt met deze code niets geselecteerd, alle vakjes zijn leeg.

 

[MJONK]

excuus! het werkt helemaal perfect.!

alleen in het schermpje stond het anders weergegeven dan wat ik normaal deed.

Hartstikke bedankt.