كود لا ينفذ إلا الخطوة الأولى

[نايف - م]

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 بواسطه نايف - م

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

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

[نايف - م]

شكرا للأهتمام أخي الكريم :

لكن بقي الأمر على ماهو عليه ينفذ بالورقة "sale" ولاينفذ بالورقة "main"

[أبو حنــــين]

 

لا ينفذ الأمر إلا في الورقة sale

ممكن المساعدة

حسب ما فهمت انك تريد الكود ينفذ فقط في الورقة التي اسمها sale

[نايف - م]

طيب أخي

عندك حل

تم تعديل أكتوبر 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

[نايف - م]

أخي الكريم شكرا للرد لكن لم ينجح الأمر أيضا

[هاني مصطفي]

قم اخي الكريم بارفاق ملف به مثال لتصل مع الاساتذة للحل المطلوب افضل من ذلك

[حمادة باشا]

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