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

• #6743 Fire/SOUL/CD félisten WildBoarTeam #6741

  Új Válasz 2010-04-01 13:07:25 #6743

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

  Hali!

  Akkor összefoglalom, adott egy munkafüzet benne 9 darab FIX munkalappal az elején(ezek indexe 1-től 9-ig van). Ezek állandóak, nem törlődnek. Ezen felül létrehozol különböző számú munkalapot, amik nyilván a 10-es indextől kezdődnek. Az a feladat, hogy a 9 FIX munkalapon felül az összes munkalap törlése kerüljön, számától, nevétől függetlenül.

  Ha ez a szitu, akkor csak egy minimális változtatás a korábbi kódon és kész

  Private Sub CommandButton1_Click()
  start_sheets = 10
  Sheets(start_sheets).Select
  Application.DisplayAlerts = False
  For i = start_sheets To Sheets.Count
  ActiveSheet.Delete
  Next i
  Application.DisplayAlerts = True
  End Sub

  Fire.

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