• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listelemede hata veriyor

  • Konbuyu başlatan Konbuyu başlatan fmt1976
  • Başlangıç tarihi Başlangıç tarihi
F

fmt1976

Katılım
6 Kasım 2007
Mesajlar
80
Excel Vers. ve Dili
office 2003
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
 
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.
 
Teşekkür ederim oldu sebebi neymiş peki öğrenebilirmiyim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst