[Excel] Brisanje cele vrste

[ToxiC]

imam tabelu koja sadrzi komponenete i njiove cene!
u koloni A su komponente u koloni B,C,D su cene!
e sad treba da mi se izbrise cela vrsta (naziv komponente i sve tri cene) u kojoj je cena u polju D 0.0!!

| A | B | C | D |
----------------------------------
asus A7v | 0.0 | 0.0 | 0.0 |
----------------------------------
msi kt4 | 34.8 | 37.9 | 42.0 |
----------------------------------
.
.
.

znaci u ovom slucaju treba da se izbrise vrsta asus A7v i sve tri cene (0.0)!!
posto imam u tabeli na hiljade artikala to bi trebao automatizovati! Pretpostavljam da ide preko
macro-a, ali sa njim nisam nikada radio! ako moze mala pomoc
:wave:

 

[Robert]

Najlakse ti je da uzmes da snimas makro. Onda uzmes da odradis to hoces (npr. brisanje celog reda, search ...).

Posle pogledas kakav ti je kod izgenerisao makro recorder (Visual Basic) i onda uzmes da ga menjas.

 

[ToxiC]

OK, pokusacu!
Posto nisam radio to nije mi ni palo napamet

 

[kibicer]

Ja (kao tanak poznavalac Excell-a) to radim na gluplji, ali meni sigurniji nacin:
Prvo naparvim novi kolonu, recimo E, i u njoj generisem (redne) brojeve od 1 pa dokle ima.
Zatim:
uradim Sort po D koloni, po rastucim vrednostima - tako sve sto ima cenu 0 bude na vrhu. Sada lako selektujes sve sto ima nulti cenu, pa delete svih tih vrsta.
Krajnji korak: sort po koloni E (opet po rastucim!) - da vratis redosled artikala u prvobitno stanje.

Cini mi se da ovako imas punu kontrolu, mogucnost greske gotovo nikakva.

Tip: u mojoj primeni, stavke koje treba brisati ili stavim na Hide (sakrijem ih), ili Cut - Paste u novi worksheet - desava mi se da se neke stavke vrate u ponudu - lako ih vracam nazad, a ista ona kolona E mi omogucava da ih vratim na prvobitno mesto (ako je to uopste vazno).

 

[CyberGasty]

Да ли су те три колоне са ценама само прост унос или је нека од њих формула?
Тачније да ли је нпр. колона Ц изведена из колоне Б са неком формулом или је неко ручно уносио цену компоненте у све три колоне за неки производ?

 

[CyberGasty]

Ево ти макро, требало би да ради:


Public Sub Brisanje()
'Makro napravio CyberGasty
Sheets("Sheet1").Select
' Pronadji poslednji red sa podacima
PoslednjiRed = Range("A65536").End(xlUp).Row
' Proveri svaki red (ukoliko tabela nema zaglavlje onda je i=1)
For i = 2 To PoslednjiRed
' Kolone sa cenama
Cena1 = Range("B" & i).Value
Cena2 = Range("C" & i).Value
Cena3 = Range("D" & i).Value
' Provera da li su sve tri celije nula
If Cena1 = 0 And Cena2 = 0 And Cena3 = 0 Then
Range("A" & i & "" & i).delete
End If
Next i
End Sub

Видим да прави смајлије од кода, онда је ћирилица боља - уместо оног зеленог гада треба да буде ":Д"

 

[ToxiC]

Hvala puno na macro-u, uradio sam kako je kibicer rekao!
U svakom slucaju probacu i macro