نايف - م قام بنشر أكتوبر 11, 2013 مشاركة قام بنشر أكتوبر 11, 2013 (معدل) Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet S = .Name If S = "sale" Then TextBox7 = Sheets("sale").Cells(r, 2) End If If S = "main" Then TextBox7 = Sheets("main").Cells(r, 1) End If End With End Sub لا ينفذ الأمر إلا في الورقة sale ممكن المساعدة تم تعديل أكتوبر 11, 2013 بواسطه نايف - م رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 11, 2013 مشاركة قام بنشر أكتوبر 11, 2013 السلام عليكم استعمل هذا الكود Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet S = .Name If S = "sale" Then TextBox1 = .Cells(r, 2) End If End With End Sub رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر أكتوبر 11, 2013 الكاتب مشاركة قام بنشر أكتوبر 11, 2013 شكرا للأهتمام أخي الكريم : لكن بقي الأمر على ماهو عليه ينفذ بالورقة "sale" ولاينفذ بالورقة "main" رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 11, 2013 مشاركة قام بنشر أكتوبر 11, 2013 لا ينفذ الأمر إلا في الورقة sale ممكن المساعدة حسب ما فهمت انك تريد الكود ينفذ فقط في الورقة التي اسمها sale رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر أكتوبر 11, 2013 الكاتب مشاركة قام بنشر أكتوبر 11, 2013 (معدل) طيب أخي عندك حل تم تعديل أكتوبر 11, 2013 بواسطه نايف - م رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 11, 2013 مشاركة قام بنشر أكتوبر 11, 2013 جرب التالي Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet If .Name = "sale" Then TextBox7 = .Cells(r, 2) If .Name = "main" Then TextBox7 = .Cells(r, 1) End With End Sub رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر أكتوبر 11, 2013 الكاتب مشاركة قام بنشر أكتوبر 11, 2013 أخي الكريم شكرا للرد لكن لم ينجح الأمر أيضا رابط هذا التعليق شارك More sharing options...
هاني مصطفي قام بنشر أكتوبر 11, 2013 مشاركة قام بنشر أكتوبر 11, 2013 قم اخي الكريم بارفاق ملف به مثال لتصل مع الاساتذة للحل المطلوب افضل من ذلك رابط هذا التعليق شارك More sharing options...
أفضل إجابة حمادة باشا قام بنشر أكتوبر 12, 2013 أفضل إجابة مشاركة قام بنشر أكتوبر 12, 2013 Private Sub UserForm_Activate() r = ActiveCell.Row With ActiveSheet S = .Name If S = "sale" Then TextBox7 = Sheets("sale").Cells(r, 2) End If If S = "main" Then TextBox7 = Sheets("main").Cells(r, 1) End If End With End Sub لا ينفذ الأمر إلا في الورقة sale ممكن المساعدة الأخ/ نايف السلام عليكم ورحمة الله وبركاته الكود الذي وضعته حضرتكم سليم وينفذ المطلوب ولاحاجة لتعديله ولكن تأكد من أمرين : 1- أن تقف علي الخلية المطلوبة وتفتح الفورم ( لا أعرف طريقة عمل الفورم لديك ) لأنها المرجع المكاني في كودك . 2- أن تكون الخلية المشار إليها في صفحة "main" غير فارغة لأنها لن تظهر شيء في texbox7 وهذا ما حدث معي عند التجربة ولم ألحظ ذلك وظللت أدور حول نفسي فترة من الوقت حتي أكتشفت الأمر . والتطبيق العملي لما ذكرته ضمن المرفق - ولم أضف علي كودك سوي textbox8 يعرض أسم الصفحة الحالية . تقبل تحياتي Book1-test.rar 1 رابط هذا التعليق شارك 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.