UserForm_Initialize hatası

[mrt]

Üstadlar Selamlar,

userform'da 2 adet combobox kullanıyorum.

1. klasörden dosya açmak için

2. Musterileri listelemek için

UserForm_Initialize'de combobox2 ye ait RowSource tanımladığımda user form hata veriyor.

hata mesajı:

Run-time error '380':
Could not set the RowSource property value

Ne yapmalıyım.

Şimdiden teşekkürler.


Private Sub UserForm_Initialize()
dosya = Dir("C:\TESLIMAT\")
Do While dosya <> ""
ComboBox1.AddItem dosya
dosya = Dir
Loop

ComboBox2.ListRows = 50
SAY = WorksheetFunction.CountA(Range("F2:F65000"))

ComboBox2.RowSource = "musteri!f2:f" & SAY

End Sub

 

[Ferhat Pazarçevirdi]

F2:F65000 aras&#305;nda dolu h&#252;cre yoksa, kodlar&#305;n&#305;zdaki SAY de&#287;i&#351;keni, "0" de&#287;er al&#305;r. Bu durumda; Combobox2'nin RowSource atamas&#305;, "m&#252;&#351;teri!f2:f0" olur ki, b&#246;yle bir referans&#305; Excel kullanamaz ve bir &#199;al&#305;&#351;ma kipi hatas&#305; al&#305;rs&#305;n&#305;z.

Combobox2'ye RowSouce set etmeden &#246;nce, SAY de&#287;i&#351;kenini kontrol edin. E&#287;er bu de&#287;er "0" ise RowSource sat&#305;r&#305;n&#305; &#231;al&#305;&#351;t&#305;rmay&#305;n.

 

[mrt]

Ferhat bey, Selamlar, &#304;lginize te&#351;ekk&#252;r ederim.

SAY de&#287;i&#351;kenini nas&#305;l kontrol edebilirim.