تعبئة القوائم المنسدلة

[tlayt kamal]

اخواني السلام عليكم

فضلا اريد تعلم كيفية اضافة البيانات في القوائم المنسدلة وتكون مطاطية 

تعبئة القوائم المنسدلة.xlsm

[Ali Mohamed Ali]

وعليكم السلام -يمكنك استخدام هذه المعادلة لجعل نطاق القائمة المنسدلة مطاطية وبدون فراغات وتكون جاهزة لزيادة اى بيانات جديدة

=OFFSET($D$6,,,COUNTIF($D:$D,"?*"),1)

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

 

 

تعبئة القوائم 1المنسدلة.xlsm

[tlayt kamal]

استاذي Ali Mohamed Ali اكرمك الله وجزاك خيرا وزادك علما 

 

[Ali Mohamed Ali]

بارك الله فيك ولك بمثل ما دعوت لى وزيادة

والحمد لله الذى بنعمته تتم الصالحات

[حميد الهايس]

اخي علي شكرا على مجهودك الرائع لاكن هل يمكن ان تجعل الكومبوبوكس مطاطيا كما في القائمة المنسدلة المطاطية وكما في المرفق مع تحياتي 

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

تعبئة القوائم المنسدلة.xlsm

[Ali Mohamed Ali]

تفضل استاذ حميد ولحسن عمل الكمبوبوكس يمكنك إضافة هذا الكود

Private Sub ComboBox1_DropButtonClick()
lrw = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row
 ComboBox1.List = Sheets(2).Range("D1:D" & lrw).Value
End Sub

 

 

تعبئة القوائم المنسدلة1.xlsm

[هادى محمد المامون سالم]

ممكن تستخدم الكود التالى

Sub my_fill()
    cmb_Fill.Clear
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        cmb_Fill.AddItem (Cells(i, "A"))
    Next i
End Sub

 

و المجال مفتوح و قابل للتعديل

مرفق ملف

Fill_01.xls

[حميد الهايس]

أن نعترف بفضل شخص ما علينا يعبر عن صدق مشاعرنا  لذلك لم أخجل في التعبير عن امتناني لكم . سادتي واساتذتي المحترمين الاستاذ (علي محمد )والاستاذ(هادي محمد ) لاهتمامكم المفرط بالموضوع وماتقدمون لاعضاء المنتدى من خدمات تجعلنا عاجزين عن تقديم عبارات الشكر والتقدير............. نسأل الله المولى العلي القدير ان يحفظكم ويمد في اعماركم ويزيدكم من علمه امين رب العالمين   ...........