Açılır Listeden Seçilenleri Hücreye Yazdırmak

[baydeniro]

Merhaba Arkadaşlar;

A1:A20 aralığında yazılı verileri açılır listeye gelmesini ve açılan ekranda listelenen verilerin yanlarındaki kutu tiklenince, tiklenenleri C1 den aşağıya doğru yazdırmasını hangi yöntemle yapabilirim ?

 

[çıtır]

Bir userform listbox hazırlayıp .çoklu seçim oluştura bilirsiniz.

Private Sub UserForm_Initialize()
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ColumnHeads = True
end sub

 

[baydeniro]

Bir userform listbox hazırlayıp .çoklu seçim oluştura bilirsiniz.

Private Sub UserForm_Initialize()
ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ColumnHeads = True
end sub

üstad teşekkür ediyorum. A1:A20 aralığını nasıl tanımlayabileceğim konusunda destek olmanız mümkün mü !

 

[çıtır]

Üstteki kısma ilave ediniz.

ListBox1.RowSource = "Sayfa1!A1:A20"

 

[çıtır]

Bir çoklu seçim listbox çalışması.
A1:A21 Hücrelerine tıkladığınızda çoklu seçim listbox çıkar ve seçimlerinizi C1 hücresinden aşağı doğru yazar.