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

• #6742 Fire/SOUL/CD félisten ulrik19 #6740

  Új Válasz 2010-04-01 12:31:04 #6742

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz ulrik19 #6740 üzenetére

  Hali!

  Jogos és logikus észrevétel, de megoldható for - next ciklussal is(persze ha ez/így kell WildBoarTeam-nek)

  Private Sub CommandButton1_Click()
  start_sheets = 2
  Sheets(start_sheets).Select
  Application.DisplayAlerts = False
  For i = start_sheets To Sheets.Count
  If ActiveSheet.Name = "Vége" Then
  Exit For
  Else
  ActiveSheet.Delete
  End If
  Next i
  Application.DisplayAlerts = True
  End Sub

  Meg kell adni, a kezdősheet indexét(lehet ezt is módosítani persze), a ciklus végig szalad kezdőindex-től a Sheetszámlálóig és törli(nem kérdez), ha menetközben megvan a "Vége" nevű Sheets, akkor kiugrik a ciklusból.

  Az teljesen jó meglátás volt, hogy úgymond törlés után "balra elmozdulnak" a lapok, és más indexet kapnak, épp ezért törlöm(dolgozom) mindig az aktuális sheets-el, merthogy az lép a helyébe.

  Fire.

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