Combobox'u sütunlara bölme ?

[Gorarr]

Selamlar konuyla ilgili bilgiye ulaşamadım malesef. Yapmak istediğim combobox1 tıklayınca 1-85 e kadar sayıları gösteriyor ve istediğimi seçiyorum. Bunu daha pratik yapabilmek için 2, 3 veya 4 sütun yapmak mümkünmü aceba.

Yardımlarınız için şimdiden teşekkürler....

 

[Mehmet Şahin]

Merhaba,
combobox'ı sütunlara bölüp veriyi istediğiniz biçimde getirebilirsiniz. Ancak, siz ilgili satırı seçtiğinizde, hücre değil satır seçmiş olacaksınız. Bu yüzden işinizi görmeyecektir. Kolay gelsin.

 

[Gorarr]

Örnek dosyamda gösterebilirmisiniz. nasıl yapacağımı anlayamadım.

 

[Mehmet Şahin]

Merhaba,
Userformdaki kodlarınızı pasifleştirip aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False

ComboBox1.ColumnCount = 9
ComboBox1.ColumnWidths = "20;20;20;20;20;20;20;20;20"
cln = 0
j = 0
With Sheets("Sayfa3")
    For i = 1 To .[a65536].End(3).Row
        If i > 10 And (i - 1) Mod 10 = 0 Then
        cln = cln + 1
        j = j - 10
        End If
        ComboBox1.AddItem
        ComboBox1.Column(cln, j) = .Cells(i, "a")
        j = j + 1
    Next i
End With
Application.ScreenUpdating = true
End Sub

 

[Gorarr]

Ellerinize sağlık çok teşekkür ederim. Fakat bir sorun var istediğim sayıyı seçemiyorum bukez. Aceba combobox kullanmak yanlış bir seçimmi. Alternatif yoksada sağlık olsun. tekrar teşekkür ederim.

 

[Mehmet Şahin]

Fakat bir sorun var istediğim sayıyı seçemiyorum bukez. Aceba combobox kullanmak yanlış bir seçimmi.

Evet,
yukarıda da söylemiştim. Hücre olarak seçemezsiniz. İyi çalışmalar.

 

[cebelitarık]

Sayın Gorarr
Alternatif çözüm olarak:
10 ar adet sayı alacak şekilde 9 adet combox koymanızı tavsiye ederim.
Saygılarımla

 

[Gorarr]

Anladım teşekkür ederim yinede.

Peki açılır-kapanır bir listbox ile tüm sayıları görüp seçmem mümkünmü.

 

[Mehmet Şahin]

Günaydın,
maalesef Listbox'da aynı sonucu verir.