-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs