İki Sütundaki veriyi listboxta tek sütun sıralama

[muratozmenler]

İyiakşamlar;

c27 den c37 ye kadar olan veri ile f27 ile f37 de bulunan verileri listboxa nasıl tek sütun olarak alabiliriz?

 

[ÖmerBey]

İyi geceler, aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()
Dim liste()
a = 1
Set alan = Range("C27:C37,F27:F37")
ReDim liste(1 To alan.Cells.Count)
For Each hcr In alan
    liste(a) = hcr
    a = a + 1
Next
ListBox1.List = liste
End Sub

 

[Korhan Ayhan]

Ben soruyu biraz farklı algıladım.

Alternatif;

Private Sub UserForm_Initialize()
    ReDim Liste(1 To 1)
    
    For X = 27 To 37
        Say = Say + 1
        ReDim Preserve Liste(1 To Say)
        Liste(Say) = Cells(X, "C") & Cells(X, "F")
    Next
    
    ListBox1.List = Liste
End Sub

 

[muratozmenler]

Çok Teşekkür ederim.