Merhaba herkese sağlıklı günler dilerim.
Öğrenim amaçlı bir uygulama yapıyorum. Uygulamamdaki personel Listesi formumda kolon sayısı 10 dan fazla olan bir listbox ım var ve verileri array ile listboxa çekiyorum. ( Bu yöntemden farklı bir yöntem önerilerine de açığım) İnternetten izlediğim videolarda yöntem anlatılırken Excel sayfasında veriler var ve yöntem çalışıyor. Fakat sayfadaki tüm verileri sildiğimde Listbox yükleyecek veri arayıp bulamadığından sanırım yüklenemiyor. Bu sorunu nasıl aşabilirim. Yardımlarınız için teşekkür ederim.




[code]
Dim k As Long, adrs As String, j As Byte, m As Long, arrs() As String

sat = ThisWorkbook.Sheets("Personel").Cells(Rows.Count, "A").End(xlUp).Row

Application.ScreenUpdating = False

ReDim arrs(0 To 26, 1 To 1)

ListBoxPersonelListesi.Clear
ListBoxPersonelListesi.ColumnCount = 26
   
k = 1
Do
m = m + 1

k = k + 1
        ReDim Preserve arrs(0 To 26, 1 To m)
        For j = 0 To 26
            arrs(j, m) = ThisWorkbook.Sheets("Personel").Cells(k, j + 1).Value
                If j = 4 Or j = 5 Then
                    arrs(j, m) = Format(ThisWorkbook.Sheets("Personel").Cells(k, j + 1).Value, "(###) ###-## ##")
                End If
        Next j

Loop While Not k = sat

ListBoxPersonelListesi.Column = arrs
 
On Error Resume Next

Dim x  As String
With ListBoxPersonelListesi

'        For i = 0 To 26
'            deg = deg & CLng(Columns(i + 1).Width) & ";"
'        Next i
'        .ColumnWidths = deg
   

        For i = 0 To 26

            x = x & "70,"
            .ColumnWidths = x

        Next i
'          x = x & "65,"
End With

Application.ScreenUpdating = True
Label_Bilgi.Caption = "Bulunan Kayıt Sayısı :    " & ListBoxPersonelListesi.ListCount

End Sub

[code]

Başka bir forumdan yardımcı oldular. Sorunum aşağıdaki kodda yazıldığı şekilde çözüldü. Teşekkür ederim.