حل المشكلة هذه رساله في اليوزر فورم

[ابو محمد نصري]

السلام عليكم ورحمة الله ارجو المساعده في حل المشكلة هذه رساله في اليوزر فورم 

المشكله في صفحه كشف الحساب 

Desktop.rar

[محمود_الشريف]

أخى الكريم

النطاق         MyTopColmnRnge

لم يتم تعريفه  عندك بالملف وهو مذكور فى حدث Initialize

قم بحذف هذا السطر من الحدث والفورم سيعمل بشكل طبيعى والله أعلم 

والسطر المطلوب حذفه أو تعريف هذا النطاق بالملف هو 

    .Column = Range(MyTopColmnRng).Value

والكود الموجود بداخله هذا السطر كما ذكرت لك سابقا هو 

Private Sub UserForm_Initialize()
With Me.ComboBox1
    .List = ListData("F")
    If .ListCount Then .ListIndex = 0
End With
'''''''''''''''''''''
With Me.ComboBox2
    .List = ListData("E")
    If .ListCount Then
        .ListIndex = 0
        Me.ComboBox3.List = .List
        Me.ComboBox3.ListIndex = .ListCount - 1
    End If
End With
'''''''''''''''''''''
With Me.ComboSort
    .Column = Range(MyTopColmnRng).Value
    If .ListCount Then .ListIndex = 0
    .Visible = Me.CheckBox1.Value
End With
End Sub