Listbox'a Veri Aldırma

[ahmedummu]

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

İndir Adsız

Dosyayı indir Adsız

dosya.co

Teşekkürler Yusuf bey.
PİYASAARAŞTIRMA sayfasındaki sarı zemin renkli olan yerlerdeki verileri alması gerekirken, eklediğim resimdeki görüntüdeki verileri aldı.

 

[YUSUF44]

Doğru yerleri almış. Yine ColumnCount özelliğini 1 yapmışsınız. 2 yapmanız gerekir.

 

[ahmedummu]

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

İndir Adsız1

Dosyayı indir Adsız1

dosya.co

A ve B sütunlarındaki verileri ilk satıra (Doğru)
G ve H sütunlarındaki verileri bir alt satıra yazıyor.
ColumnCount özelliğini dediğiniz gibi 2 yaptım

 

[YUSUF44]

Sorun nedir?

 

[ahmedummu]

Sorun nedir?

A ve B sütunlarındaki verileri ilk satıra (Doğru)
G ve H sütunlarındaki verileri bir alt satıra yazıyor.

1 Süelyman 16 20 Yazması gerekirken

1 Süleyman
16 20

Yazıyor. G ve H sütunlarındaki verileri bir alt satıra yazıyor.

 

[YUSUF44]

Bunu bilemezdim tabi. Ben alt alta olmasını istediğinizi düşünmüştüm.

Verdiğim iki for next döngüsü yerine aşağıdaki tek for next döngüsünü kullanın:

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")
        ListBox2.List(a, 2) = sy.Cells(i, "G")
        ListBox2.List(a, 3) = sy.Cells(i, "H")
        a = a + 1
    End If
Next

 

[ahmedummu]

Bunu bilemezdim tabi. Ben alt alta olmasını istediğinizi düşünmüştüm.

Verdiğim iki for next döngüsü yerine aşağıdaki tek for next döngüsünü kullanın:

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")
        ListBox2.List(a, 2) = sy.Cells(i, "G")
        ListBox2.List(a, 3) = sy.Cells(i, "H")
        a = a + 1
    End If
Next

Evet oldu teşekkürler.

 

[YUSUF44]

Bundan sonraki sorularınızda ne istediğinizi daha açık belirtmenizi tavsiye ederim.

 

[ahmedummu]

Bundan sonraki sorularınızda ne istediğinizi daha açık belirtmenizi tavsiye ederim.

Tamam Yusuf bey, kusura bakmayın.