Combobox'a değer alma sorunuma çare

[kmlpyrz]

Excel sayfası üzerine yerleştirdiğim Combobox1'e değer alabilmek için ilgili sayfanın kod kısmına

Private Sub Worksheet_Activate()
Range("A:A").ClearContents
Dim Dosya
Dim i As Integer
Dosya = Dir("D:\tiglioglu_insaat\musteri\*.xls")
i = 1
While Dosya <> ""
Cells(i, 1) = Dosya
Dosya = Dir
i = i + 1
Wend
ComboBox1.RowSource = "FW1:FW" & [FW65536].End(3).Row
ComboBox1.ListRows = 5
End Sub

yazdım. Sayfa açıldığında "dir" fonksiyonu çalışıyor ama FW sütünundaki değerleri Combobox1'e yerleştirmiyor. Sorunuma çare bulursanız çok sevinirim.

 

[kmlpyrz]

Sorumun Cevabını buldum.

Private Sub Worksheet_Activate()
Range("A:A").ClearContents
Dim Dosya
Dim i As Integer
Dosya = Dir("D:\tiglioglu_insaat\musteri\*.xls")
i = 1
While Dosya <> ""
Cells(i, 1) = Dosya
Dosya = Dir
i = i + 1
Wend
ComboBox1.ListFillRange = "FW1:FW" & [FW65536].End(3).Row
ComboBox1.ListRows = 5
End Sub
olması gerekiyormuş.