Listbox veri bulma

[Barons]

merhaba

Textbox ile bir userform üzerinde veri arattırıyorum.Bu verileride listbox da gösteriyorum.Veri sayfasında aynı veriden daha doğrusu A kolonundaki rakamlardan tekrarlı veriler olabilir.Bu tekrarlı verilerin oluşturduğu 11 inci kolondaki değerleri listbox'da göstermek istiyorum.

Yardımcı olacak arkadaşlara çok teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:673c993ac0]Private Sub CommandButton4_Click()
On Error Resume Next
ListBox1.Clear
say = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A2:A65536"))
For a = 2 To say + 1
If Cells(a, 1) = ComboBox1.Value Then
c = c + 1
ListBox1.AddItem Cells(a, "k")
End If: Next
End Sub[/vb:1:673c993ac0]

 

[Barons]

Evet yine tam istenilen cevap...Gerçekten Sn. LeventM size çok teşekkür ederim...
Forumda bana hakkınız çok geçti...

Selam ve iyilik dileklerimle...................

 

[Barons]

tekrar merhaba

Aynı olayı textbox kutuları ile yapmak istedim ancak bir türlü olmadı.

Ekli dosyada 2523.21.00.00.11 dediğimde 11nci kolondaki değerleri label olarak veya listbox olarak göstermek istiyorum ancak userform açılmıyor.

Sn LeventM biliyorum çok zahmet verdim ama sanırım bu son olacak...

Çok teşekkürler

 

[Barons]

Ã?zür

Problemli dosyayı göndermişim...Dosyayı düzelttim doğrusunu yolluyorum...

Tşk.

 

[Levent Menteşoğlu]

Rica ederim. Aşağıdaki kodu deneyin.

[vb:1:4c020ba027]Private Sub CommandButton1_Click()
deg = TextBox1 & "." & TextBox2 & "." & TextBox3 & "." & TextBox4 & "." & TextBox5
sonsat = [a65536].End(3).Row
For a = 3 To sonsat
If Cells(a, 1) = deg Then Label36.Caption = Label36.Caption & Chr(10) & Cells(a, 11)
Next
End Sub[/vb:1:4c020ba027]

 

[Barons]

Çok teşekkürler

Mükemmel çalışıyor...Elinize sağlık

Sağlık-afiyet ,bol kazanç ve uzun ömür diliyorum...