Liste kutusunun 1. sütununda ürünler Çorba, Makarna, Pirinç. 2. sütunda da 1535, 3553 ve 3150 listelenmiş.

1. sütundaki verilere ulaşmak için liste71.column(0,x) 2. sütundaki verilere ulaşmak için liste71.column(1,x) kodu kullandım.

1. sütun, 1. satırdaki veri liste71.column(0,0) 1. sütun 2. satırdaki veri liste71.column(0,1) olduğu için for-next döngü kodu ekledim.

For x = 0 To Me.Liste71.ListCount - 2

    Urunler = Urunler & ", " & Me.Liste71.Column(0, x)

    Kodlar = Kodlar & ", " & Me.Liste71.Column(1, x)

Next x

Buradaki Me.Liste71.ListCount kodu liste kutusundaki satır sayısını yani 3'ü verir. 3 satır veriden ilk ikisini almak için Liste71.ListCount - 2 yazdım.
Yani for x = 0 to 1

kodun sonundaki next x kodu döngünün "to Liste71.ListCount - 2" yani 1 olana kadar devam etmesi için. 0 to 1 olduğu için 2 kere çalışacak.

Kod çalıştığında Urunler'e 0 için ",Çorba". 1 için ",Çorba, Makarna" yazacak.
Urunler = Urunler & ", " & Me.Liste71.Column(0, x)

Kodlar'a da 0 için ",1535" 1 için ",1535, 3553" yazacak.
Kodlar = Kodlar & ", " & Me.Liste71.Column(1, x)




Urunler = Urunler & " ve " & Me.Liste71.Column(0, Me.Liste71.ListCount - 1)

bu kod ile Urunler'e yazdırdığımız ",Çorba, Makarna" kodunun sonuna Liste71.ListCount - 1 satırındaki veriyi başına "ve" ekleterek yazdırıyoruz. ",Çorba, Makarna ve Pirinç" oluyor.

Kafa karıştıran durumu açıklayayım. Liste kutusundaki 1. satır column(0), 2. satırdaki veri column(1) 3. satırdaki veri column(2) olduğu için 3. satıra ulaşmak için Liste71.ListCount - 1, yani 3-1=2 yazdım. "ve" yazısından sonra Me.Liste71.Column(0, 2) verisine ulaştım.


Urunler = Right(Urunler, Len(Urunler) - 2)

bu kod ile ",Çorba, Makarna ve Pirinç" verisinin başındaki "," hariç geri kalanını, bize lazım olanını aldım.

Umarım yazdıklarım anlaşılır.