UserForm Makro Hatası

[NOKİ69]

Private Sub TextBox15_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 6
.ColumnWidths = "85,90,50,50,50,50"
End With
Sheets(ComboBox1.Text).Select
For sat = 2 To Cells(65000, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "c"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox15, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "c")
ListBox1.List(s, 1) = Cells(sat, "d")
ListBox1.List(s, 2) = Cells(sat, "e")
ListBox1.List(s, 3) = Cells(sat, "f")
ListBox1.List(s, 4) = Cells(sat, "g")
ListBox1.List(s, 5) = Cells(sat, "h")
ListBox1.List(s, 6) = Cells(sat, "ı")
ListBox1.List(s, 7) = Cells(sat, "j")
ListBox1.List(s, 8) = Cells(sat, "k")
ListBox1.List(s, 9) = Cells(sat, "l")
ListBox1.List(s, 10) = Cells(sat, "m")
ListBox1.List(s, 11) = Cells(sat, "n")
ListBox1.List(s, 12) = Cells(sat, "o")
ListBox1.List(s, 13) = Cells(sat, "p")
s = s + 1
End If: Next
End Sub


ListBox1 ekranında tıklayınca veya ComboBox1_Change butonunda seçim yapıldığında aşağıda kırmızı olan alanda makro hata vermekte üstatlarımdan ricam hatanın giderilmesi ayrıca ComboBox1_Change butonunun iptal edilmesi kayıt yapılacak sayfanın yani personel sayfasındaki verilerin kayıt ve aramalarda

 

[NOKİ69]

Private Sub TextBox15_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 6
.ColumnWidths = "85,90,50,50,50,50"
End With
Sheets(ComboBox1.Text).Select
For sat = 2 To Cells(65000, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "c"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox15, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "c")
ListBox1.List(s, 1) = Cells(sat, "d")
ListBox1.List(s, 2) = Cells(sat, "e")
ListBox1.List(s, 3) = Cells(sat, "f")
ListBox1.List(s, 4) = Cells(sat, "g")
ListBox1.List(s, 5) = Cells(sat, "h")
ListBox1.List(s, 6) = Cells(sat, "ı")
ListBox1.List(s, 7) = Cells(sat, "j")
ListBox1.List(s, 8) = Cells(sat, "k")
ListBox1.List(s, 9) = Cells(sat, "l")
ListBox1.List(s, 10) = Cells(sat, "m")
ListBox1.List(s, 11) = Cells(sat, "n")
ListBox1.List(s, 12) = Cells(sat, "o")
ListBox1.List(s, 13) = Cells(sat, "p")
s = s + 1
End If: Next
End Sub


ListBox1 ekranında tıklayınca veya ComboBox1_Change butonunda seçim yapıldığında aşağıda kırmızı olan alanda makro hata vermekte üstatlarımdan ricam hatanın giderilmesi ayrıca ComboBox1_Change butonunun iptal edilmesi kayıt yapılacak sayfanın yani personel sayfasındaki verilerin kayıt ve aramalarda

Yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Listboxa additem yöntemiyle en fazla 10 sütun tanımlayabilirsiniz. Çözüm için aşağıdaki linki incelemenizi öneririm.

http://www.excel.web.tr/f48/listboxa-additem-ile-veri-alma-t88608.html