Makro za brisanje redova u kojima je vrednost 0

[ predrag69 @ 01.05.2014. 08:39 ] @

Zdravo. Potreban mi je makro za brisanje redova ako je u nekoj koloni vrednost 0. Ili konkretno u mom primeru ako je u koloni Q vrednost 0 ( nula) da se kada pokrenem Makro ti redovi izbrisu.
Hvala.

[ radulence84 @ 01.05.2014. 14:00 ] @

Code:
Sub DeleteRowswherevaluezero()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual   'pre XL97 xlManual
  Dim Rng As Range, ix As Long
  Set Rng = Intersect(Range("Q:Q"), ActiveSheet.UsedRange)
  For ix = Rng.Count To 1 Step -1
      If Trim(Replace(Rng.Item(ix).Text, Chr(160), Chr(32))) = "0" Then
        Rng.Item(ix).EntireRow.Delete
      End If
  Next
done:
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub

Ovo vazi za Q kolonu ali mozes da menjas kod.
Ako zelis drugu kolonu, zameni ovaj deo "Q:Q"
Ako zelis drugu vrednost, zameni ovaj deo "0"

[ predrag69 @ 01.05.2014. 20:41 ] @

Hvala na pomoci ovo radi. Kako bi mogao da ga koristim za bilo koji excel fajl.

[ radulence84 @ 01.05.2014. 20:55 ] @

Objasnjenje imas ovde
Ako bude jos nekih nejasnih stvari, javi se.

[ predrag69 @ 08.05.2014. 08:14 ] @

Izvini sto se ranije nisam javio imao sam nekih obaveza. Sredio sam zahvaljujuci tvojoj pomoci. Hvala ti puno.
Pozdrav