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.
Hvala.
Makro za brisanje redova u kojima je vrednost 0
Zaključano
Zakačeno
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
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"
Hvala na pomoci ovo radi. Kako bi mogao da ga koristim za bilo koji excel fajl.
Objasnjenje imas ovde
Ako bude jos nekih nejasnih stvari, javi se.
Ako bude jos nekih nejasnih stvari, javi se.
Izvini sto se ranije nisam javio imao sam nekih obaveza. Sredio sam zahvaljujuci tvojoj pomoci. Hvala ti puno.
Pozdrav
Pozdrav