Listboxtan veri bulma

[tufan03]

Aşağıdaki kodla Genel sayfasından aranılan veriyilistboxta bulup istenilen yerlere aktarıyorum. Bulunan TC noları sayfanın C kolonunda eğer TC nolarını sayfanın B kolonuna alırsak kodda nasıl bir değişiklik yapmalıyız,birtülü yapamadım.

Private Sub CommandButton1_Click()
Sheets("genel").Select
Dim i As Long, sat As Long
ListBox1.RowSource = ""
For i = 2 To [B5000].End(3).Row
If Cells(i, "C").Value = Val(TextBox1.Value) Then

ListBox1.AddItem
ListBox1.Column(0, sat) = Cells(i, "B").Value
ListBox1.Column(1, sat) = Cells(i, "C").Value
ListBox1.Column(2, sat) = Cells(i, "D").Value
ListBox1.Column(3, sat) = Cells(i, "E").Value
ListBox1.Column(4, sat) = Cells(i, "F").Value
ListBox1.Column(5, sat) = Cells(i, "G").Value
ListBox1.Column(6, sat) = Cells(i, "H").Value
ListBox1.Column(7, sat) = Cells(i, "I").Value


sat = sat + 1
End If
Next i
If ListBox1.ListCount = 0 Then MsgBox [TextBox1] & " " & "Nolu TC Kimlik numarasına Kayıtlarımızda rastlanmamıştır."
TextBox1 = " "
End Subamadım.

 

[cebir]

merhaba..
If Cells(i, "C").Value = Val(TextBox1.Value) Then
satırını

If Cells(i, "B").Value = Val(TextBox1.Value) Then

gibi denediniz mi?

 

[tufan03]

Denedim malesef çalışmadı.

 

[cebir]

ekteki dosyada sorunsuzca
verileri alıyor.
sizinki hatayı hangi satırda veriyor?

 

[Orion1]

Sizin istediğiniz B kolonunda sorgulamaktı.
Sayın cebir'in önerdiği kodlar işinizi görür.

 

[tufan03]

Zannedersem B sütununun text C sütunun rakamlardan oluşmasından kaynaklanıyor. B sütununu rakam olarak ve koddaki C yi de B olarak değiştirirsek çalışıyor.

 

[tufan03]

Sayın Orion2 ancak yukardaki anlattığım değişikliği yaparsam yani (B) sütunu rakamlardan oluşursa doğru çalışıyor.Yoksa bulunumadı yoktur mesajı geliyor.

 

[tufan03]

Sn.Cebir hata vermiyor aranılan İsim olmasına rağmen kayıt yokturu veriyor.

 

[cebir]

bizim düşüncemiz
b sütununa alınan tc no larından arama yapmaktı.
siz hangi sütundan aramak istiyorsunuz.

 

[cebir]

mesela C sütununda sayı değilde kelime varsa
kod un ilgili satırını şöyle değiştirniz.

For i = 2 To [c5000].End(3).Row
If Cells(i, "c").Value = TextBox1.Value Then

burada "VAL(TEXTBOX1.value)"
"TEXTBOX1.value" olarak değiştirldi.

 

[cebir]

bir ekleme ..
button a

Private Sub CommandButton1_Click()
ListBox1.Clear
...
..
End Sub

yaparsanız.
textboxa tekrar veri girince öncekileri siler listbox öncekileri göstermeye devam etmez.