ListBox RowSource

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarla ComboBox5 den seçtiğim veriye göre listboxa veri getirmeye çalışıyorum. Birkaç kod varyasyonu denememe karşın beceremedim. Döngü ile yapabilirim. Ama bu şekilde olup olmadığını merak ediyorum . İlgilenen arkadaşlara şimdiden teşekkürler.

With syf1
.Range("F30:F188").Select
Selection.Find(ComboBox5, , , xlWhole).Select
bul = ActiveCell(1, 0) + 30
bulson = WorksheetFunction.CountIf(.Range("F30:F188"), ComboBox5) + bul
UserForm1.ListBox3.RowSource = "Sayfa1!F & bul :W" & bulson

End With

 

[Orion1]

İlgili satırı aşağıdaki gibi deneyiniz.

UserForm1.ListBox3.RowSource = "Sayfa1!F" & bul & ":W" & bulson