bu hata nedir

[fmt1976]

Arkadaşlar aşağıdaki kod 5 yada 6 çalışma sonrasında hata veriyor sebebi nedir .
Excelden çıkıp tekrar girince çalışmaya başlıyor ve biraz çalıştıktan sonra tekrar aynı hayayı veriyor.

not: kırmızı yazılı satıreda hata veriyor

Private Sub UserForm_Activate()
personel_sil_form.Caption = "PERSONEL SİLME (İŞTEN ÇIKARMA) EKRANI"

Sheets("AYRILAN_PERSONEL").Select
'son = Cells(65536, "A").End(3).Row
'sirano = Cells(son, "A")
'ComboBox1 = "."
'ComboBox1 = ""
Dim i As Byte
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "30,50,80,55,55,55,150,50,50"
For i = 2 To Cells(65536, 1).End(xlUp).Row
ListBox1.AddItem
ListBox1.Column(0, i - 2) = Cells(i, "A").Value
ListBox1.Column(1, i - 2) = Cells(i, "B").Value
ListBox1.Column(2, i - 2) = Cells(i, "C").Value
ListBox1.Column(3, i - 2) = Cells(i, "D").Value
ListBox1.Column(4, i - 2) = Cells(i, "E").Value
ListBox1.Column(5, i - 2) = Cells(i, "H").Value
ListBox1.Column(6, i - 2) = Cells(i, "I").Value
ListBox1.Column(7, i - 2) = Cells(i, "AC").Value
ListBox1.Column(8, i - 2) = Cells(i, "AD").Value
Next


End Sub

 

[Ferhat Pazarçevirdi]

Hata mesajının ne olduğunu söylememişsiniz. Bu durumda; "olsa olsa" metodu devreye girer ...

1. "i" değişkeninin veri tipini Byte değil, Integer veye Long olarak belirleyin. Byte bir değişken 255'den daha fazla bir değer alamaz. Yani 256 sayısını, i değişkenine yükleyemezsiniz. Keza negatif sayıları da öyle ....

Eğer, Listbox'a yüklediğiniz eleman sayısı 255'den fazlaysa hata alırsınız. Ama belirttiğiniz satırda değil ...

2. ListBox'ın ColumnCount ve ColumnWidth özelliklerinin, UF her aktif olduğunda yeniden oluşturulmasına gerek yok ... Bu iki satırı Initialize koduna alın ve tüm proje boyunca UF, sıfırdan açıldığında devreye girsin. Hide'den sonraki gösterimlerde bile, Listbox' bedavadan şekilleniyor.

Bunun dışında, kodlarda bir hata olacağını sanmıyorum.