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

• #3079 Delila_1 veterán sonar #3078

  Új Válasz 2008-02-01 12:51:55 #3079

  Ú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

  

  Delila_1

  veterán

  válasz sonar #3078 üzenetére

  Kösz szépen a könyv címét.
  A fenti makród most azokat a sorokat törli, amelyekben nem szerepel 0. Eddig nem fordítva akartad? Ha igen, akkor csak a feltételt kell módosítani, If nev <> 0-ra.
  Az i=19 helyett elegánsabb az Exit For.
  Minden feladatot több módon lehet végrehajtani, itt egy másik, ez a nullás sorokat törli.

  For x = 2 To 10
  For i = 0 To 19
  nev = Cells(x, i + 7)
  If nev = "0" Then
  Rows(x).Select
  Selection.Delete Shift:=xlUp
  x = x - 1
  Exit For
  End If
  Next i
  Next x

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