- Katılım
- 16 Haziran 2005
- Mesajlar
- 22
- Excel Vers. ve Dili
- Microsoft® Office Excel 2003 - Türkçe
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?
Ç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?