ربط الشيت الاساسي حسب التاريخ بباقي الشيتات

[محمد تميرك]

السلام عليكم ورحمة الله وبركاته اشكر جميع زملائي بالمنتدى والمشرفين على قسم الاكسيل خصوصا على مساعدتهم لي ومجهوداتهم الرائعة واتمنى التواصل معهم دائما وارجو مساعدتي في ربط الشيت الاساسي المسمى بالتاريخ والذي يحتوى على توايخ الشيتات الاخرى بحيث بمجرد الضعط على تاريخ الشيت من الشيت الاساسي يتنقل الي هذا الشيت وذلك لكثرة عدد الشيتات التي اتعامل معها مع ملا حظة ان عدد التواريخ لا نهائي وان ما اضفته هو مجرد جزء بمعنى اني اريد في حالة اضافة اي تاريخ جديد او شيت جديد يتم التطبيق عليهم ايضا ببساطة المطلوب هو عند كتابة تاريخ يتم عمل شيت جديد ويتم ربطه بالتاريخ وان امكن العكس

وجزاكم الله خيرا عني

مرفق الشيت http://www.4shared.c...X/__online.html

[الـعيدروس]

السلام عليكم

الاخ الفاضل محمد تميرك

استعن بهذا الكود تم عمله لطلب احدهم في منتدى اخر

Option Explicit

Const C_A As String = "ALL_SH"

Sub C_ALIDROOS()

On Error Resume Next

Application.ScreenUpdating = False

Dim SH As Worksheet

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

With ActiveSheet

.Range("A1:B1").Borders.Color = 5

.Range("A1:B1").Font.Bold = True

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

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

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

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

.Columns("C:C").ColumnWidth = 1

End With

For Each SH In ThisWorkbook.Worksheets

If SH.Name = C_A Then GoTo 1

With ActiveSheet.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

Application.ScreenUpdating = True

End Sub

واضن ورقة التاريخ لاداعي لها

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

ولينك في خلية A1 في كل صفحة للرجوع لصفحة الفهرس

[محمد تميرك]

ممكن التطبيق على الشيت المرفق

[الـعيدروس]

تفضل في المرفق

السبت_والاحد_ALI_C.rar