Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
29.09.2004. problem sa gausovom krivom
09.02.2005. Brisanje redova iz tablica
16.07.2005. brisanje oznacenog u ListBox-u (borland)
04.02.2006. Kako se povezati na Access bazu podataka preko AS..
16.11.2006. [Excel] Automatsko brisanje redova?
04.12.2006. [Excel] Makro naredba replace
19.02.2007. [Excel] Selektivno brisanje praznih redova
16.08.2007. [Excel] da li neko ima makro za brisanje praznih ..
18.11.2007. [Excel] Velicina Excel fajla

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Makro za brisanje redova u kojima je vrednost 0

[es] :: Office :: Excel :: Makro za brisanje redova u kojima je vrednost 0

[ Pregleda: 1780 | Odgovora: 4 ] > FB > Twit

Autor

predrag69

Član broj: 256899
Poruke: 28
*.85.98.158.neotel.mk.

+3 Profil

Makro za brisanje redova u kojima je vrednost 0

^{01.05.2014. u 08:39 - pre 121 meseci}

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.

Prikačeni fajlovi

izvestaj.xls - 70.5k

Odgovor na temu

radulence84
Radoslav Mladenovic
Student
Svilajnac,Srbija

Član broj: 246603
Poruke: 35
*.3gnet.mts.telekom.rs.

+2 Profil

Re: Makro za brisanje redova u kojima je vrednost 0

^{01.05.2014. u 14:00 - pre 121 meseci}

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"

Odgovor na temu

predrag69

Član broj: 256899
Poruke: 28
*.cabletel.com.mk.

+3 Profil

Re: Makro za brisanje redova u kojima je vrednost 0

^{01.05.2014. u 20:41 - pre 121 meseci}

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

Odgovor na temu

radulence84
Radoslav Mladenovic
Student
Svilajnac,Srbija

Član broj: 246603
Poruke: 35
*.3gnet.mts.telekom.rs.

+2 Profil