مساعده في كود هايبر لينك

[محمد عبد الناصر]

في الملف المرفق يوجد كود يقوم بربط تشعبي لاسم الشيت ووضع الاسم في الخلية 
B
اول مشكلة هي 
الكود يقوم بكتابة الشيت الرئيسي 
Sheet1 
اريد ان الغي هذا الامر ويكتب فقط الشيتات التي تليه 
ثاني مشكلة 
اريد الكود ان يكتب الرقم الموجود في كل شيت في الخلية 
E1
في العمود
D2

md.xlsm

[وجيه شرف الدين]

اتفضل الشيت لعله بفى بالغرض

md.xlsm

[سليم حاصبيا]

Try This code

Option Explicit
Sub ww()
Dim h As Worksheet, sh As Worksheet
Dim cnt%

Set h = Sheets("sheet1")
h.Range("B2").Resize(Sheets.Count - 1).ClearContents
cnt = 2
For Each sh In Sheets
If Not sh.Name = "Sheet1" Then
    h.Hyperlinks.Add Anchor:=h.Cells(cnt, 2), _
      Address:="", SubAddress:=sh.Name & "!A1", _
      TextToDisplay:="Go to " & sh.Name
       h.Cells(cnt, 2).Font.Size = 16
 
      sh.Cells(1, 6).ClearContents
 
   sh.Hyperlinks.Add Anchor:=sh.Cells(1, 6), _
      Address:="", SubAddress:=h.Name & "!A1", _
      TextToDisplay:="Go to " & h.Name
      sh.Cells(1, 5) = h.Cells(cnt, 3)
cnt = cnt + 1
End If

Next

End Sub

 

[محمد عبد الناصر]

ماشاء الله استاذ وجيه شكراااااااا