Listbox'a Veri Aldırma

[ahmedummu]

Merhaba arkadaşlar.

Listbox'a sayfa1 de bulunan A-B-C-D sütunlarındaki verileri 10 satırdan 50 satıra kadar nasıl listeleyebilirm. Aşağıdaki her iki kod ile de olmuyor. Yardımcı olursanız sevinirim.


Listbox1.RowSource = "Sayfa1!B10" & Range("B50").End(xlUp).Row

set sy=Sheets("Sayfa1)
sy.Select
With ListBox1
.ColumnCount = 4
.ListRows = 15
.ColumnWidths = "18;115;40;48"
.RowSource = "A10" & WorksheetFunction.Max(10, Cells(Rows.Count, "A").End(xlUp).Row)
End With

Yukarıdaki kod ile 50 satırdan sonra da verilen var onları da listbox'a alıyor

 

[YUSUF44]

Listbox1.RowSource = "Sayfa1!A10:D50"

Olmuyor mu?

 

[ahmedummu]

Listbox1.RowSource = "Sayfa1!A10:D50"

Olmuyor mu?

Sadece A sütunundaki veriyi aldı. B-C-D sütunlarındaki verleri almadı ve A sütunundaki 50 satırdan sonraki verileri de aldı.

 

[YUSUF44]

Listboxın columncount özelliğini 4 yapın.

 

[ahmedummu]

Listboxın columncount özelliğini 4 yapın.

Aşağıdaki gibi yaptım yine aynı. B-C-D sütunlarını almıyor ve sadece A sütunundaki veriyi alıyor. Ayrıca A sütunundaki 50 satırdan sonraki verileri de alıyor

ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "40;185;i40;50"
ListBox1.RowSource = "Sayfa1!A1050"

Gülen imoji D ne yaptıysam düzeltemedim.

 

[YUSUF44]

Örnek dosya paylaşır mısınız?

 

[YUSUF44]

Gülen imoji D ne yaptıysam düzeltemedim.

: ile D arasında boşluk bırakırsanız düzelir.

 

[ahmedummu]

: ile D arasında boşluk bırakırsanız düzelir.

Dosyayı olduğu gibi gönderiyorum. Formu açınca formun üzerindeki frame de listbox1 var. Listbox'a PİYASAARAŞTIRMA sayfasındaki zemin rengi sarı olan yerlerdeki verileri alacak.

Kodlar Formun en üstündeki image19'a yazılacak. (Soldan ikinci, bilgisayar resmi olan image)

Dosya eklemeyi bulamadım.

 

[ahmedummu]

: ile D arasında boşluk bırakırsanız düzelir.

: ile D arasında boşluk bırakırsanız düzelir.

Altın üyeliğim var ama profilimde görünmüyor, dosya eklemeyi ondan göremiyor olabilir miyim.

 

[YUSUF44]

Altın üyeliğiniz onaylanıncaya kadar dosyayı harici sitelere yükleyip linkini paylaşabilirsiniz.

 

[ahmedummu]

Altın üyeliğiniz onaylanıncaya kadar dosyayı harici sitelere yükleyip linkini paylaşabilirsiniz.

Bir yıldan fazla altın üyeliğim var. Şuan işyerindeyim okulda internetimiz MEB hattı o siteleri giriş yapamıyorum. Akşam eve gidince gönderirim. İlginiz için çok teşekkür ederim.

 

[YUSUF44]

Bir şey diyemem, siz dosyayı paylaşın sorunu çözelim. Altın üyelikle ilgili sorunu Altın Üyelik başlığında sorarsanız çözülür muhtemelen.

 

[ahmedummu]

İndir HARCAMA

Dosyayı indir HARCAMA

dosya.co

Anlamadım ama bu kez girdi. Linki gönderdim.

 

[YUSUF44]

Lsitbox1'in columncount özelliğini 4 yapın demiştim ama hâlâ 1 olarak duruyor.

Kodda A10:A50 olarak ayarlamışsınız ama sayfadaki sarı hücreler A10: D24 arasında.

Bu düzeltmeleri yapınca listboxta veriler görünüyor.

 

[ahmedummu]

Lsitbox1'in columncount özelliğini 4 yapın demiştim ama hâlâ 1 olarak duruyor.

Kodda A10:A50 olarak ayarlamışsınız ama sayfadaki sarı hücreler A10: D24 arasında.

Bu düzeltmeleri yapınca listboxta veriler görünüyor.

Düzltme yaparken 10:24 yazıyorum. Columncount 4 yapmıştım bir daha deneyeyim. Teşekkürler

 

[ahmedummu]

Tamam oldu. Kaydet tuşu var orada da aynı kodlar olacaktı ben orada düzeltme yapıyormuşum. Teşekkürler.

 

[YUSUF44]

Aşağıdaki şekilde kullanırsanız boş satırlar listboxta görünmez:

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

sorgu = "select * from [PİYASAARAŞTIRMA$A10:D24] where F2 is not null"
Set rs = con.Execute(sorgu)

ListBox1.Column = rs.getrows

 

[ahmedummu]

Aşağıdaki şekilde kullanırsanız boş satırlar listboxta görünmez:

Set con = VBA.CreateObject("adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

sorgu = "select * from [PİYASAARAŞTIRMA$A10:D24] where F2 is not null"
Set rs = con.Execute(sorgu)

ListBox1.Column = rs.getrows

Çok teşekkürler deneyeceğim.

 

[ahmedummu]

Kusura bakmayın başka bir frame de kullanmak üzere A10:B24 ve G10:H24 deki verileri nasıl aldırabilrim. Aşağıdaki kod mantığı ile tabi aşağıdaki hata veriyor.


ListBox2.ColumnCount = 4
ListBox2.ColumnWidths = "40;185;45;50"
ListBox2.RowSource = "PİYASAARAŞTIRMA!A10:B24;G10:H24"

 

[YUSUF44]

Yine sy olarak tanımlanan sayfadan alacağınızı düşünerek aşağıdaki kodları deneyin:

a = 0
For i = 10 To 24
    If sy.Cells(i, "A") <> "" Then
        ListBox2.AddItem
        ListBox2.List(a, 0) = sy.Cells(i, "A")
        ListBox2.List(a, 1) = sy.Cells(i, "B")
        a = a + 1
    End If
Next
For i = 10 To 24
    If sy.Cells(i, "G") <> "" Then
        ListBox2.AddItem
        ListBox2.List(a, 0) = sy.Cells(i, "G")
        ListBox2.List(a, 1) = sy.Cells(i, "H")
        a = a + 1
    End If
Next