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]
Access Çekirgesi
Son Düzenleme: 07/11/2022, 15:14, Düzenleyen: Oğuz Türkyılmaz.