קוד מקרו לגיליון אינדקס

[roheshbon]

שלום לכולם

חלונות , אקסל 2019

יש לי אקסל עם מספר רב ומשתנה של גיליונות וגם שמות הגיליונות משתנים מפעם לפעם.

אני רוצה בעזרת קוד VBA להקים גיליון אינדקס ובו רשימה של שמות כל הגיליונות האחרים עם לינק לכל גיליון.

במידה שמתווסף או נגרע גיליון האינדקס צריך להתעדכן.

אודה לעזרתכם.

 

[ziv98]

קוד ליצירת אינדקס גיליונות, נראה בערך ככה:

On Error Resume Next

Application.DisplayAlerts = FALSE
Sheets("Index").Delete
Sheets.Add
ActiveSheet.Name = "index"
Application.DisplayAlerts = TRUE

[A1] = "Sheet List"

rw = 2

For Each sht In Sheets
    If sht.Name <> "Index" Then
        With Cells(rw, 1)
           
            .FormulaR1C1 = sht.Name
            .Hyperlinks.Add Anchor:=Cells(rw, 1), Address:="", SubAddress:=sht.Name & "!A1"
           
        End With
        rw = rw + 1
    End If
Next

יותר קל לבנות אינדקס מאפס, מאשר לחפש מה השתנה (איזה גיליון נוסף או נמחק).
את הקוד אפשר להכניס לאירוע פתיחת קובץ למשל.