listbox' da boş hucrelerin görünmemesi

[ayemenici]

arkadaşlar "bayi" adlı sayfada bulunan firma bilgilerini 4 sutun olarak listbox' a aktarıyorum,
ancak firma bilgileri 4 satırın birleştirilmesi ile oluşan hücrelerden oluşuyor bu yüzden listbox' da birleştirilen hücreler boş olarak görünüyor bunun çaresi varmı kullandığım aktarma kodu aşağıdadır.



Private Sub UserForm_Initialize()

X = WorksheetFunction.CountA(Sheets("bayi").Range("b10:b1001")) + 4
ListBox1.RowSource = "bayi!a10:d1001" & X
Dim myrange As Range

ListBox1.ColumnCount = 4 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = 20 & ";" & 250 & ";" & 70 'lisbox'taki sütunların genişliği

End Sub

 

[Orion1]

A sütunundaki hücreler dolu ise listeleme yapıyor.

Private Sub UserForm_Initialize()
Dim myarr() As String, a As Long, i As Long, k As Byte
ListBox1.ColumnCount = 4 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = 20 & ";" & 250 & ";" & 70 & ";" & 70 'lisbox'taki sütunların genişliği
ListBox1.Clear
ReDim myarr(1 To 4, 1 To 1)
For i = 10 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" Then
        a = a + 1
        ReDim Preserve myarr(1 To 4, 1 To a)
        For k = 1 To 4
            myarr(k, a) = Cells(i, k).Value
        Next k
    End If
Next i
If a > 0 Then ListBox1.Column = myarr
End Sub

 

[ayemenici]

EVREN arkadaşım eline sağlık ihtiyacımı karşıladı

 

[Orion1]

EVREN arkadaşım eline sağlık ihtiyacımı karşıladı

Rica ederim.
İyi çalışmalar.