كود انتقال

[وائل عبد الصمد]

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

هل فيه طريقة لعمل ارتباط تشعبى لخلية معينة داخل كل شيت مرة واحدة بدل ما ادخل كل شيت واكرر العملية خاصة ان الملف 193 شيت

بمعنى الشيت الأول عاوز اعمل هايبر لينك فى الخلية a1 داخل الشيت الأول يوصلنى ل a400 داخل الشيت الأول

والشيت الثانى اعمل هايبر لينك فى الخلية a1 داخل الشيت الثانى يوصلنى ل a400 داخل الشيت الثانى

وهكذا داخل كل شيتات الملف

 

لو غير متاح محتاج كود الذهاب للخلية a400  فى الشيت النشط

 

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

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

جرب هذا اماكرو

Option Explicit
Sub HYPER()
Dim My_Sheet As Worksheet

For Each My_Sheet In Sheets
    With My_Sheet
      .Range("A1").ClearContents
      .Hyperlinks.Add Anchor:=.Range("A1"), _
       Address:="", SubAddress:=.Name & "!A400", _
       TextToDisplay:="GOTO :" & .Name & " A400"
      .Range("A1").Columns.AutoFit
    End With
Next

End Sub

 

[وائل عبد الصمد]

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

طيب لو كود زى دا و هانسخه على زرار يعنى يكون خاص بالشيت النشط فقط مش كل الشيتات

الكود يتعدل يكون ازاى ؟

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

ربما ينال اعجابك هذا الملف

 

Create_sheet_with Hyperlink.xlsm

[وائل عبد الصمد]

New Microsoft Excel Worksheet.rar

جزاكم الله خيرا لكن هذا ليس ما اقصد

اريد زر بالكود فى كل شهر بالعمود m & ao  يوصلنى للخلايا كما هو موضح بالهايبر لينك 

لأنه كما تعلم لا يمكن نسخ الهايبر لينك لشيت آخر وهذا الملف موجود منه نسخ كتير جدا لكن لو الكود مسجل على زر خاص بالملف النشط فيمكن نسخ الزر بسهوله لكل الملفات مرة واحدة

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

جرب هذا الماكرو

Option Explicit
Dim arr, i, x
Sub match_all()
    With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    End With

edit_Hyper_for_m: edit_Hyper_for_AO
   
    With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    End With

End Sub
'+++++++++++++++++++++++++++++++++++++++
Sub edit_Hyper_for_m()

With Sheets("new")
 .[m6:m17].Hyperlinks.Delete
arr = [transpose(m6:m17)]
For i = LBound(arr) To UBound(arr)
  x = .Range("L:L").Find(arr(i), after:=.Range("L1"), lookat:=1).Row
  .Range("m" & i + 5).Hyperlinks.Add Anchor:=.Range("m" & i + 5), Address:="", _
  SubAddress:=.Name & "!L" & x
Next
End With
End Sub
'============================
Sub edit_Hyper_for_AO()

With Sheets("new")
 .[AO6:AO17].Hyperlinks.Delete
arr = [transpose(AO6:AO17)]
For i = LBound(arr) To UBound(arr)
  x = .Range("AN:AN").Find(arr(i), after:=.Range("AN1"), lookat:=1).Row
  .Range("AO" & i + 5).Hyperlinks.Add Anchor:=.Range("AO" & i + 5), Address:="", _
  SubAddress:=.Name & "!AN" & x
Next
End With
End Sub

الملف مرفق

 

MY_HYPOER.xlsm

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

الكود يعمل عندي بكل كفاءة

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

[وائل عبد الصمد]

MY_HYPOER.rarاما ضيفت شيت تانى وجربت الكود برضه الهايبر لينك بيبعتنى للملف الأصلى

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

استبدل في الكود عبارة  With Sheets("new") بعبارة  With ActiveSheet

[وائل عبد الصمد]

عدلتها وبرضه مغيرش حاجة

[وائل عبد الصمد]

ممكن اكون معرفتش اوضح طلبى فهكتبه تانى هنا

المطلوب عند نسخ شيت new فى نفس الورك شيت تحت اسم جديد وليكن " 2"مثلا - كل معادلات الهايبر لينك فى العامود "m" & "ao" تعمل فى نفس الملف الجديد وليس ملف new

بمعنى اما بنسخ شيت new لشيت آخر واضغط على لينك شهر يناير بيحولنى على شهر يناير فى شيت new وليس شهر يناير فى  الشيت الجديد

وجزاكم الله كل خيرNew Microsoft Excel Worksheet.rar

[وائل عبد الصمد]

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

المطلوب عند نسخ شيت new فى نفس الورك شيت تحت اسم جديد وليكن " 2"مثلا - كل معادلات الهايبر لينك فى العامود "m" & "ao" تعمل فى نفس الملف الجديد وليس ملف new

بمعنى اما بنسخ شيت new لشيت آخر واضغط على لينك شهر يناير بيحولنى على شهر يناير فى شيت new وليس شهر يناير فى  الشيت الجديدNew Microsoft Excel Worksheet.rar

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

[وائل عبد الصمد]

طيب هو لو كل شهر معمول عليه زرار بكود الذهاب للخلية المطلوبة فى الشيت النشط وتم نسخ الشيت -- الكود هيشتغل فى الملف الجديد ؟

[ahmedseif11]

Hyperlinks.Add Anchor:=.Range("AO" & i + 5), Address:="", _
  SubAddress:=.Name & "!AN" & x

هل يمكن وضع رقم الشيت بدلا من اسمه

أو عنوان الخلية مثلا 

sheets(1).range("a1")

وذلك لجعلهم متغيرين مع تغير الحالة