ListBox'a buton ile veri alma

[ahmett46]

Slm
Listbox açıldığında boş olarak görünmesini butona tıkladığımızda sayfadaki verinin gelmesini nasıl sağlarız. Teşekkürler..

 

[security]

Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "100,100,100,100"
ListBox1.RowSource = "sayfa1!a1:d" & Sheets("SAYFA1").[A65536].End(xlUp).Row
End Sub

şeklinde yazın...Kodu kendinize göre düzenlein ben örnek olması açısından sayfa1 a1:d hücrelerini aldım...

 

[ahmett46]

Teşkkürler Hocam.
Kızmazsanız bi sorum daha olacak. UserForm u açmak için kullandığımız UserForm1.Sow hata veriyor açmıyor neden kaynaklanıyor

 

[security]

UserForm1.Sow
değil
otomatik açılacaksa

Sub auto_open()
UserForm1.Show
End Sub

yazın...

butonla açılacaksa

Sub ac()
UserForm1.Show
End Sub

yazıp deneyin...

 

[ahmett46]

Hocam onları denemiştim ama bi sıkıntı var bi türlü bulamadım dosyayı ekliyorum bi bakarsanız sevinirim

 

[security]

formunuzdaki kodlarda hata var

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "S.LİST!AA4:AA11"
ComboBox2.RowSource = "S.LİST!AB4:AB15"
[COLOR=blue]LsitBox1[/COLOR].RowSource = "S.LİST!J4:J40"
[COLOR=blue]LsitBox2[/COLOR].RowSource = "S.LİST!R4:R100"
End Sub

kodunu

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "S.LİST!AA4:AA11"
ComboBox2.RowSource = "S.LİST!AB4:AB15"
[COLOR=blue]ListBox1[/COLOR].RowSource = "S.LİST!J4:J40"
[COLOR=blue]ListBox2[/COLOR].RowSource = "S.LİST!R4:R100"
End Sub

seklinde düzeltin..

 

[ahmett46]

Valla hocam yazarken yanlış yapmışım ama 10 gün uğraşsam göremezdim saolun

 

[security]

Valla hocam yazarken yanlış yapmışım ama 10 gün uğraşsam göremezdim saolun

Rica Ederim Kolay Gelsin...

 

[security]

Biraz Edit Yaptım... Sanırım Sizinde Yapmak İstediğiniz Böyle Bir Şey...

 

[ahmett46]

benzer diyebilirim ilginiz için teşekkürler