[ bokan2007 @ 10.03.2010. 01:49 ] @


Dao sam primjer a samo cetiri reda ali je dosta veci broj redova od prilike oko 8000, ja trebam da uradim sledece:
Da obrisem sve redove u kojima je kolona D=0 odnosno prazna, u ovom primjeru trebao bih da obrisem 1 i 4 red.Kako bih to mogao da uradim ??? HVALA

[ 3okc @ 10.03.2010. 07:18 ] @
1/ Obeleži kolonu u kojoj su prazna polja: počev od prve ćelije pa do poslednje (u ovom slučaju D1:D5)
2/ CTRL+G (GoTo)
3/ Special...
4/ Izaberi opciju 'Blanks' i OK
5/ Delete > Delete Entire Row
[ mirko1949 @ 10.03.2010. 07:20 ] @
Sub deleteRow()
ColumntoDelete = "D"
For i = Cells(Rows.Count, ColumntoDelete).End(xlUp).Row To 1 Step -1
If Cells(i, ColumntoDelete) = "" Then Cells(i, "D").EntireRow.Delete
Next i
End Sub

Ovaj makro ti brise sve redove kada je u koloni D prazna celija. Pogledaj primer. Pozdrav
[ bokan2007 @ 10.03.2010. 09:21 ] @
Sta da drugo kazem nego hvala punoooo
[ 3okc @ 10.03.2010. 09:53 ] @
Kada je u pitanju VBA rešenje, može i bez procedure:

1/ ALT+F11 (otvara VBA Editor)
2/ CTRL+G (otvara prozor Immediate)
3/ Unesi ovaj kod dole, +ENTER
Code:
Range("D1:D8000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[ branzino @ 06.03.2012. 22:37 ] @
Slicno pitanje, u pitanju je tabela ,popis robe gde treba da obrisem sve redove gde je rezultat 0
a ne prazno polje kao u prethodnom pitanju. kolona C- cena ; D-kolicina ; E=C*D e sada ako je D=0 i E je 0 i te redove treba da obrisem
[ component @ 07.03.2012. 07:15 ] @
Postavi filter nad tabelom. U filteru izaberi da vidiš one redove koje želiš da izbrišeš (u tvom slučaju E=0) i obeleži i obriši redove.
[ 3okc @ 07.03.2012. 07:59 ] @
Možeš iskoristiti i pretohdna rešenja, za prazne ćelije.

Pod uslovom da u posmatranoj koloni imaš sve ćelije popunjene a brisao bi samo one sa 0, prethodno ih samo sve pobriši sa ReplaceAll.

Prethodno obeleži dodatne opcije - obavezno Match entire cell contents (da ne bi ošišao unete cifre), i, ako se radi o formulama potrebno je i Look in: VALUES.