حل مشكلة Method range of opject )run time error 1004)

[Mohamed 188]

السلام عليكم

عند تشغيل الفورم يعطى رساله (Method range of opject )

الرجاء المساعده فى حل مشكله   run time error 1004

- FILTER DATA (2).xlsm

[سليم حاصبيا]

أوّلاً lاذا تريد ان تفعل باليوزر؟؟؟؟

ثانياً الكود الصحيح لليوزر Initialize

Private Sub UserForm_Initialize()
Dim i

Me.TABELDATA.RowSource = _
Sheets("DATA").Range("A2:H" & _
 Cells(Rows.Count, "H").End(3).Row).Address

For i = 1 To 8
  Me.KOLOM.AddItem Sheets("DATA").Cells(1, i)
Next

End Sub

 

[Mohamed 188]

السلام عليكم استاذى الفاضل

شكرا لحضرتك 

انا اريد عندما اختار عنصر من الكمبوكس 

مثلا

Ship Mode

تظهر فى قائمه الليست بوكس اللى تحتو عناصر ( Ship Mode)

Second Class

Standard Class

First Class

عندما اختار اى عنصر ثم فلتر تظهر فى قائمه الليست بوكس هذه العناصر فقط 

وشكر لحضرنك

ارجو المساعده فى ذلك 

[سليم حاصبيا]

1-استطعت بالرغم من ضيق الوقت الى هذا الملف  (يمكن المتابعة فبما بعد)

2- اتبع هذه الصورة لمعرفة كيفية التعامل مع اليوزر

الملف مرفق

MHmd188.xlsm

[Mohamed 188]

السلام عليكم

شكرا لحضرتك استاذنا الفاضل

اشكرك يا استاذ / سليم