Aktív témák

• #316 matekmatika tag matekmatika #315

  2006-05-24 00:22:39 #316

  Ö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

  

  matekmatika

  tag

  válasz matekmatika #315 üzenetére

  Bár most hogy jobban megnézem az
  If cdec(Worksheet.Name) < 31 And cdec(Worksheet.Name) > 0
  sorral lehet ezt szeretted volna szűrni, de nem jó így mert ha olyan munkalapot szúrok be, amelyik nem hozható numerikus formátumra akkor ennél a sornál kiakad.
  Ezért egy picit alakítottam rajta:
  Sub x()
  For Each Worksheet In ActiveWorkbook.Worksheets
  Set nev = Worksheets(Worksheet.Name)
  If IsNumeric(Worksheet.Name) Then
  nev.Cells(1, 1) = Worksheet.Name
  End If
  Next
  End Sub

Aktív témák