boş veya dolu olanı listboxta listelemek

[cem yılmaz]

Merhabalar..

Daha önceden sayın uzmanlarımızla yapmış olduğumuz bir çalışma var.Gayet güzel çalışıyor fakat isim girildiğinde listeleme yapıyor rakam girilince listeleme yapmıyor. Yardımcı olurmusunuz?

 

[Korhan Ayhan]

Selamlar,

"ZİMMET BUL" isimli butonunuza ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
ListBox1.Clear
Dim hcr As Range
    For a = 5 To [a65536].End(3).Row
        If Cells(a, 1) = [COLOR=red]Val[/COLOR](ComboBox1.Value) Then
            Set hcr = Cells(a, 1)
            If OptionButton1.Value = True Then
            If hcr.Offset(0, 2) <> "" Then ListBox1.AddItem hcr.Offset(0, 1)
            TextBox1.Value = ListBox1.ListCount
            ElseIf OptionButton2.Value = True Then
            If hcr.Offset(0, 2) = "" Then ListBox1.AddItem hcr.Offset(0, 1)
            TextBox1.Value = ListBox1.ListCount
            End If
        End If
    Next
End Sub

 

[cem yılmaz]

Korhan hocam bu seferde sayıları tanıyor isimleri tanımıyor? Düzen tersine döndü. Hem sayıları tanısın hemde harfleri tanısın istiyorum olabilirmi acaba?

 

[cem yılmaz]

l

        If Cells(a, 1) = [COLOR=red]Val[/COLOR](ComboBox1.Value) Then

Korhan hocam burdaki "val" kodu yerine başka bişey yazılması gerekiyor galiba? Birde bu "val" kodu ne işe yarıyor?

 

[Orion1]

Böyle denermisin.

If cstr(Cells(a, 1)) = cstr(ComboBox1.Value) Then

 

[cem yılmaz]

Teşekkür ederim Evren hocam verdiğiniz kod işe yaradı sağolun.