إدراج كل أسماء صفحات العمل طريقتان (الكود - الدوال) #88 - إكسل

[@MahmoodAboshleh]

Sub SheetNamesAcrossColumns()
Dim iSheet As Long
For iSheet = 1 To ActiveWorkbook.Worksheets.Count
ActiveCell.Offset(iSheet - 1, 0) = Worksheets(iSheet).Name
Next iSheet
End Sub

[@mohmedasadi73]

احسنت استاذ وجعله في ميزان حسناتك انت موسوعه علميه متكامله

[@Reduce_Scan]

+‫محمد الاسدي‬‎ جزاك الله خيرا أخي محمد وأنا أقدر دعمك لي وأنا أقل مما تتصور لكن الفكرة أننا بنحاول نبحث ونتعلم قدر مايوفق الله تعالى

[@mohmedasadi73]

+‫محمد حلمي‬‎ بارك الله فيك استاذي

[@Emad_ghazi]

روعة استاذنا الله يبارك فيك

[@Reduce_Scan]

الله يكرمك أخي عماد وشرفتنا بتعليقكك

[@MrMemomm]

ما شاء الله

[@Reduce_Scan]

جزاك الله خيرا أخي محمد وشرفتنا بتعليقك

[@abdelhalimabdallah6255]

السلام عليكم - لو متاح رابط علي جوجل درايف او ميديا فاير -لان رابط الفيس لا يعمل

[@Reduce_Scan]

عليكم السلام ورحمة الله وبركاته
مع دوال أكسل 365
هذا الحل أفضل
ua-cam.com/video/oKXxA1SjEhc/v-deo.html

[@mostafaghazali3573]

محتاجين ال speedometer شرح

[@mahmoudhanfy5054]

حضرتك انسان جميل والله
ربنا يجزيك خير
بس ليا طلب بعد اذنك
ينفع خضرتك تعمل play list

[@Reduce_Scan]

+Mahmoud Hanfy الله يكرمك أخي الكريم
بالفعل موجودة لكن للإسف لاتضم كل المقاطع حسب فئتها وإن شاء الله في مرحلة قادمة نظبتها بشكل أفضل

[@mahmoudhanfy5054]

انا متابع خضرتك
ياريت تستمر

[@Reduce_Scan]

إن شاء الله ودعواتك أخي محمود

[@mahmoudhanfy5054]

مش اعرف والله بس هخاول اتعلمها

[@ebad35]

السلام عليكم كنت عايز اعرف طريقة الذهاب الي صفحة معينة في خلية في الصفحة الرئيسية وادمجها مع دالة sum ifs
وجزاكم الله خيرا
تحيتي لحضرتك