elsafady قام بنشر مارس 19, 2018 مشاركة قام بنشر مارس 19, 2018 السلام عليكم لدي ملف في المرفقات اريد عند اضافه شيت جديد و كتابه اسم العميل في الخليه B2 ان يظهر الاسم مع رابط توجيه للشيت في الشيت الاول مباشرة مع الترقيم التلقائي اريد الروابط تلقائيا مع الترقيم و ليست يدويا وشكرا Book1.xlsx رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 19, 2018 مشاركة قام بنشر مارس 19, 2018 السلام عليكم ورحمة الله اكتب الكود الاول فى موديول عادى و الكود الثانى فى حدث الصفحة 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 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 19, 2018 مشاركة قام بنشر مارس 19, 2018 السلام عليكم و رحمة الله وبركاته شكرا لأخونا الفاضل زيزو على الحل الرائع وهنا طريقة اضافة دالة للارتباط الشعبي بعد استخدام الكود السابق H_L_.xlsx رابط هذا التعليق شارك More sharing options...
elsafady قام بنشر مارس 19, 2018 الكاتب مشاركة قام بنشر مارس 19, 2018 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 شكرا لك لكن معلش اشرح لي من اين اجد حدث الصفحة ؟؟؟ ايضا هل يمكن اضافتها تلقائيا عبر وضع زر عند الضغط عليه يتحدث اسماء الشيتات المضافه مع الروابط رابط هذا التعليق شارك More sharing options...
elsafady قام بنشر مارس 19, 2018 الكاتب مشاركة قام بنشر مارس 19, 2018 جربت الكود وضبط معي بس واجهت مشكلة اول شيت متكرر مرتين + اخر شيت اضيفه لا يظهر الا ان اضفت شيت جديد فسيظهر السابق و الجديد لا يظهر وهكذا رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 19, 2018 مشاركة قام بنشر مارس 19, 2018 السلام عليكم ورحمة الله اجعل الكود السابق كما يلى و لا تغيير فى الثانى 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 رابط هذا التعليق شارك More sharing options...
elsafady قام بنشر مارس 19, 2018 الكاتب مشاركة قام بنشر مارس 19, 2018 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 شكرا جزيلا ضبط الان كيف اضيف زر تلقائي في كل شيت بحيث ظيفته العودة للصفحة الاساسية عند اضافة شيت جديد فيكون الزر جاهز بدون الحاجة لاضافة زر يدويا في كل شيت رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.