عمل زر لفتح شيت

[abdelfattahbadawy]

السلام عليكم 

كيف يمكن عمل رابط لكل صفحة فى button مثل هذا الذى فى الصورة 

وجدت هذه الطريقة فى الرابط التالى ولكننى لم أجد الكود 

https://www.extendoffice.com/documents/excel/2879-excel-create-button-to-open-sheet.html

[ابراهيم الحداد]

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

ضع الكود التالى فى موديول ثم اربط الكود بكل زر يحمل اسم ورقة معينة

بشرط ان يتفق اسم الورقة مع الاسم المكتوب على الزر تماما

Sub OpenSheet()
Dim x As String
On Error Resume Next
x = ActiveSheet.Buttons(Application.Caller).Caption
Sheets(x).Visible = xlSheetVisible
Sheets(x).Select
End Sub

 

[abdelfattahbadawy]

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

هذا الكود كان من إعداد أخى محمد هشام 

Sub shws()
For i = 2 To Sheets.Count
lw = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sheets(i).Name <> MM Then
Sheet1.Cells(lw, 1) = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(lw, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End If
Next
End Sub

 

[ابراهيم الحداد]

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

اعتقد ان الربط بين الكودين صعب نوعا ما 

الكود المدرج بمشاركتك الاخيرة هو هايبرلنك و يختلف عن الكود المدرج بمشاركتى السابقة

و الله اعلى و اعلم

[abdelfattahbadawy]

مشكور أخى إبراهيم جزاك الله خيراً ورفع قدرك