[حل شده] سلولهای اضافه در کومبوباکس

[كامران]

سلام اساتید محترم


من یه کومبو باکس دارم که اطلاعاتشو از یه آرایه 15 سلولی میگیره فقط یه مشکلی که هست اینه که همیشه تعدادی از اون سلولها خالیه ولی تو کومبو میاد
چکار باید بکنم تا فقط سلولهائی که اطلاعات داره رو بیاره و از بقیه ش صرف نظر بکنه ؟

[Amir Ghasemiyan]

سلام دوست عزيز
مطابق فايل پيوستي كه در تاپيك زير قرار داده بوديد من براتون كد مورد نظر رو نوشتم:

امکان کلیک راست داخل تکست باکس یوزم فرم

    Dim Cel As Range
    For Each Cel In Range("A2:A20")
       If Cel.Value <> "" Then Me.ComboBox1.AddItem Cel.Value
    Next Cel

اين كد رو بايد داخل ايونت مناسب قرار بديد. مثلا ايونت UserForm_Activate و يا UserForm_Initialize

درضمن دقت كنيد كه در properties هاي كمبوباكستون قسمت RowSource مقدار نداشته باشد

[كامران]

ممنون زحمت کشیدین