- Katılım
- 24 Aralık 2008
- Mesajlar
- 71
- Excel Vers. ve Dili
- 2007 türkçe
Arkadaşlar sayfa1 "B"hücresinden Combobox1e veri alıyorum.Yalnız bu veriler alfabetik olmadığından combobox listesine de alfabetik olarak gelmiyor.Elimde combobox da alfabetik sıralama ilgili çok güzel bir örnek var ama bunu kendi programıma uygulayamadım .Sebebini de bulamadım Ado ve Combobox adlı bi örnek uygulama.. Bu uygulamanın kodlarını ve nesnelerini kopyalayıp yeni bi excel sayfasına yapıştırıyorum program gene çalışmıyor .. Anlayamadığım nokta nedir yardımcı olabilirmisiniz..Sizinle çalışan programı paylaşıyorum..Ben nerde yanlış yapıyorum,merak ediyorum..Yardımlarınızı bekliyorum
Kodlar bunlar arkadaşlar userforma bir adet commandbotton ve bir adet combobox ekleyerek bunu yapıştırabilirsiniz,sonra butona tıkladığınızda sayfa 1 in a hücresinde yazan isimleri benzersiz ve alfabetik olarak combobox a alacak..
Dim con As Object, rs As Object --General kısma
Private Sub CommandButton1_Click()
Set rs = CreateObject("adodb.recordset")
sorgu = "select iller from [sayfa1$] group by iller"
rs.Open sorgu, con, 1, 1
While Not rs.EOF
ComboBox1.AddItem rs("iller").Value
rs.movenext
Wend
End Sub
Private Sub UserForm_Initialize()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source = " & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 8.0;hdr=yes"""
End Sub
Kodlar bunlar arkadaşlar userforma bir adet commandbotton ve bir adet combobox ekleyerek bunu yapıştırabilirsiniz,sonra butona tıkladığınızda sayfa 1 in a hücresinde yazan isimleri benzersiz ve alfabetik olarak combobox a alacak..
Dim con As Object, rs As Object --General kısma
Private Sub CommandButton1_Click()
Set rs = CreateObject("adodb.recordset")
sorgu = "select iller from [sayfa1$] group by iller"
rs.Open sorgu, con, 1, 1
While Not rs.EOF
ComboBox1.AddItem rs("iller").Value
rs.movenext
Wend
End Sub
Private Sub UserForm_Initialize()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source = " & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 8.0;hdr=yes"""
End Sub
Son düzenleme:
