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

• #28250 Mittu88 senior tag coldfirexx #28249

  Új Válasz 2015-08-27 12:33:51 #28250

  Ú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 #28249 üzenetére

  Sub adattorles()

  Dim i as integer
  Dim j as integer

  Worksheets("Alapadatok").Activate
  j = 0
  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
  j = j + 1
  End if
  Loop until Cells(i, 1).value = "" 'Addig megy az első oszlopon végig, amíg nem talál üres cellát

  Msgbox "A művelet sikeresen lefutott, " & j & " sor került eltávolításra", vbokonly

  End sub

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