عمل ايقونة انتقال الى الشيت الرئيسى

[ahmedelghoneim]

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

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

حيث انك لم ترفع ملف للمعاينة وانا اقدر ذلك (300 صفحة)لكن يمكن التجربة على عدد اقل يكثير(3 الى 10 صفحات)

اليك هذا النموذج
 تكتب في الكود مكان Sheet1 اسم الشبت الرئيسي (حيث يجب الذهاب اليه)

Option Explicit

Sub select_Main()
Sheets("Sheet1").Select ' Change the Name as you like
End Sub
'++++++++++++++++++++++++++++
Sub Insert_but()

Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
 If wks.Name <> "Sheet1" Then
 wks.Select
 ActiveSheet.Buttons.Delete
 wks.Buttons.Add(100, 50, 150, 25).Select
 Selection.Caption = "Goto Main Sheet"
 Selection.OnAction = "select_Main"
 End If
 
Next wks
Sheets("Sheet1").Select
End Sub

الملف مرفق للتجربة

Insert_but_to every_sheet.xlsm