مساعده في القائمة المنسدلة في الفورم

[سلمان المجذوب]

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

 

ياخواني..لما اقوم بفتح (ورقة سندات قبض) واضغط على اضافة سند...بيضهر الفروم مع مغادرة ورقة القبض الى ورقة(دليل الحسابات) ليش؟؟؟

والامر الثاني القائمة المنسدلة..شغاله كويس ..بس ضهر فيها عيب..اذا حثفت على سبيل المثال ثالث اسم من دليل الحسابات

ورجعت الى الفورم وتضغط على المنسدلة تلاحظ ان الحسابات الاخرى اختفت ما عدا اول وثاني حساب...ليش؟؟؟؟

وهذا صور للمشكلة

ومرفق لكم ورقة العمل

شاكر تعاونكم وجعل بميزان حسناتكم

سندات.rar

[الجموعي]

أخي سلمان المجذوف

 

في حدثUserForm1q عند التشغيل قمت بإدراج كود إدراج الأسماء في كومبوكس من صفحة

 ("دليل الحسابات")

Private Sub UserForm_Activate()
'  كود ادراج الاسماء فى كومموبوكس بشرط عدم وجود فراغات
    Dim WS As Worksheet
   Set WS = Worksheets("دليل الحسابات")
WS.Select
com.Clear
    Dim ss As Integer
        ss = 6
    Do Until WS.Cells(ss, "b").Text = ""
        com.AddItem (WS.Cells(ss, "b").Text)
        ss = ss + 1
    Loop

End Sub

[الجموعي]

تفضل أخي تم التعديل لعله المطلوب

 

سندات معدل.rar