Combobox ile list view nesnesine veri alırken yanlış süzüyor

[udentr2002]

Merhaba arkadaşlar,

Forumda yapılmış örnekleri kendi dosyama uyarlamaya çalıştım ama bir türlü başarılı olamadım.
Ekli dosyada Veri sayfasında l, düğme ile açılan forumda combobox ile listview1 nesnesine süzme yapmak istiyorum. Bir türlü başaramadım. ekli dosyayı inceleyebilirmisiniz?

 

[Husgvarna]

Merhaba.

Private Sub ComboBox1_Change()

ListView1.ListItems.Clear
For a = 2 To Sheets("Veri").Cells(65000, 2).End(xlUp).Row
Set X = Sheets("Veri").Cells(a, 2).Find(What:=(ComboBox1 [COLOR="Red"]& "*"[/COLOR]), LookIn:=xlFormulas)

LookIn:=xlFormulas

yerine

 Private Sub ComboBox1_Change()
Dim x As Range
ListView1.ListItems.Clear
Set x = Sheets("Veri").Range("b2:b65536").Find(What:=ComboBox1.Text, LookIn:=xlValues)

Şeklinde başlayınız.

 

[Husgvarna]

Şöyle devam edin.

 Private Sub ComboBox1_Change()
Dim x As Range
ListView1.ListItems.Clear
Set x = Sheets("Veri").Range("b2:b65536").Find(What:=ComboBox1.Text, LookIn:=xlValues)
If Not x Is Nothing Then
Application.EnableEvents = False
adres = x.Address
Do
If Cells(x.Row, 2).Text = ComboBox1.Text Then
ListView1.ListItems.Add , , Sheets("Veri").Cells(x.Row, "A")
y = ListView1.ListItems.Count
For Z = 2 To 15
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Veri").Cells(x.Row, Z).Text
Next
End If
Set x = Sheets("Veri").Range("B1:B65536").FindNext(x)
Loop While Not x Is Nothing And x.Address <> adres
Application.EnableEvents = True
End If
End Sub

 

[udentr2002]

Hocam teşekkürler ellerinize sağlık

 

[udentr2002]

Sayın hocom.
Aynı mantıkla bir butona tıkaldığımızda L sütununda ki hücerelerden boş olan verileri süzmesi için nasıl bir kod yazabilirim.

 

[Husgvarna]

Sayın hocom.
Aynı mantıkla bir butona tıkaldığımızda L sütununda ki hücerelerden boş olan verileri süzmesi için nasıl bir kod yazabilirim.

Merhaba.
Tam anlayamadım. Eklediğiniz dosyada "L" sütununda dolu hücre hiç yok. Sorunuza göre örnek dosyayı yenilermisiniz?

 

[udentr2002]

Merhaba.
Tam anlayamadım. Eklediğiniz dosyada "L" sütununda dolu hücre hiç yok. Sorunuza göre örnek dosyayı yenilermisiniz?

Hocam 1. mesajımda dosyayı yeniledim.
Butona tıkladığımda L stünunda boş olan hücreleri listview nesnesine süzecek

SAYGILARIMLA

 

[Husgvarna]

Hocam 1. mesajımda dosyayı yeniledim.
Butona tıkladığımda L stünunda boş olan hücreleri listview nesnesine süzecek

Şöyle deneyin:

 Private Sub CommandButton1_Click()
ListView1.ListItems.Clear
For a = 2 To Cells(65000, 1).End(xlUp).Row
If Cells(a, 12) = "" Then
ListView1.ListItems.Add , , Sheets("Veri").Cells(a, "A")
y = ListView1.ListItems.Count
For Z = 2 To 15
ListView1.ListItems(y).ListSubItems.Add , , Sheets("Veri").Cells(a, Z).Text
Next
End If
Next
End Sub

 

[udentr2002]

Hocam tekrar teşekkürler ellerinize sağlık