excel makro listbox hatası

[senel34]

Selam Arkadaşlar,
For i = 2 To 100
If ComboBox1.Text = Worksheets(2).Range("b" & i).Value Or ComboBox2.Text = Worksheets(2).Range("c" & i).Value Then
döngü içinde bulunan sonuçlar listbox ta görüntüleniyor. yanlızca combobox1 veya 2 den herhangi biri ile sorgu yapıldığında gelen sonuç ile birlikte boş kayıtlarıda sıralıyor. Boş olan kayıtların listbox ta görüntülenmemesi için ne yapabilirim. Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Kodunuzun geri kalan bölümünüde yazabilirmisiniz.

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz.

For i = 2 To Cells(65536, "B").End(xlUp).Row
If ComboBox1.Text = Worksheets(2).Range("b" & i).Value Or ComboBox2.Text = Worksheets(2).Range("c" & i).Value Then

 

[senel34]

selam
kodun tamamı aşagıdaki gibi

For i = 2 To 100
If ComboBox1.Text = Worksheets(2).Range("b" & i).Value Or ComboBox2.Text = Worksheets(2).Range("c" & i).Value Or ComboBox3.Text = Worksheets(2).Range("d" & i).Value Or ComboBox4.Text = Worksheets(2).Range("e" & i).Value Then
sat1 = i
sat = "0000" + sat1
sat = Right(sat, 5) + " - "
ekle = ((Worksheets(2).Range("b" & i).Value) & " - " & (Worksheets(2).Range("c" & i).Value) & " - " & (Worksheets(2).Range("d" & i).Value) & " - " & (Worksheets(2).Range("e" & i).Value) & " - " & (Worksheets(2).Range("f" & i).Value) & " - " & (Worksheets(2).Range("g" & i).Value) & " - " & (Worksheets(2).Range("h" & i).Value))
ListBox1.AddItem (sat + ekle)

End If
Next i

teşekürler

 

[senel34]

For i = 2 To Cells(65536, "B").End(xlUp).Row
bu kodu denedim ama olmadı.
Teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Özür dilerim. Örnek dosyanızı eklerseniz daha faydalı olacaktır. Bu şekilde kodlardan çözüme ulaşmak eksikliklere neden olabilir.

 

[senel34]

Sezar Arkadaşım,
Özür diliyorum.. Gönderdiğin kod oluyor. Başka bir hatadan dolayı çalışmıyordu..
teşekkür ederim..
Cost_Control Arkadaşım,
Sana ve ilgilenen herkese teşekkürler..
selamlar...

 

[Orion1]

Sezar Arkadaşım,
Özür diliyorum.. Gönderdiğin kod oluyor. Başka bir hatadan dolayı çalışmıyordu..
teşekkür ederim..
Cost_Control Arkadaşım,
Sana ve ilgilenen herkese teşekkürler..
selamlar...

Merhaba.
Önemli değil estafurullah.Aslında hata yok.Program kodların yazdığı işlemi yapıyor.