Combobox'a modülden bilgi alabilir miyiz?

[irfancantr]

İyi günler değerli forum üyeleri,

Sitede arama yapmama rağmen benzer konu yakalayamadım.
Bir combobox'a veri almak için excel sayfası kullanmak zorunda mıyız?

Örnekle anlatmak gerekirse;
Userformda bulunan combobox1 sayfa1!A1:A72 hücrelerinden Türkiye iller listesini alıyor. Ben bu illeri sayfadan değil de modül içerisine nasıl bir kod içerisine yazarsam comboboxta listeleyebilirim ?

Sayfalardan veri almak istemiyorum kısacası

 

[Ömer]

Merhaba,

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!A1:A72"
End Sub

Bu şekilde alabilirsiniz.

 

[irfancantr]

Merhaba,

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!A1:A72"
End Sub

Bu şekilde alabilirsiniz.

Ömer hocam çok teşekkür ederim lakin ben sayfadan veri almak istemiyorum. Ben bu illeri manuel olarak module yazıp veri aldığım sayfayı aradan çıkartmak istiyorum.

Örnek vermek gerekirse;

For i = 1 to 50
ComboBox1.RowSource = i
Next

Ama ben sayı değeri değilde illeri yazacağım için ne şekilde kodu hazırlamam gerekli ?

 

[Ömer]

    With ComboBox1
        .AddItem "[COLOR=red]örnek1[/COLOR]"
        .AddItem "[COLOR=red]örnek2[/COLOR]"
    End With

İstediğiniz bunun gibi bir yapı mı?

 

[irfancantr]

    With ComboBox1
        .AddItem "[COLOR=red]örnek1[/COLOR]"
        .AddItem "[COLOR=red]örnek2[/COLOR]"
    End With

İstediğiniz bunun gibi bir yapı mı?

Evet hocam aynen bu istediğim çok teşekkür ederim.

Bu kodu UserForm_Initialize() kısmına yazıyoruz ama zaten benim bu
UserForm_Initialize kısmında ki kodlarım kalabalık ben bunu modüle nasıl
bir kodla yazarsam .AddItem olayına ekleyebilirim ?

 

[Ömer]

Evet hocam aynen bu istediğim çok teşekkür ederim.

Bu kodu UserForm_Initialize() kısmına yazıyoruz ama zaten benim bu
UserForm_Initialize kısmında ki kodlarım kalabalık ben bunu modüle nasıl
bir kodla yazarsam .AddItem olayına ekleyebilirim ?

Dilerseniz Initalize kodlarının altına yukarıdaki kodları ekleyebilirsiniz, bir sorun teşkil etmez.

Farklı bir bölümden çekmek isterseniz.

Private Sub [COLOR=red]ComboyaVeriAl[/COLOR]()
 
    With ComboBox1
        .AddItem "örnek1"
        .AddItem "örnek2"
    End With
 
End Sub

Yazıp. Initialize kodlarını aşağıdaki gibi yazabilirsiniz.

Private Sub UserForm_Initialize()
   [COLOR=red] ComboyaVeriAl[/COLOR]
End Sub

.

 

[irfancantr]

Dilerseniz Initalize kodlarının altına yukarıdaki kodları ekleyebilirsiniz, bir sorun teşkil etmez.

Ömer hocam çok teşekkür ederim aklınıza sağlık.

Ben bu şekilde kodlar daha derli toplu görünmesi açısından bu yola başvurdum.