كومبو بوكس

[Akram Galal]

السادة الأفاضل / أعضاء المنتدى

أريد أن لا يظهر في الـ ComboBox1 الأرقام الموجودة في العمودِ A اللتي مقابلها في العمود F كلمة "لا"

حيث أن مدى الكومبو بوكس هو A4:A20

ولكم منا كل الإحترام والتقدير .

 

وإليكم المرفقات

كارنية2.rar

[أبو حنــــين]

استعمل هذا الكود

Private Sub UserForm_Initialize()
Dim I As Integer
    With Sheets("ورقة1")
        For r = 4 To .Range("F" & .Rows.Count).End(xlUp).Row
            If .Range("F" & r) <> "لا" Then
                ComboBox1.AddItem .Range("A" & r)
            End If
        Next r
        End With
End Sub

[Akram Galal]

أستاذي الفاضل

جربت الكود ولكن لم ينجح

فعند الضغط علي الزر الذي يظهر الفورمة

تظهر رسالة خطأ

وشكراً علي الرد

وجزاك الله خيراً .

[أبو حنــــين]

هذا هو الملف و هو  يعمل عندي بطريقة عادية

كارنية22.rar

[حمادة عمر]

السلام عليكم

الاستاذ الحبيب / أبو حنين

 

اكثر من راائع

ولك مني اجمل تحيه

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

 

الاخ الكريم / أكرم جلال

بارك الله فيك

احببت ان اخبرك ان اللف يعمل لدي بشكل رااائع وكما تريد تماما

فلا يظهر في الكومبوبكس الا المسلسل الموجود امامه نعم فقط

بكود رااائع للاروع دوما استاذنا الحبيب / أبو حنين

 

وان شاء الله يعمل معك ... وهنيئا لك حل الاستاذ الحبيب

جزك الله خيرا

[Akram Galal]

الأساتذة الأفاضل

أشكركم علي المجهود

كود رائع جداً

جزاكم الله خيراً.