Sayıları combobox ta listeleyemiyorum

[okanpolat]

Arkadaşlar ekteki dosyada burdan aldığım bi tane dosyayı düzenledim biraz ama A ve B sütunundaki alanları rakam olduğu için comboboxlarda listelettiremiyorum. Bi bakarmısınız ayrıca sebebinide söylreseniz bende öğrenmiş olurum.
Şimdiden teşekkürler.

 

[veyselemre]

@okanpolat,
Maalesef 2007 ye terfi edemedim kendi adıma, xls formatında gönderirseniz daha çok yardımcı olabilecek çıkacaktır.

 

[hamitcan]

Ben de çalıştı. Sorunu bir örnekle açıklar mısınız ?

 

[okanpolat]

Sorun şu 1.ve 2. comboboxta D.n ve T.C kimliklerin gösterilmesi lazım fakat rakam olduğu için gözükmüyo çünkü denedim rakamdan başka bişey yazınca gösteriyo.Ayrıca office 2003 formatınıda gönderdim.


Kayıtları düzeltim. Kusura bakmayın haberim yoktu.

 

[veyselemre]

1.düzeltme
col1.Add Str(ListBox1.List(x, Combo - 1)), Str(ListBox1.List(x, Combo - 1))

2.düzeltme
If Not Trim(Str(ListBox1.List(x, 0))) Like Trim(ComboBox1.Text & "*") Or Not Trim(Str(ListBox1.List(x, 1))) Like Trim(ComboBox2.Text & "*") Or Not ListBox1.List(x, 2) Like ComboBox3.Text & "*" Or Not ListBox1.List(x, 3) Like ComboBox4.Text & "*" Then ListBox1.RemoveItem x

 

[Levent Menteşoğlu]

Bence verileri comboboxa yüklemek için aşağıdaki gibi daha basit kodlamalar kullanın.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "dosyalar!a2:a" & [dosyalar!a65536].End(3).Row
ComboBox2.RowSource = "dosyalar!b2:b" & [dosyalar!b65536].End(3).Row
End Sub

 

[okanpolat]

Arkadaşlar öncelikle yardımlarınız için teşekkür ederim. Sayın veyselemre verdiğiniz kodları uyguladım yanlız şimdide rakamlar listleniyo harflr listelenmiyo.

 

[veyselemre]

Merhaba aşağıdaki prosedürü düzeltip, deneyin.

Sub ComboYenile(Combo)
On Error Resume Next
Dim col1 As New Collection

For x = 0 To ListBox1.ListCount - 1
    al = ListBox1.List(x, Combo - 1)
    If IsNumeric(al) Then al = Str(al)
    col1.Add al, al
Next x
Call ComboyaAktar(Combo, col1)
Set col1 = Nothing
End Sub

 

[okanpolat]

Teşekkür ederim bu sefer oldu.