- Sub obrisiCrveniRed()
- Dim lRow As Long
- Dim iCntr As Long
- lRow = ActiveSheet.UsedRange.Rows.Count
- For iCntr = lRow To 1 Step -1
- If Cells(iCntr, 1).Interior.ColorIndex = 38 Then 'boja
- Rows(iCntr).Delete
- End If
- Next
- End Sub
White Man | 09.01.2019 19:24 |
---|---|
Predmet:Kako da obrisem redove sa markiranim celijama Kako da obrisem sve redove koji u sebi imaju markirane celije? Evo i primer. Hvala unapred |
|
Prilozi: doc.rar (Velicina datoteke:6.26 KB) |
Avko | 10.01.2019 15:37 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama nisi napiso jeli zelis vba kod, ili uz pomoc uvjetnog oblikovanja iz menija (condicion) Nisam neki strucnjak ali ovo mi je prvo palo na pamet. Ovo sam samo napisao primjer koji se moze dalje razvijati prema zelji. Kasnije se moze dodati: - odredeno podrucje-selektirano (rangeSeleczt) -odabrati boju koju zelis brisati |
|
Prilozi: doc_avko.rar (Velicina datoteke:10.58 KB) |
White Man | 10.01.2019 21:52 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama Kako ovo da ubacim u drugu tablicu? Hvala unapred |
Avko | 10.01.2019 22:22 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama zato sam pitao zelis li izbrisati ofarbane redove na unapred selektiranim redovima ili zelis da se to izvrsi na cijelom listu? |
White Man | 11.01.2019 01:06 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama Na celom listu, gde prepozna markiranu celiju da obrise sve redove. Hvala unapred |
Avko | 11.01.2019 11:03 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama otvoris excel pritisnes Alt+F11 izaberes iz menija insert + module u taj modul ubacis ovaj kod: PreuzmiIzvorni kôd (Text):
pritisnes Alt+Q za povratak u normalni list pritisnes Alt+F8 i sa popisa odaberes svoju makronaredbu ObrisiCrveniRed i kliknes na Pokreni |
White Man | 11.01.2019 11:47 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama Taj kod vec postoji u onom Vasem primeru, ja sam u taj fajl iskopirao tablicu i nece, obrise samo one prve koji postoje od pre. Iskopirao sam ponovo ovaj kod sa sajta i ponovo nece. Da nema neke veze sa nijansom boje? Meni je sam excel iz konditional/duplicate values obojio celije i sad trebam da obrisem redove. Excel je 2016 ako i to ima neke veze. Hvala unapred |
Avko | 11.01.2019 13:15 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama Citiraj White Man: Taj kod vec postoji u onom Vasem primeru, ja sam u taj fajl iskopirao tablicu i nece, obrise samo one prve koji postoje od pre. Iskopirao sam ponovo ovaj kod sa sajta i ponovo nece. Da nema neke veze sa nijansom boje? Meni je sam excel iz konditional/duplicate values obojio celije i sad trebam da obrisem redove. Excel je 2016 ako i to ima neke veze. Hvala unapred ima veze do color indexa, stavio sam 38 pa je obriso samo redove koji su imali 38. Postoji indexa 56 boja idemo probati vidjeti koje se sve boje nalaze pritisnes Alt+F11 izaberes iz menija insert + module u taj modul ubacis ovaj kod: (sada je to vec drugi modul modul2) PreuzmiIzvorni kôd (Text):
pritisnes Alt+Q za povratak u normalni list pritisnes Alt+F8 i sa popisa odaberes svoju makronaredbu ko****je Pokreni Sto je napisalo, koje brojeve? |
White Man | 11.01.2019 18:22 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama 2 i ispos 6. Sta sad treba da uradim? Hvala unapred |
Avko | 11.01.2019 19:22 |
---|---|
Predmet:Re: Kako da obrisem redove sa markiranim celijama u onom prvom kodu zamijenis 38 sa 2 i 6 ovako ovo If Cells(iCntr, 1).Interior.ColorIndex = 38 Then sa ovime If Cells(iCntr, 1).Interior.ColorIndex = 2 or Cells(iCntr, 1).Interior.ColorIndex = 6 Then ajde pa javi |