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

• #21798 Attas aktív tag

  Új Válasz 2014-05-27 18:57:29 #21798

  Ú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

  

  Attas

  aktív tag

  Szia! Még egy kis help kellene. Olyan makró kellene ami a munkafüzetben a sorsolás és összesítő nevü lapokon kívül minden más lapot kitöröl. a törlésre kerülő lapok száma változó, de a nevük a hónapok nevei. legjobb esetben 12 lapról van szó. Megoldható lenne? Vagy ha ezen lapok nevei így kezdődn, hogy 1 Január; 2 Február..stb akkor ez működne?
  Private Sub CommandButton1_Click()
  start_sheets = 1
  Sheets(start_sheets).Select
  Application.DisplayAlerts = False
  For i = start_sheets To Sheets.Count
  ActiveSheet.Delete
  Next i
  Application.DisplayAlerts = True
  End Sub

  De szebb lenne, ha nem kellene számozni a hónapokat.

  Köszönöm előre is!!!

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