Listbox'a Listeleme

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kodda tüm şartlara göre listeleme yapıyor fakat sadece "eo" sütununda dolu olan satırları listeleme yapsın istiyorum ama "eo" sütununda veri olmayan satırları da listeliyor. Kırmız renkli kod bloğu. Yardımcı olursanız sevinirim.

With ListBox1
.ColumnCount = 4
.ColumnWidths = "150;130;80;80"
End With
ListBox1.Clear
For Suz = 2 To Range("b65000").End(xlUp).Row
If Worksheets("veri").Cells(Suz, "h").Value = "KADROLU" And Worksheets("veri").Cells(Suz, "z").Value = "BAYAN" Or Worksheets("veri").Cells(Suz, "z").Value = "BAY" And Worksheets("veri").Cells(Suz, "eo").Value <> "" Then
ListBox1.AddItem
ListBox1.List(i, 0) = Range("b" & Suz)
ListBox1.List(i, 1) = Range("c" & Suz)
ListBox1.List(i, 2) = Range("EO" & Suz)
ListBox1.List(i, 3) = Range("EP" & Suz)
i = i + 1
End If
Next Suz

 

[Muzaffer Ali]

Merhaba.

If Worksheets("veri").Cells(Suz, "h").Value = "KADROLU" And (Worksheets("veri").Cells(Suz, "z").Value = "BAYAN" Or Worksheets("veri").Cells(Suz, "z").Value = "BAY") And Worksheets("veri").Cells(Suz, "eo").Value <> "" Then

 

[ahmed_ummu]

Merhaba.

If Worksheets("veri").Cells(Suz, "h").Value = "KADROLU" And (Worksheets("veri").Cells(Suz, "z").Value = "BAYAN" Or Worksheets("veri").Cells(Suz, "z").Value = "BAY") And Worksheets("veri").Cells(Suz, "eo").Value <> "" Then

Çok teşekkürler Muzaffer Ali bey.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.