تعديل على كود

[ابو ذكري]

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

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

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

مع خالص الدعوات بالتوفيق

اسم الشيت مع لينك.rar

[ابو ذكري]

بسم الله الرحمن الرحيم

برجاء من الاخوة الكرام ايجاد طريقة للتعديل على الكود

ولكم وافر الشكر

وجعله الله في موازينكم

 

[أ / محمد صالح]

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

يمكنك تعديل كود الإجراء إلى هذا الكود لتكرار الارتباطات في كل الصفحات

حتى بعد إضافة أو حذف شيتات

Sub ListAllSheets2()
 
Dim sht As Worksheet, sh As Worksheet
Dim i As Integer

For Each sh In Worksheets
sh.Activate
i = 0

For Each sht In Worksheets
i = i + 1
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(i, 1), _
Address:="", _
SubAddress:="'" & sht.Name & "'" & "!a1", _
TextToDisplay:=sht.Name
Next sht

Next sh
End Sub

جرب وأخبرني بالنتيجة

موفق إن شاء الله

[ابو ذكري]

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

وموفق دائما ان شاء الله

بارك الله فيك وفي عملك

 

[ابو ذكري]

اخي الفاضل 

أ / محمد صالح

ارجو اتساع صدرك لطلبي هذا

وان اجد عندك الحل

في الملف المرفق في ورقتي عمل كروت العملاء وكروت الموردين

ارجوا عمل كود بحث بديل لبحث الاكسل ctrl+f

بحيث اذا وضعت كود عميل في الخلية A1 يتم البحث في العمود G عن القيمة الموجودة في  A1 والانتقال الى مكان الخلية المساوية للقيمة الموجودة في A1

مثال الكود 2003 في خلية A1 بعد الضغط على زر البحث او على مفتاح ENTER يتم الانتقال الى الخلية G183

وهكذا

ارجو ان يكون المطلوب واضح

كروت موردين.rar

[أ / محمد صالح]

أعتقد هذا السؤال غير مرتبط بالموضوع

يفضل بدء موضوع جديد بعنوان يعبر عن مضمونه

وفقنا الله وإياكم لكل ما يحب ويرضى