Prikazi cijelu temu 11.01.2019 10:03
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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):
  1. Sub obrisiCrveniRed()
  2.     Dim lRow As Long
  3.     Dim iCntr As Long
  4.     lRow = ActiveSheet.UsedRange.Rows.Count
  5.     For iCntr = lRow To 1 Step -1
  6.         If Cells(iCntr, 1).Interior.ColorIndex = 38 Then 'boja
  7.             Rows(iCntr).Delete
  8.         End If
  9.     Next
  10. End Sub

pritisnes Alt+Q za povratak u normalni list
pritisnes Alt+F8 i sa popisa odaberes svoju makronaredbu ObrisiCrveniRed i kliknes na Pokreni
zivot je moja domovina.