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"