şarta bağlı listbox yükleme

[acetinnster]

Merhaba arkadaşlar

Şarta bağlı olarak listbox yükleme yapmak istiyorum ancak hata almaktayım
Aşağıda belirttiğim kısmı nasıl düzenlemem gerekli yardımcı olabilirmisiniz.

Sub ListBoxYukle()
Dim SonSatir As Long
SonSatir = ThisWorkbook.Sheets("SİPARİŞLER").Range("A" & Rows.Count).End(3).Row
ListBox1.RowSource = "SİPARİŞLER!A1:I1"
For i = 2 To SonSatir Step 1
If Cells(i, 8).Value = "AÇIK" Then
ListBox1.RowSource = "SİPARİŞLER!A&i&:&H&i"
End If
Next i
End Sub

 

[ÖmerFaruk]

"Siparişler!A" & i & ":H" & i

 

[acetinnster]

Sayın NextLevel çok teşekkürler ilginiz için
Ancak farklı bir sorun ortaya çıktı döngü bloğuna her girdiğinde listbox temizlenmekte
bunun önüne geçme şansımız var mı acaba

 

[Korhan Ayhan]

Bahsettiğiniz yöntemle yani döngü içinde RowSource metodu yerine AddItem+List metodunu kullanmalısınız. Forumda örnekleri var arama yaparsanız ulaşabilirsiniz.