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

• #42916 p5quser tag

  Új Válasz 2020-01-30 20:16:43 #42916

  Ú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

  

  p5quser

  tag

  Sziasztok!
  Nem jövök rá mi lehet a baj ezzel a pár hónappal ezelőtt még működő scripttel.
  Az első munkalap első oszlopában lévő dátumokra nevezte át a munkalapokat. Néha beszúrtak munkalapokat a dátumosok elé, azért kérdez rá hogy honnan kezdje.
  Most viszont "subscript out of range"-dzsel hibára fut. Ha csak az index számot beírom az inputbox helyére, akkor is. Azon a munkalapon futtatom, amelyiken az A1:A31 range van.
  Előre is köszönöm!

  Sub RenameSheets()
    Dim c As Range
    Dim J As Integer
    J = Sheets(InputBox("Melyik laptól kezdjem?")).Index - 1 'Kezdő sheet -1
  For Each c In Range("A1:A31")
        J = J + 1
        If Sheets(J).Name = "" Then J = J + 1
        Sheets(J).Name = c.Text
    Next c
End Sub

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