لو سمحتم انشاء قائمة باسماء الشيتات وعمل لينك لكل شيت ؟؟؟؟؟

[samselenea]

لو سمحتو عاوزة اعمل صفحة فيها اسماء الشيتات كلها مع عمل لينك لكل شيت ممكن حد يجيبلى كود للموضوع دة انا حاولت فية كتييييير معرفتش

[الـعيدروس]

السلام عليكم

جرب هذا الكود في مودويل

Option Explicit

Const C_A As String = "ALL_SH"

Sub C_AL()

On Error Resume Next

With Application

  .ScreenUpdating = False

  .EnableEvents = False

Dim SH As Worksheet

Worksheets.add(After:=Worksheets(Worksheets.Count)).Name = C_A

With ActiveSheet

.Range("A1").Value = "أسماء الصفحات"

.Range("B1").Value = "لينك الصفحات"

.Columns("A:B").EntireColumn.AutoFit

For Each SH In ThisWorkbook.Worksheets

If SH.Name = C_A Then GoTo 1

With .Columns(1).Rows(65536).End(xlUp)

.Offset(1, 0) = SH.Name

.Offset(1, 1).FormulaR1C1 = "=HYPERLINK(""#'"" & RC[-1] & ""'!A1"", ""اذهب للورقة"")"

End With

SH.Range("A1").Formula = "=HYPERLINK(""#ALL_SH!A1"",""ALL_SH"")"

1

Next SH

End With

  .ScreenUpdating = True

  .EnableEvents = True

End With

End Sub

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل عباد حفظكم الله

أدام الله عليك الصحة والعافية أبداً ما حييت

أبو أنس

[althaer]

بارك اله فيكم

[samselenea]

ميرسى قوى قوى ليكو انا اسفة انى اتأخرت فى شكركو بجد افادتنى كتيييييييييييييييييييييييييييييييييييييير ميرسى قوى ربنا يوفقك يارب

شششششششششششششششكككككككككككككككككككككرررررررررررررررررااااااااااااااااااااا