combobox

[lirzan]

A SUTUNUDA 10 ADET 35 NUMARASI VAR A SUTUNDAKI VERILERI COMBOBOXA AKTARIYORUM AMA BEN SADECE 1 ADET 35 GORUNSUN ISITOYRUM.OYSAKI A SUTUNUNDA BULUNAN TUM 35 SAYILARINI GOSTERIYOR. Combobox ta aynı degerden bırtane nasıl godterebılrım

 

[exam77]

Bunu iki yolla yapabilirsiniz...
a.) comboboxtaki değerleri kontrol ettirerek
b.) değerlerin bulunduğu sütunun yanına bir sütun ekleyerek(veya başka bir sütunda) eğersay formülünü kullanarak kontrol altına alabilirsiniz...

 

[BG]

Sayın lirzan

http://www.excel.web.tr/showthread.php?t=50888&highlight=combobox+rowsource

sanırım bu link sorunuza cozum olacaktır

 

[lirzan]

ben mysql ile cekiyorum bilgileri ve bu kodlar tamam işime yarar ama
Set s1 = Sheets("aktar")
a = s1.[e65536].End(3).Row kısımlarında hata verıyor s1 ve a ne olarak tanımlamalıyım bılemyorum. Kullanamıyorum bunu kodlarımın ıcınde

 

[exam77]

ben mysql ile cekiyorum bilgileri ve bu kodlar tamam işime yarar ama
Set s1 = Sheets("aktar")
a = s1.[e65536].End(3).Row kısımlarında hata verıyor s1 ve a ne olarak tanımlamalıyım bılemyorum. Kullanamıyorum bunu kodlarımın ıcınde

Şu şekilde kullanmayı deneyin...

a = Sheets("aktar").[e65536].End(3).Row

 

[lirzan]

Dim Excelsatir As Long

Call connectMysql("root", "", "10.9.4.30", "sinav", conn, rs)

' ssql = "SELECT * FROM kullanıcılar"
' rs.Open ssql, conn

rs.Open "SELECT sinav_kod,ogrenci_no,adi,soyadi,il,ilce FROM sinav_optik where sinav_kod=10 and okul=900 ", conn, adOpenStatic, adLockReadOnly
Sayfa3.Range("B2:c10000").ClearContents
Sayfa3.Activate
Excelsatir = 2

Do While Not rs.EOF

Sheets("aktar").Cells(Excelsatir, 1).Value = rs!sinav_kod
Sheets("aktar").Cells(Excelsatir, 2).Value = rs!ogrenci_no
Sheets("aktar").Cells(Excelsatir, 3).Value = rs!adi
Sheets("aktar").Cells(Excelsatir, 4).Value = rs!soyadi
Sheets("aktar").Cells(Excelsatir, 5).Value = rs!il
Sheets("aktar").Cells(Excelsatir, 6).Value = rs!ilce


Excelsatir = Excelsatir + 1
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

' *********************************** normalde yapıyor *************************
' Set s1 = Sheets("aktar")
' a = s1.[e65536].End(3).Row
' ComboBox2.Clear
' For i = 2 To a
' If WorksheetFunction.CountIf(Range(s1.Cells(1, "E"), s1.Cells(i - 1, "E")), s1.Cells(i, "E")) <= 0 Then
' ComboBox2.AddItem s1.Cells(i, "E")
' End If
' Next

kod satırlarım bunlar ilkönce mysql bağlanıyorum ve oradan istediğim verileri cekiyorum. Verileri çektikten sonra il ksmını comboboxa aktarıyorum ama işte bu aktarma sırasında aynı olan kac ıl varsa buyun rakamlarını aktarıyorm. ' Set s1 = Sheets("aktar")
' a = s1.[e65536].End(3).Row
' ComboBox2.Clear
' For i = 2 To a
' If WorksheetFunction.CountIf(Range(s1.Cells(1, "E"), s1.Cells(i - 1, "E")), s1.Cells(i, "E")) <= 0 Then
' ComboBox2.AddItem s1.Cells(i, "E")
' End If
' Next
yazdım ama s1 ve a değişkenlerini kesin tanımlamam gerekiyor ama hangi değişken tipinde tanımlamalıyım sorunum burda işte

 

[exam77]

Buradaki kodlarınızı;

' *********************************** normalde yapıyor *************************
' Set s1 = Sheets("aktar")
' a = s1.[e65536].End(3).Row
' ComboBox2.Clear
' For i = 2 To a
' If WorksheetFunction.CountIf(Range(s1.Cells(1, "E"), s1.Cells(i - 1, "E")), s1.Cells(i, "E")) <= 0 Then
' ComboBox2.AddItem s1.Cells(i, "E")
' End If
' Next

Şu şekilde değiştiriniz....

a = Sheets("aktar").[e65536].End(3).Row
ComboBox2.Clear
For i = 2 To a
If WorksheetFunction.CountIf(Range(Sheets("aktar").Cells(1, "E"), Sheets("aktar").Cells(i - 1, "E")), Sheets("aktar").Cells(i, "E")) <= 0 Then
ComboBox2.AddItem Sheets("aktar").Cells(i, "E")
End If
Next