sorgu ve listbox

[serdarbarak]

Forumdan faydalanarak aşağıdaki sorguyu oluşturmaya çalıştım.(sanırım Levent üstadımız hazırlamıştı) her şey güzelde sorgu çalıştığında "yirmibesbin" isimli sayfanın 1. ve 2. satırındaki verileri sorguya almıyor. acaba nerede hata yapıyorum.

NOT: bu site olmasaydı vb de hiç bişi olamayacağımı anladım.
herkese teşekkürler

Private Sub CommandButton1_Click()
Sheets("sorgu").Select
Set s1 = Sheets("yirmibesbin")
[b2:e65536].ClearContents
For a = 5 To s1.[e65536].End(3).Row
If Left(s1.Cells(a, "b"), Len(TextBox1)) = TextBox1 Then
c = c + 1
Cells(c + 1, "b") = s1.Cells(a, "B")
Cells(c + 1, "c") = s1.Cells(a, "c")
Cells(c + 1, "d") = s1.Cells(a, "d")
Cells(c + 1, "e") = s1.Cells(a, "e")
End If
Next
ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e" & [a65536].End(3).Row
End Sub

 

[ofbalki]

Keşke bir örnek dosya ekleseydiniz, programı hazırlamak zaman alıyor.

 

[serdarbarak]

Hocam Kusura Bakmayın

haklısınız program ekte
kullanıcı adı :serdarbarak
şifre:9771
program henüz hazırlık aşamasında olduğundan hatalarım ve görsel anlamdaki biçimsizlikler için kusura bakmayın
Yardımlarınızı bekliyorum

 

[Orion1]

Aşağıdaki kırmızı satırı değiştirerek deneyiniz.
Private Sub CommandButton1_Click()
Sheets("sorgu").Select
Set s1 = Sheets("yirmibesbin")
[b2:e65536].ClearContents
For a = 2 To s1.[e65536].End(3).Row
If Left(s1.Cells(a, "b"), Len(TextBox1)) = TextBox1 Then
c = c + 1
Cells(c + 1, "b") = s1.Cells(a, "B")
Cells(c + 1, "c") = s1.Cells(a, "c")
Cells(c + 1, "d") = s1.Cells(a, "d")
Cells(c + 1, "e") = s1.Cells(a, "e")
End If
Next
ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e" & [a65536].End(3).Row
End Sub

 

[ofbalki]

Private Sub CommandButton1_Click()
Sheets("sorgu").Select
Set s1 = Sheets("yirmibesbin")
[a2:e65536].ClearContents
For a = 2 To s1.[e65536].End(3).Row
If Left(s1.Cells(a, "b"), Len(TextBox1)) = TextBox1 Then
c = c + 1
Cells(c + 1, "a") = s1.Cells(a, "a")
Cells(c + 1, "b") = s1.Cells(a, "b")
Cells(c + 1, "c") = s1.Cells(a, "c")
Cells(c + 1, "d") = s1.Cells(a, "d")
Cells(c + 1, "e") = s1.Cells(a, "e")
End If
Next
ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e" & [a65536].End(3).Row
End Sub



sayın evren hocanın önerisi çok doğru. sayfanın tamamını sorguladığınıza göre, kırmzı oaln bölümleride eklerseniz tam sonuç alırsınız.

 

[serdarbarak]

tşk ler üstadlar ellerinize sağlık