listbox ta eksik veri geliyor.

[finfdg]

b sütunundaki verileri listbox ta gosteremiyorum.

 

[Mahmut Bayram]

Bu kod işinizi görecektir.

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!b2:b100" 'b19 a kadar için ise, 100 ü 19 yapın.
End Sub

 

[finfdg]

teşekkür ederim ama
ListBox1.RowSource = A2:C" & WorksheetFunction.CountA(Range("A1:A65000"))
kodunda eksik olan nedir? bu yeterli değil mi?

 

[Mahmut Bayram]

teşekkür ederim ama
ListBox1.RowSource = A2:C" & WorksheetFunction.CountA(Range("A1:A65000"))
kodunda eksik olan nedir? bu yeterli değil mi?

Eksik değil fazla var :mrgreen:
Yukarıdaki kodun anlamı sizin istemiş olduğunuz şeyle uyuşmuyor bir kere
Listbox1 in veriyi alacağı yer A2:C demiş ama hangi sayfadan alacak
& simgesi birleştir demek ama neyle
A1:A65000 arası hücreler saydırılarak demiş mantık uymuyor.
UserForm_Activate değilde UserForm_Initialize olayına yazsanız iyi olurdu çünkü Activate 1 kereye mahsustur. Yani Form açıldığında aktif olur. Initialize devam arzeder.

Efenim binaenaleyh, Netekim, şindi (Alıntı Süleyman Demirel)

Son bir şey daha istediğiniz veri aralığı b2:b19 idi. Yukarıdaki alıntılı kodda ise A2:C belirtilmiş. Bunun gerçekleşebilmesi için Listbox kolon sayısı tanıtılmalı ve de kolon genişliği falan belirtilmeli

 

[finfdg]

bu kodu forumdaki arkadaşların formlarından almıştım. orada gayet güzel çalışıyor. ben a ve c sütunları arasındaki verileri listbox a almak istemiştim. fakat sınırlı bir alan istemiyorum yani b19 son değil veri oldukça listede gözüksün istiyorum. yardımın için teşekkür ederim.

 

[Mahmut Bayram]

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!B2:B"
End Sub

veya şunu da deneyin.

Private Sub UserForm_Activate()
 X = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A2:A65536")) + 1
ListBox1.RowSource = "Sayfa1!b2:b" & X
End Sub

 

[Mahmut Bayram]

Bu linki
http://excel.web.tr/showthread.php?t=24134
ve bunu
http://excel.web.tr/showthread.php?t=23638
iyi inceleyin.
Kolay gelsin.

 

[alpi]

Yada şunu deneyin

 [LEFT]Private Sub UserForm_Initialize()
dim X as long
X = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A1:A65536")) 
ListBox1.RowSource = "Sayfa1!A2:C" & X
End Sub[/LEFT]

 

[finfdg]

olmuyor son hali ekte a sütunu listboxta var ama b sutunu yani soyadlar listboxta çıkmıyor

 

[alpi]

ListBox'un ColumnCount özelliğini kaç kolon olmasını istiyorsanız ona göre değiştirin. Örneğinizde A ile C sutünları arasındaki verileri almak istiyorsunuz buna göre ColumnCount = 3 olmalı

 

[alpi]

Bu arada ColumnHeads özelliğini True yaparsanız listbox'a başlıklarınızda eklenmiş olur.

 

[finfdg]

teşekkürler alpi. saygılar sunuyorum sana ve partner a.