تغيير نطاق الـ ComboBox

[Akram Galal]

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

تحية طيبة لكل أعضاء المنتدى

اريد عمل فورمة بها

عدد 1 ComboBox

وعدد 3 OptionButton

المطلوب:

أريد أن يتغير نطاق الـ RowSource في ComboBox1

عند اختيار OptionButton1 يكون Sheet1!A4: A100

وعند اختيار OptionButton2 يكون Sheet2!A4: A100

وعند اختيار OptionButton3 يكون Sheet3!A4: A100

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

[عبد العزيز البسكري]

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

رمضان كريم

تفضّل سيدي الغالي .. ربما يكون المطلوب

تحياتي / عبد العزيز البسكري

أكرم جلال.rar

تم تعديل يوليو 2, 2015 بواسطه عبد العزيز البسكري

[Akram Galal]

جزاك الله خير يا أ/ عبد العزيز

هو المطلوب

بس ما هو الحل لو كانت النطاقات مختلفة وأسماء الأوراق كمايلي

عند اختيار OptionButton1 يكون KKK!A4: A100

وعند اختيار OptionButton2 يكون GGG!C2: C55

وعند اختيار OptionButton3 يكون HHH!B6: B30

ورمضان كريم

وعيد سعيد عليك مقدماً.

تم تعديل يوليو 2, 2015 بواسطه Akram Galal

[عبد العزيز البسكري]

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

تفضّل سيدي الكريم .. أرجو أن تقرأ ما بداخل الكود لو سمحت

 

أكرم جلال 2.rar

تم تعديل يوليو 2, 2015 بواسطه عبد العزيز البسكري

[ياسر خليل أبو البراء]

أخي الحبيب عبد العزيز البسكري

بارك الله فيك وجزاك الله خير الجزاء ..كود في منتهى الجمال والروعة

ولكني لاحظت أن الأخ الكريم أكرم طلب نطاقات مختلفة وليس نطاق ثابت لكل أوراق العمل المطلوبة

إليك الحل التالي عله يفي بالغرض

ضع الكود التالي في حدث الفورم

Private Sub OptionButton1_Click()
    OptionChange (1)
End Sub

Private Sub OptionButton2_Click()
    OptionChange (2)
End Sub

Private Sub OptionButton3_Click()
    OptionChange (3)
End Sub

Sub OptionChange(myOption As Long)
    Select Case myOption
    Case 1
        With Sheets("KKK")
            ComboBox1.List = .Range("A4:A" & Sheets("KKK").Cells(Rows.Count, "A").End(xlUp).Row).Value
        End With
    Case 2
        With Sheets("GGG")
            ComboBox1.List = .Range("C2:C" & .Cells(Rows.Count, "C").End(xlUp).Row).Value
        End With
    Case 3
        With Sheets("HHH")
            ComboBox1.List = .Range("B6:B" & .Cells(Rows.Count, "B").End(xlUp).Row).Value
        End With
    End Select
End Sub

وجرب الملف المرفق

ComboBox & Option Buttons On UserForm YasserKhalil.rar

[ياسر خليل أبو البراء]

أخي الحبيب عبد العزيز

لم ألاحظ الملف المرفق إلا بعد أن قمت بالمشاركة رقم 5

وبعد الإطلاع وجدت فكرتك رائعة بكل ما تحمل كلمة رائعة من معنى

بارك الله فيك وجزاك الله خير الجزاء

 

أفضل إجابة إلى الآن في وجهة نظري هي المشاركة رقم 4 من حيث سهولة استخدامها

تقبل وافر تقديري واحترامي

[عبد العزيز البسكري]

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

أستاذي الغالي ياسر خليل .. تعلّمت منكم أنتم إخواني المصريين من خلال التلفزيون طبعًا عبارة ( الكِبير يبْآى كِبير )

لذلك ستبقى دائمًا يا ياسر يا خليل كبيرنا الذي علّمنا السحر ..لا تقلقْ أستاذنا الغالي أقصد سحر الاكسل و الأكواد

بارك الله فيك و جزاك الله خيرًا

[Akram Galal]

 

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

تفضّل سيدي الكريم .. أرجو أن تقرأ ما بداخل الكود لو سمحت

 

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

كود ممتاز

بارك الله فيك