Listelemede hata veriyor

[fmt1976]

Selamlar;
Ben bunu bir yerden araklamıştım ama önceleri alışıyordu ama şimdi çalışmıyor liste comboxtan seçince liste o kişiler çıkıyordu ama şimdi hata veriyor. Şimdi ise
compile error
can't find project or liblrary
hatası veriyor

kodlar
Private Sub ComboBox1_Change()
ListBox1.Clear
If ComboBox1 = "" Then Call liste
Set s1 = Sheets("liste")
For a = 3 To s1.[B65536].End(3).Row
If Left(UCase(s1.Cells(a, "B")), Len(ComboBox1)) = UCase(ComboBox1) Then
c = c + 1
For b = 2 To 10
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub

Private Sub ComboBox2_Change()
ListBox1.Clear
If ComboBox2 = "" Then Call liste
Set s1 = Sheets("liste")
For a = 3 To s1.[E65536].End(3).Row
If Left(UCase(s1.Cells(a, "E")), Len(ComboBox2)) = UCase(ComboBox2) Then
c = c + 1
For b = 2 To 10
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub





Private Sub CommandButton3_Click()
s1 = Sheets("liste").Select
sonsat = ListBox1.ListIndex + 3
Cells(sonsat, 1) = sonsat - 1

Cells(sonsat, 2) = ComboBox5
Cells(sonsat, 3) = TextBox3
Cells(sonsat, 4) = TextBox4
Cells(sonsat, 5) = ComboBox6
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = ComboBox3
Cells(sonsat, 9) = TextBox8


ListBox1.RowSource = "B3:I" & [a65536].End(3).Row
MsgBox "kayıt değiştirildi"


Call liste


End Sub

Private Sub CommandButton4_Click()
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sat = ListBox1.ListIndex + 3
Range("B" & sat & ":I" & sat).Delete
'B ve I sutunları En satır numarası ile birleştiriliyor.
'silincek hücre adresleri bulunuyor.
'B sütunu ve I sutunu arasında kalan hücreler siliniyor.
[a65536].End(3).ClearContents
Range("a3:I" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
ListBox1.Clear
Call liste
End Sub

Private Sub ListBox1_DbClick()

If ListBox_ara.ListCount < 1 Then Exit Sub
SATIR = Sheets("liste").[B:I].Find(ListBox1.Column(0), LookAt:=xlWhole).Row
ComboBox5 = Cells(SATIR, "B").Value
TextBox3 = Cells(SATIR, "C").Value
TextBox4 = Cells(SATIR, "D").Value
ComboBox6 = Cells(SATIR, "E").Value
TextBox5 = Cells(SATIR, "f").Value
TextBox6 = Cells(SATIR, "g").Value
ComboBox3 = Cells(SATIR, "h").Value
TextBox8 = Cells(SATIR, "I").Value
End Sub



Private Sub CommandButton5_Click()
ListBox1.Height = 476
End Sub

Private Sub CommandButton6_Click()
Call liste
End Sub

Private Sub iptal_Click()
Unload Me
End Sub



Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
SATIR = Sheets("liste").[C:I].Find(ListBox1.Column(2), LookAt:=xlWhole).Row

ComboBox5 = Cells(SATIR, "B").Value
TextBox3 = Cells(SATIR, "C").Value
TextBox4 = Cells(SATIR, "D").Value
ComboBox6 = Cells(SATIR, "E").Value
TextBox5 = Cells(SATIR, "F").Value
TextBox6 = Cells(SATIR, "G").Value
ComboBox3 = Cells(SATIR, "H").Value
TextBox8 = Cells(SATIR, "I").Value
End Sub

Private Sub TextBox2_Change()
ListBox1.Clear
If TextBox2 = "" Then Call liste
Set s1 = Sheets("liste")
For a = 3 To s1.[d65536].End(3).Row
If Left(UCase(s1.Cells(a, "d")), Len(TextBox2)) = UCase(TextBox2) Then
c = c + 1
For b = 2 To 10
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub

Private Sub ComboBox4_Change()
ListBox1.Clear
If ComboBox4 = "" Then Call liste
Set s1 = Sheets("liste")
For a = 3 To s1.[H65536].End(3).Row
If Left(UCase(s1.Cells(a, "h")), Len(ComboBox4)) = UCase(ComboBox4) Then
c = c + 1
For b = 2 To 10
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub

Private Sub CommandButton1_Click()
ListBox1.Height = 270



End Sub

Private Sub CommandButton2_Click()
sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = ComboBox5
Cells(sonsat, 3) = TextBox3
Cells(sonsat, 4) = TextBox4
Cells(sonsat, 5) = ComboBox6
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = ComboBox3
Cells(sonsat, 9) = TextBox8

MsgBox "kayıt edildi"
End Sub

Private Sub TextBox1_Change()
ListBox1.Clear
If TextBox1 = "" Then Call liste
Set s1 = Sheets("liste")
For a = 3 To s1.[B65536].End(3).Row
If Left(UCase(s1.Cells(a, "c")), Len(TextBox1)) = UCase(TextBox1) Then
c = c + 1
For b = 2 To 10
ListBox1.AddItem
ListBox1.List(c - 1, b - 2) = s1.Cells(a, b)
Next
End If
Next
End Sub


Private Sub UserForm_Activate()
ListBox1.Height = 476
Sheets("liste").Select
Call liste
End Sub

Private Sub liste()
Dim i As Integer
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "60;160;180;115;50;190;35;45"
For i = 3 To Cells(65536, 3).End(xlUp).Row
ListBox1.AddItem
'ListBox1.Column(0, i - 2) = Cells(i, "A").Value
ListBox1.Column(0, i - 3) = Cells(i, "B").Value
ListBox1.Column(1, i - 3) = Cells(i, "C").Value
ListBox1.Column(2, i - 3) = Cells(i, "D").Value
ListBox1.Column(3, i - 3) = Cells(i, "E").Value
ListBox1.Column(4, i - 3) = Cells(i, "F").Value
ListBox1.Column(5, i - 3) = Cells(i, "G").Value
ListBox1.Column(6, i - 3) = Cells(i, "H").Value
ListBox1.Column(7, i - 3) = Cells(i, "I").Value

Next
End Sub

 

[Murat OSMA]

VBE Penceresindeki üst menülerden Tools'u ve ardından References'i seçin.
Açılan Referans penceresinde MISSNG ile başlayan referans varsa onun seçimini iptal edin ve OK tuşuna basın.
Şimdi tekrar deneyin.

 

[fmt1976]

Teşekkür ederim oldu sebebi neymiş peki öğrenebilirmiyim