Új hozzászólás Aktív témák

• #28246 Mittu88 senior tag coldfirexx #28244

  Új Válasz 2015-08-27 11:30:09 #28246

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mittu88

  senior tag

  válasz coldfirexx #28244 üzenetére

  Ha van egy olyan sorod, amiben végig vannak adatok, akkor a következőt csináld a For ciklus helyett:
  i = 0
  Do
  i = i + 1
  If Cells(i, 31).value = "A szerződés előző évben lejárt" then 'A 31 az AE oszlop száma
  Cells(i, 31).entirerow.delete
  i = i-1
  End if
  Loop until Cells(i, végigtöltöttsor sorszáma).value = "" 'Addig megy, amíg nem talál üres cellát

  Amúgy a CountIf függvény lassítja nagyon, nincs rá szükség. Simán a cella értékét (value) vizsgáld.

Új hozzászólás Aktív témák