combobox'a veri alma

[geren36]

değerli excel ustaları,

Userform1 üzerinde 48 adet combobox bulunmaktadır.

her birinin veri alacağı alan aynıdır .... [u1:u9] aralığı....

Private Sub UserForm_Initialize()

combobox1. rowsource = "u1:u9"
combobox2. rowsource = "u1:u9"
combobox3. rowsource = "u1:u9"
..
..
..
combobox48. rowsource = "u1:u9"

end sub

yazmak yerine, yazımı ve çalışması daha kısa olacak hangi kodu önerirsiniz ?

 

[Seyit Tiken]

Örnek kodu kendinize uyarlayınız.

Private Sub UserForm_Initialize()
For s = 1 To 4
Controls("ComboBox" & s).RowSource = "sayfa1!U1:U9"
Next
End Sub

 

[agent1980]

Merhabalar bende şöyle dicektim)
Userform üzerindeki bütün comboboxları ctrl tuşuna basarak seçelim. Sonra özellikler penceresindeki Rowsource satırına U1:U9 yazarakta olabilir.

 

[geren36]

sn seyit tiken başarılı oldu. teşekkürler .. :icelim:

sn agent1980, seyit tiken' in kodu işe yarayınca sizinkini denemedim, kusura bakmayın artık