Listbox1 ve Additem

[Kemal Demir]

Arkadaslar Selam,

Aşagıda yapmak istediğim olay.
Combo içerisinden ilgili sheetlere gitmek ve b1:ile C500 arasındaki verileri listbox a getirmek istiyorum başka Sheet'e geçtiğimde geçtiğim sheet'in b1:c500 aralıgını Getirmek istiyorum.

Veyahut bunu Listbox değilde textbox tan nasıl yapabiliriz

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub
'altı Çizgili ve kalın olan satır da hata var.
Private Sub UserForm_Initialize()
Listbox1.AddItem Range("b1:c500").text
End Sub

Şimdiden Teşekkur Ederim.

 

[veyselemre]

[vb:1:66f3edf421]Private Sub ComboBox1_Change()
'row source almak için aşağıdaki tek satır yeterli
'ListBox1.RowSource = ComboBox1.Text & "!b1:c500"

'additem le almak için aşağıdaki satırları kullanın
For x = 1 To 500
ListBox1.AddItem
ListBox1.List(x - 1, 0) = Sheets(ComboBox1.Text).Cells(x, 2)
ListBox1.List(x - 1, 1) = Sheets(ComboBox1.Text).Cells(x, 3)
Next
End Sub
Private Sub UserForm_Activate()
For Each sayfa In Worksheets
ComboBox1.AddItem sayfa.Name
Next
End Sub
[/vb:1:66f3edf421]

 

[Kemal Demir]

İlgin İçin Teşekkur Ederim Ama Suan Listbox a sadece b kolonunu alıyor. Çözüm İçin B ve C klonunu birleştirebilirim ama Bunu birleştirmeden yapabilirmiyiz.

RowSource ile kafam daha Çok basıyor dicem ama onuda beceremedim.

Tekrar Teşekkur Ederim.

 

[veyselemre]

ekteki dosyadaki formu inceleyin

 

[Kemal Demir]

Gayet Güzel Çalışıyor teşekkur ederim.

Ama anlamadıgım taraf(Sorunum Çözüldü ama Yineden Merak Ettim)
Kodları aynen Kopyaladım ve ilgili kolonlarda doğru ama calısmadı.

Başka Sıfır Excel Dosya açtım Sorun kalktı sorun ne acaba.

İyi Geceler

 

[veyselemre]

listbox un kolon sayısını 2 olarak ayarlamamış olabilirsiniz

 

[Kemal Demir]

Sn.Veyselemre İlgin için Çok Teşekkur ederim.

Dün Çalışan Dosya Bugun Hata veriyor.
En iyisimi (Office Versiyonumu Değiştirmiştim tekrar eskisine Döneyim.)

Yinede Emeğine Sağlık Dostum.