Listboxda veri listeleme

[seddur]

A ve K sütunları arasında sütunlarda 10 ar adet bilgi mevcut.Bu bilgiler iki sütun halinde (A ve B sütunu) listboxda alt alta listelenecek.Yani ürün cinsi ve fiyat yan yana olacak.Yardımcı olacak arkadaşa tesekkurler.

 

[cems]

A ve K sütunlarının hangisi alfabetik hangisi nümerik hangisi tarih ve birinde olan sütun diğerinde olacak mı ya da aralarında bağlam var mı gibi yapısal özellikleri bilemeyeceğimizden 4 5 satır içeren bir örnek istediğiniz çözüme hızlandırıc etki yapabilir. Bunun dışında userform kullanılacaksa bunda kayıt düzelt ara sil özellikleri de gerekli mi ?

Soru herhalde bir hata neticesi 6 dk ara ile ikiz olmuş .

 

[seddur]

A ve K sütunlarının hangisi alfabetik hangisi nümerik hangisi tarih ve birinde olan sütun diğerinde olacak mı ya da aralarında bağlam var mı gibi yapısal özellikleri bilemeyeceğimizden 4 5 satır içeren bir örnek istediğiniz çözüme hızlandırıc etki yapabilir. Bunun dışında userform kullanılacaksa bunda kayıt düzelt ara sil özellikleri de gerekli mi ?

Soru herhalde bir hata neticesi 6 dk ara ile ikiz olmuş .

A sütunu alfabetik b sütunu nümerik olacak.Userform olmayacak.Sayfayı tarif edecek olursak A sütununda ürün cinsi B sütununda fiyatı yine aynı şekilde C sütununda ürün cinsi D sutununda Fiyatı , E sütununda ürün cinsi F sutununda fiyat var.Bu sayfa bir listboxda alt alta olacak şekilde listelenecek.

 

[seddur]

Bildiğim kadarıyla dizi kullanarak yapılıyor

 

[cems]

Formüllerle aram şahsım adına iyi değil, daha çok kodlamaya eğilimli denemelerim oldu. Sanırım sayfa üzeri işlemleri benden daha iyi bilen bir üye daha yardımcı olabilir.

 

[Korhan Ayhan]

Deneyiniz.

Kendinize uyarlayınız.

Option Explicit

Sub Listele()
    Dim X As Byte, Y As Byte, Say As Integer

    ReDim Dizi(1 To 2, 1 To 1)

    For X = 1 To 10 Step 2
        For Y = 1 To 10
            If Cells(Y, X) <> "" Then
                Say = Say + 1
                ReDim Preserve Dizi(1 To 2, 1 To Say)
                Dizi(1, Say) = Cells(Y, X)
                Dizi(2, Say) = Cells(Y, X + 1)
            End If
        Next
    Next
    
    If Say > 0 Then
        Sayfa1.ListBox1.ColumnCount = 2
        Sayfa1.ListBox1.Column = Dizi
    End If
End Sub