كود لعمل الارتباط التشعبى

[اسلام سيد]

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

 

مشكله في الكود

 

هذا كود لعمل hyper link الارتباط التشعبي من فديو علي اليوتيوب (سلسله تعلم اونلاين )

 

لكن الكود عند تنفيذة لا يعمل معى ويعطى خلال فى الاوامر

Sub listallsheets2()

Dim sht As Worksheet
Dim i As interger

i = 2

for each sht in work sheets

i = i + 1

Active Sheet.Hyperlinks.Add _

 anchor:=cells(i,2), _
 address:="", _
 sub address:=sht.name&"!a1", _
 Text todisplay:=sht.Name
nextsht
End Sub

الارتباط التشعبي.rar

 

 

 

[إبراهيم ابوليله]

اخى اسلام

تم التعديل على الكود

مرفق شيت

 

Book1.rar

[عبدالله باقشير]

السلام عليكم

Sub listallsheets2()

Dim sht As Worksheet
Dim i As Integer

i = 2

For Each sht In Worksheets

i = i + 1

ActiveSheet.Hyperlinks.Add _
 Anchor:=Cells(i, 2), _
 Address:="", _
 SubAddress:="'" & sht.Name & "'!a1", _
 TextToDisplay:=sht.Name
Next sht
End Sub

تحياتي

[عبدالله باقشير]

السلام عليكم

 

في جزئية مهمة في الكود

 

هذا السطر لا ينفع في الارتباط مع (الاسم المركب) للورقة

يعني لما يكون اسم الورقة اكثر من كلمة واحدة

SubAddress:=sht.Name & "!a1"

وعلشان يرتبط مع الكل هكذا يكون

SubAddress:="'" & sht.Name & "'!a1"

تحياتي

[اسلام سيد]

السلام عليكم

 

بارك الله فيك استاذنا القدير / عبد الله باقشير  وجعله الله فى ميزان حسناتكم

[اسلام سيد]

اخى اسلام

تم التعديل على الكود

مرفق شيت

 

جزاكم الله خيرا وبارك فيكم

[إبراهيم ابوليله]

اخى واستاذنا

عبدالله

ماشاء الله عليك

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

من خبراتك

بارك الله فيك