listbox hakında acil yardım

[fmt1976]

Arkadaşlar yapmış olduğum adres defterinde 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ı hatayı veriyor. Yardımlarınızı bekliyorum.

Yanlız ben bu konu hakkında soru sormuştum ama cevap olarak initalize bölümüne kodu yazın dedi bende onu yaptım gene aynı hatayı verdi.

İYİ ÇALIŞMALAR

hata verdiği kodlar ve dosya ektedir
not: kırmızı yazılı satıreda hata veriyor.
Private Sub ComboBox1_Change()
Dim DEG1, DEG2, SUT, S As Integer
ListBox_ara.ColumnCount = 3
ListBox_ara.ColumnWidths = "30,80,50"
ListBox_ara.Clear
For SUT = 2 To Cells(65536, "B").End(3).Row
DEG1 = UCase(Replace(Replace(Cells(SUT, "B"), "ı", "I"), "i", "İ"))
DEG2 = UCase(Replace(Replace(ComboBox1, "ı", "I"), "i", "İ"))
If DEG1 Like "*" & DEG2 & "*" Then
ListBox_ara.AddItem
ListBox_ara.List(S, 0) = Cells(SUT, "A")
ListBox_ara.List(S, 1) = Cells(SUT, "B")
ListBox_ara.List(S, 2) = Cells(SUT, "C")
S = S + 1
End If
Next
End Sub

 

[Serpily]

Sizin probleminizi çözmez ama 18 tane giriş yaptım, bir sorun vermedi.

Bilginiz olsun.

 

[fmt1976]

bende hata veriyor

 

[Orion1]

Aşağıdaki kodu ilgili yerdeki ile değiştirin.Şimdilik bu hatalı gözüküyor.

ListBox_ara.ColumnWidths = "30;80;50"

 

[fmt1976]

büyüksün evren hocam teşşekkürler