Listbox Column Özelliği Hk.

[hazan_25]

Arkadaşlar Merhaba!

Çalışmamda Listbox'a verilerimi ;

Private Sub UserForm_Initialize()
Sheets("veri").Select
ListBox1.ColumnCount = 5
For a = 1 To Cells(65536, 2).End(xlUp).Row
If Cells(a, 2) <> "" Then
c = c + 1
ListBox1.AddItem
ListBox1.List(c - 1, 0) = Cells(a, 1).Value
ListBox1.List(c - 1, 1) = Cells(a, 2).Value
ListBox1.List(c - 1, 2) = Cells(a, 3).Value
ListBox1.List(c - 1, 3) = Cells(a, 4).Value
ListBox1.List(c - 1, 4) = Cells(a, 5).Value
End If
Next
End Sub

kodlarıyla alıyorum. Listede ki verilerimide textboxlara;

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5.Value = ListBox1.Column(0)
TextBox1.Value = ListBox1.Column(1)
TextBox2.Value = ListBox1.Column(2)
TextBox3.Value = ListBox1.Column(3)
TextBox4.Value = ListBox1.Column(4)
End Sub

kodlarıyla alıyorum. Listeden textboxlara verileri alırken eğer listede veri bulunmayan satırı çift tıklarsam;

"Run-time error '381':
Column özelliği alınamadı. Geçersiz özellik dizisi dizini."

şeklinde bir hata mesajı alıyorum! Mesajda 'end' seçersem uygulamam kapanıyor, 'debug' seçersem kod sayfasında hata veren satıra gidiyor. Mesela TextBox5.Value = ListBox1.Column(0) satırına Şimdi bu hata mesajını almamak veya Listbox'ta veri bulunmayan satırı seçmeyi engellemek için ne yapmam gerekir?

 

[Seyit Tiken]

Kodlarınızın en başına bu kodu yapıştırın. Muhtemelen hata vermemesi gerek.

On Error Resume Next

 

[hazan_25]

Sn. Seyit Tiken Arkadaşım,

Yazdığınız kod sorunumu çözdü çok teşekkür ederim, sağolun! :dua: :arkadas: :hey: