عمل هايبر لينك

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

الاخوه الافاضل

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

لدى فولد به 4 ملفات اكسيل

الاول باسم- الرئيسيه

الثانى  يناير

الثالث فبراير

الرابع مارس

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

للشيتات الموجوده فى هذا الفولدر

[deebsagheer]

في الرئيسيه اجعل الخلايا A1  A2  A3  A4 تمثل هايبر لينك لكل ملف تريد فتحه تلقائيا بمجرد فتح الملف الرئيسي

ثم اكتب هذا الكود في الصفحة الرئيسية للملف الرئيسي thisworkbook

Private Sub Workbook_Open()

    Range("A1").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Range("A2").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Range("A3").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Range("A4").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

 

End Sub

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

اخى

مشكورا على الرد

ولكن اريد كود يقوم باضافة اسماء الشيتات

الموجوده فى الفولد فى ملف الرئيسيه فى العمود الاول

ثم يقوم بعمل هيبر لينك للشيتات

بحيث اتمكن من فتح سرعة الوصول الى الشيت الذى اريده

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

للرفع

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

للرفع

[رجب جاويش]

السلام عليكم

أخى ابراهيم

جرب الكود التالى

Sub ragab()
Dim FilePath As String
Dim fName As String
Application.ScreenUpdating = False
Range("A:A").Clear
FilePath = ActiveWorkbook.Path & "\"
fName = Dir(FilePath & "*.xls")
Do While Len(fName) > 0
Range("A1") = "أسماء الملفات"
x = Left(fName, Len(fName) - 4)
If x = "الرئيسية" Then GoTo 1
Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = x
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & Rows.Count).End(xlUp), Address:=fName, _
        TextToDisplay:=Range("A" & Rows.Count).End(xlUp).Value
1 fName = Dir
Loop
Sheets("Sheet1").Range("A:A").Font.Size = 14
Columns("A:A").Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Hyperlinks.rar

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

اخى رجب

انت برنس

ربنا يخليك لينا

بارك الله فيك

[حمادة عمر]

اخى رجب

انت برنس

ربنا يخليك لينا

بارك الله فيك

 

وحشتنا ووحشنا تواجدك معنا دائما ووحشتنا روعة اعمالك

بالفعل انت برنس

تقبل خالص تحياتي

[رجب جاويش]

أخى الحبيب / إبراهيم

جزاك الله كل خير

تقبل أرق تحياتى

[رجب جاويش]

أخى الحبيب / حمادة عمر ( أبو سما )

جزاك الله كل خير

تقبل أرق تحياتى

[احمد فضيله]

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

الاخ الحبيب الاستاذ الغالي : رجب جاويش

بسم الله ما شاء الله .. رائع و مبدع كالعاده

جزاك الله كل خير

و الله المستعان

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

[صلاح الصغير]

استاذ / رجب

عذرا لمقاطعتكم و اشغالكم بتعليقى

فقط اردت ان ابدى اعجابى باعمالك

بجد اكثر من رائع