טיפ לקבלת רשימת הגיליונות בקובץ באמצעות אקסל VBA
יש לך קובץ אקסל עם הרבה גיליונות ?
רוצה לקבל את רשימת הגיליונות בקובץ אקסל?
כאשר יש הרבה גיליונות בקובץ אקסל , יכול להיות נוח כאשר יש רשימה של כל הגיליונות , מאפשר לכתוב תיעוד ליד שם כל גיליון , להדפיס את רשימת הגיליונות ועוד.
בגיליון בשם ריכוז בקובץ בו כתוב המאקרו נקבל רשימת גיליונות בעמודה A החל מהתא A2
Sub sheets_list()
For i = 1 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets("ריכוז").Cells(i + 1, 1) = Sheets(i).Name
Next i
End Sub
אפשר להוסיף למאקרו VBA קוד להדפסת הרשימה.

מיכל שלום,
"בעזרת תיקון קטן, אין צורך להגדיר מראש את גיליון "ריכוז
:חוץ מזה, אני תמיד מעדיף להגדיר את משתני התכנית בעזרת
Option Explicit
Option Explicit
Sub sheets_list()
Dim i As Integer
Dim cnt As Integer
cnt = ThisWorkbook.Sheets.Count
ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(cnt)).Name = "ריכוז"
For i = 1 To cnt
ThisWorkbook.Sheets("ריכוז").Cells(i + 1, 1) = Sheets(i).Name
Next i
End Sub
בס"ד
לא ידעתי שדבר כזה קיים,
כמה שזה יכול לעזור לי!
רב תודות!!!