excel- uslovno brisanje

excel- uslovno brisanje

offline
  • Pridružio: 27 Jun 2009
  • Poruke: 525
  • Gde živiš: Prijepolje-Srbija

imam u jednoj koloni spisak proizvoda, kako da na primer obrisem sve proizvode koje pocinju na slovo "B" ? GUZ - Glavom U Zid



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14824
  • Gde živiš: Niš

Možeš li da sortiraš proizvode? Trebalo bi da može, pretraži malo. Posle toga je lako...



offline
  • higuy  Male
  • Legendarni građanin
  • penzionisani tabijatlija
  • crni hronicar
  • Pridružio: 21 Apr 2010
  • Poruke: 8565
  • Gde živiš: Dubocica

Napisano: 10 Avg 2014 21:07

Prosto. Sortiraj po kriterijumu koji si naveo, i izvrsi brisanje.

Dopuna: 10 Avg 2014 21:09

Koja verzija Excel-a je u pitanju.

offline
  • Pridružio: 27 Jun 2009
  • Poruke: 525
  • Gde živiš: Prijepolje-Srbija

07 je u pitanju...
znam za to, al proizvodi su sortirani prema sifri iz druge kolone, pa se u tom slucaju izmesaju, pa moraju opet da se sortiraju. a i ponekad ima mnogo proizvoda pa rucno brisanje zahteva puno vremena.
mada lik koji me je pitao za pomoc kaze da je ranije radio preko neke opcije to al ne moze da se seti koje Razz

offline
  • higuy  Male
  • Legendarni građanin
  • penzionisani tabijatlija
  • crni hronicar
  • Pridružio: 21 Apr 2010
  • Poruke: 8565
  • Gde živiš: Dubocica

AutoSort. Tj. AutoFilter

http://office.microsoft.com/en-001/excel-help/filt.....73941.aspx

offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14824
  • Gde živiš: Niš

Pa jednostavno je - sortiraj prema nazivu, pobriši šta treba, sortiraj prema šifri. Simple as that.

offline
  • Pridružio: 19 Feb 2007
  • Poruke: 1833

Направи макро са овим кодом. Црвене бројке представлјљнју број колоне у којој се налазе потребни подаци. Упиши број твоје колоне.

Sub brisanje_redova()
Dim nred As Long, i As Long
nred = Cells(Rows.Count, 1).End(xlUp).Row
For i = nred To 1 Step -1
If Left(Cells(i, 1).Value, 1) = "B" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Ko je trenutno na forumu
 

Ukupno su 969 korisnika na forumu :: 20 registrovanih, 4 sakrivenih i 945 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Andrija357, Apok, babaroga, bbogdan, bokisha253, djuradj, Dorcolac, HogarStrashni, mercedesamg, mikrimaus, MILO-VAN, milos97, mnn2, nebidrag, Nemanja.M, procesor, proka89, sombrero, Srle993, Živković