Macro om 0-en + blanks weg te filteren

[apanatska]

Geregeld maak ik wijzigingen op regels met een bepaalde code in een excelbestand, codes van 0 tm 1000.
Een ander tabblad telt alle wijzigingen op. Lang niet alle regels hebben een saldo.
Regel 1 t/m 10 kan bijv wel een saldo hebben en regel 11 tm 14 niet.

Om een goed overzicht te krijgen filter ik alle 0-en en blanks eruit, waarna ik soms weer wijzigingen maak in het bron-tabblad.
Vervolgens moet ik terug naar het verzameltabblad en moet de kolom weer filteren.
Best steeds een gedoe, nu wilde ik daar een filter voor bouwen, maar dat lukt me niet (ben geen macro-expert, ik deed met filter opnemen).

Oorzaak is dat ik een filter maak met de opname knop, toen filterde ik de 0-en en blanks.
Dan bouw je een macro die je wel 2x kunt gebruiken maar dan moeten de andere getallen niet veranderen, dat dus wel het geval is.

Weet iemand anders een macro die wel werkt?

Bvd.

 

[Joske2000]

Een voorbeeldbestandje zou veel duidelijk maken.

Joske

 

[apanatska]

de bijlage

Zie bijlage.

Macro gemaakt op eerste tabblad.
Wanneer je op tabblad bron iets verandert, kan de macro niet omgaan met nieuwe getallen en laat ie die ook niet zien.

Bekijk bijlage 2015_07_macro_blanks_nullen_eruit.xlsm

 

[arrie23]

ActiveSheet.Range("$B$3:$E$27").AutoFilter Field:=4, Criteria1:="<>", Criteria2:="<>0", Operator:=xlFilterValues

 

[Roncancio]

Iets korter en niet afhankelijk van welk werkblad actief is.

Blad1.Range("B3").AutoFilter 4, "<>", xlAnd, "<>0"

Met vriendelijke groet,


Roncancio