Listbox'ta Veri Yokken Hata Veriyor. - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Listbox'ta Veri Yokken Hata Veriyor. (/konu-listbox-ta-veri-yokken-hata-veriyor.html) |
Listbox'ta Veri Yokken Hata Veriyor. - Oğuz Türkyılmaz - 07/11/2022 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] RE: Listbox'ta Veri Yokken Hata Veriyor. - Oğuz Türkyılmaz - 07/11/2022 Başka bir forumdan yardımcı oldular. Sorunum aşağıdaki kodda yazıldığı şekilde çözüldü. Teşekkür ederim. Kod:
Sub verileriListboxaGetir() |