Prikazi cijelu temu 14.01.2019 16:38
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Kako da obrisem redove sa markiranim celijama
Jesi isprobao primjer od Gjoreskog?
ako jesi i radi to je to a ako jesi i opet se smrzne probaj ovo:

na pocetku svake funkcije ubaci ovo:

PreuzmiIzvorni kôd (Text):
  1. With Application
  2.         .Calculation = xlCalculationManual
  3.         .ScreenUpdating = False
  4. End With

a na kraju svake funkcije ubaci ovo:

PreuzmiIzvorni kôd (Text):
  1. With Application
  2.         .Calculation = xlCalculationAutomatic
  3.         .ScreenUpdating = True
  4.     End With

ili ovo
na pocetku:

PreuzmiIzvorni kôd (Text):
  1. With Application
  2.         .Calculation = xlCalculationManual
  3.         .ScreenUpdating = False
  4.         .EnableEvents = False
  5.     End With

na kraju:
PreuzmiIzvorni kôd (Text):
  1. With Application
  2.         .Calculation = xlCalculationAutomatic
  3.         .ScreenUpdating = True
  4.         .EnableEvents = True
  5.     End With

mozda ti se excel nije smrznuo vec se zaglavio u nekoj petlji. Mozda je naisao na praznu celiju ili nesto sto ne odgovara uvjetima koji su zadani. Ako napise not response ili tako nesto pritisni Ctrl+Break
zaustavice se izvrsavanje koda i stat ce na mjestu gdje se zaglavio. Provjeri celiju koju trenutno obraduje ili red pa ju isto tako provjeri u Listu, sta se u njoj nalazi

mozda bi treblao upisati dio koda koji provjerava dali je celija prazna:
Do While (Cells(lRow, "A") <> "") ili tako nesto da se osiguramo da ne zaglavi.

Mozda nam se cini ponekada da se excel smrznuo no on naporno radi pa zato upotrebljavamo nesto od sljedeceg kod brisanja puno redova kao preventiva od smrzavanja:

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
rngCopyRangeVisible.EntireRow.Delete
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 14.01.2019 16:40 od strane Avko.