اظهار قيمة فى كمبو بوكس على اساس قيمة مختارة من كمبو بوكس اخر

[اسامه مجدى]

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

مرفق ملف به USER FORM علية اثنين كمبو بوكس الاول يظهر مدى من البيانات

الكمبو بوكس الثانى و هو موضع السؤال اريد ان يظهر القيم التى فى العمود D المقابلة للشرط الموضوع فى الكمبوبوكس الاول

مع العلم ان المدى فى الكمبو بوكس الاول تم من خلا الكود التالى

LAST_ROW = Cells(Rows.Count, 1).End(xlUp).Row

For R = 2 To LAST_ROW

ComboBox2.AddItem Sheet2.Cells (R, 1

Next R

شكرا

New_WinRAR_archive.rar

[احمدزمان]

السلام عليكم

طلبك سوف تجد حله من ابداع الأستاذ الكريم الفاضل / هادي سالم

على الرابط التالي

http://www.officena.net/ib/index.php?s=&am...st&p=125194

[اسامه مجدى]

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

اخى العزيز احمد يعقوب يعجز لسانى عن الشكر

لقد استفدت جداً من هذا الملف وحقيقة الاستاذ هادى سالم عبقرى

فهذا الكود الذى ابدعه الاستاذ هادى سالم اكثر من رائع

Variable= Range().CurrentRegion.Rows.Count

جزاكم الله خير الجزاء