Combobox Farklı Satırlardan Veri Almak

[OzNvl]

Merhaba,

Userforma koymuş olduğum combobox verilerini belirlediğim sayfadan çekebiliyorum ancak tüm satırı alıyor ya da belirlediğim satırlar aralığnı alıyor.
Sorunum şudur ki mesela ben C26 ile C32 arasındaki veriler ve C133 ile C161 arasındaki verileri comboboxda birleştirmek istiyorum nasıl bir yol izlemeliyim ?

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Range
    For Each Bak In Range("C2:C36, C133:C161")
        ComboBox1.AddItem Bak.Value
    Next
End Sub

 

[OzNvl]

Merhaba.

Sub Test()
    Dim Bak As Range
    For Each Bak In Range("C2:C36, C133:C161")
        ComboBox1.AddItem Bak.Value
    Next
End Sub

Çok Teşekkür ederim hocam tam istediğim gibi

 

[Korhan Ayhan]

Deneyemedim ama aşağıdaki gibi siz bir deneyin.

ComboBox1.List = Union(Range("C2:C36"), Range("C133:C161")).Value

 

[Korhan Ayhan]

Şimdi deneyebildim ve mesajımda küçük bir revize yaptım. Dilerseniz kullanabilirsiniz.