مساعدة بخصوص رابط تلقائي على الاسم

[elsafady]

السلام عليكم

لدي ملف في المرفقات اريد عند اضافه شيت جديد و كتابه اسم العميل في الخليه B2 ان يظهر الاسم مع رابط توجيه للشيت في الشيت الاول مباشرة مع الترقيم التلقائي

 

 

اريد الروابط تلقائيا مع الترقيم و ليست يدويا

 

وشكرا

Book1.xlsx

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

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

اكتب الكود الاول فى موديول عادى

و الكود الثانى فى حدث الصفحة

Sub ShNames()
Dim x As Integer
x = Sheets.Count - 1
y = Sheets(x).Name
For i = 2 To x
If Sheets(i).Name <> "عملاء" Then
Cells(i + 1, 1) = i - 1
End If
Cells(i + 1, 2) = Sheets(i).Range("B2")
Next
End Sub
--------------------------------
Private Sub Worksheet_Activate()
Call ShNames
End Sub

 

 

[احمدزمان]

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

شكرا لأخونا الفاضل زيزو على الحل الرائع

وهنا طريقة اضافة دالة للارتباط الشعبي

بعد استخدام الكود السابق

 

H_L_.xlsx

[elsafady]

1 hour ago, زيزو العجوز said:

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

اكتب الكود الاول فى موديول عادى

و الكود الثانى فى حدث الصفحة

Sub ShNames()
Dim x As Integer
x = Sheets.Count - 1
y = Sheets(x).Name
For i = 2 To x
If Sheets(i).Name <> "عملاء" Then
Cells(i + 1, 1) = i - 1
End If
Cells(i + 1, 2) = Sheets(i).Range("B2")
Next
End Sub
--------------------------------
Private Sub Worksheet_Activate()
Call ShNames
End Sub

 

 

شكرا لك

 

لكن معلش اشرح لي من اين اجد حدث الصفحة ؟؟؟

 

ايضا هل يمكن اضافتها تلقائيا عبر وضع زر عند الضغط عليه يتحدث اسماء الشيتات المضافه مع الروابط

[elsafady]

جربت الكود وضبط معي بس واجهت مشكلة

 

اول شيت متكرر مرتين + اخر شيت اضيفه لا يظهر الا ان اضفت شيت جديد فسيظهر السابق و الجديد لا يظهر وهكذا

 

 

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

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

اجعل الكود السابق كما يلى

و لا تغيير فى الثانى

Sub ShNames()
Dim x As Integer
x = Sheets.Count
y = Sheets(x).Name
For i = 2 To x
If Sheets(i).Name <> "عملاء" Then
Cells(i, 1) = i - 1
End If
Cells(i, 2) = Sheets(i).Range("B2")
Next
End Sub

 

[elsafady]

45 minutes ago, زيزو العجوز said:

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

اجعل الكود السابق كما يلى

و لا تغيير فى الثانى

Sub ShNames()
Dim x As Integer
x = Sheets.Count
y = Sheets(x).Name
For i = 2 To x
If Sheets(i).Name <> "عملاء" Then
Cells(i, 1) = i - 1
End If
Cells(i, 2) = Sheets(i).Range("B2")
Next
End Sub

 

شكرا جزيلا ضبط الان

 

كيف اضيف زر تلقائي في كل شيت بحيث ظيفته  العودة للصفحة الاساسية عند اضافة شيت جديد 

 

فيكون الزر جاهز بدون الحاجة لاضافة زر يدويا في كل شيت