CommandButton1' e bastığımda çıkan hata uyarısı

G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
Sayın hocalarım, aşağıda belirttiğim ve özellikle kırmızı renkle belirttiğim kodlarda hata mesajı alıyorum. "Compile Error: Can't find Project or library" bu ne anlama geliyor, kodlarda nasıl bir hata yaptığımı çözemedim, yardımlarınızı bekliyorum. ayrıca bu işte acemi olduğum için diğer kodlarda bir hatam varmı buna da bir göz atarsanız memnun olurum. saygılar.

Dim Yeni_mi As Boolean
'.....................'

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Data").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("Data").Range("C" & Bos_Satir).Value = ComboBox1.Text
Sheets("Data").Range("D" & Bos_Satir).Value = TextBox2.Text
Sheets("Data").Range("E" & Bos_Satir).Value = TextBox3.Text
Sheets("Data").Range("F" & Bos_Satir).Value = TextBox4.Text
Sheets("Data").Range("G" & Bos_Satir).Value = TextBox5.Text
Sheets("Data").Range("H" & Bos_Satir).Value = TextBox6.Text
Sheets("Data").Range("I" & Bos_Satir).Value = TextBox7.Text
Sheets("Data").Range("J" & Bos_Satir).Value = TextBox8.Text
Sheets("Data").Range("K" & Bos_Satir).Value = TextBox9.Text
Sheets("Data").Range("L" & Bos_Satir).Value = TextBox10.Text
Sheets("Data").Range("M" & Bos_Satir).Value = TextBox11.Text
Sheets("Data").Range("N" & Bos_Satir).Value = TextBox12.Text
Sheets("Data").Range("O" & Bos_Satir).Value = TextBox13.Text
Sheets("Data").Range("P" & Bos_Satir).Value = TextBox14.Text
Sheets("Data").Range("Q" & Bos_Satir).Value = TextBox15.Text
Sheets("Data").Range("R" & Bos_Satir).Value = TextBox16.Text
Sheets("Data").Range("S" & Bos_Satir).Value = TextBox17.Text
Sheets("Data").Range("T" & Bos_Satir).Value = TextBox18.Text
Sheets("Data").Range("U" & Bos_Satir).Value = TextBox19.Text
Sheets("Data").Range("V" & Bos_Satir).Value = TextBox20.Text
Sheets("Data").Range("W" & Bos_Satir).Value = ComboBox2.Text
Sheets("Data").Range("X" & Bos_Satir).Value = TextBox21.Text
Sheets("Data").Range("Y" & Bos_Satir).Value = ComboBox3.Text
Sheets("Data").Range("Z" & Bos_Satir).Value = TextBox22.Text
Sheets("Data").Range("AA" & Bos_Satir).Value = TextBox23.Text
Sheets("Data").Range("AB" & Bos_Satir).Value = TextBox24.Text
Sheets("Data").Range("AC" & Bos_Satir).Value = TextBox25.Text
Sheets("Data").Range("AD" & Bos_Satir).Value = TextBox26.Text
Sheets("Data").Range("AE" & Bos_Satir).Value = TextBox27.Text
Sheets("Data").Range("AF" & Bos_Satir).Value = TextBox28.Text
Sheets("Data").Range("AG" & Bos_Satir).Value = ComboBox4.Text
Sheets("Data").Range("AH" & Bos_Satir).Value = TextBox29.Text
Sheets("Data").Range("AI" & Bos_Satir).Value = ComboBox5.Text
Sheets("Data").Range("AJ" & Bos_Satir).Value = TextBox30.Text
Sheets("Data").Range("AK" & Bos_Satir).Value = TextBox31.Text
Sheets("Data").Range("AL" & Bos_Satir).Value = TextBox32.Text
MsgBox "Kaydetme İşlemi Tamamlandı"
Sheets("Ana").Range("B1").Value = TextBox1.Text
Sheets("Ana").Range("B2").Value = ComboBox1.Text
Sheets("Ana").Range("B3").Value = TextBox2.Text
Sheets("Ana").Range("B4").Value = TextBox3.Text
Sheets("Ana").Range("B5").Value = TextBox4.Text
Sheets("Ana").Range("B6").Value = TextBox5.Text
Sheets("Ana").Range("B7").Value = TextBox6.Text
Sheets("Ana").Range("B8").Value = TextBox7.Text
Sheets("Ana").Range("B9").Value = TextBox8.Text
Sheets("Ana").Range("B10").Value = TextBox9.Text
Sheets("Ana").Range("B11").Value = TextBox10.Text
Sheets("Ana").Range("B12").Value = TextBox11.Text
Sheets("Ana").Range("B13").Value = TextBox12.Text
Sheets("Ana").Range("B14").Value = TextBox13.Text
Sheets("Ana").Range("B15").Value = TextBox14.Text
Sheets("Ana").Range("B16").Value = TextBox15.Text
Sheets("Ana").Range("B17").Value = TextBox16.Text
Sheets("Ana").Range("B18").Value = TextBox17.Text
Sheets("Ana").Range("B19").Value = TextBox18.Text
Sheets("Ana").Range("B20").Value = TextBox19.Text
Sheets("Ana").Range("B21").Value = TextBox20.Text
Sheets("Ana").Range("B22").Value = ComboBox2.Text
Sheets("Ana").Range("B23").Value = TextBox21.Text
Sheets("Ana").Range("B24").Value = ComboBox3.Text
Sheets("Ana").Range("B25").Value = TextBox22.Text
Sheets("Ana").Range("B26").Value = TextBox23.Text
Sheets("Ana").Range("B27").Value = TextBox24.Text
Sheets("Ana").Range("B28").Value = TextBox25.Text
Sheets("Ana").Range("B29").Value = TextBox26.Text
Sheets("Ana").Range("B30").Value = TextBox27.Text
Sheets("Ana").Range("B31").Value = TextBox28.Text
Sheets("Ana").Range("B32").Value = ComboBox4.Text
Sheets("Ana").Range("B33").Value = TextBox29.Text
Sheets("Ana").Range("B34").Value = ComboBox5.Text
Sheets("Ana").Range("B35").Value = TextBox30.Text
Sheets("Ana").Range("B36").Value = TextBox31.Text
Sheets("Ana").Range("B37").Value = TextBox32.Text
TextBox1.Text = ""
ComboBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
ComboBox2.Text = ""
TextBox21.Text = ""
ComboBox3.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
ComboBox4.Text = ""
TextBox29.Text = ""
ComboBox5.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub CommandButton3_Click()
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Yeni_mi = True
Silinecek_Satir = ListBox1.ListIndex + 2
Sheets("Data").Rows(Silinecek_Satir).Delete
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox2.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""

ListBox1.RowSource = "Data!B2:C" & Sheets("Data").Range("A65536").End(xlUp).Row

End If
End If
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
Bulunan_Satir_No = ListBox1.ListIndex + 2
With Sheets("Data")
TextBox1.Text = .Range("B" & Bulunan_Satir_No).ValueAna
ComboBox1.Text = .Range("C" & Bulunan_Satir_No).Value
TextBox2.Text = .Range("D" & Bulunan_Satir_No).Value
TextBox3.Text = .Range("E" & Bulunan_Satir_No).Value
TextBox4.Text = .Range("F" & Bulunan_Satir_No).Value
TextBox5.Text = .Range("G" & Bulunan_Satir_No).Value
TextBox6.Text = .Range("H" & Bulunan_Satir_No).Value
TextBox7.Text = .Range("I" & Bulunan_Satir_No).Value
TextBox8.Text = .Range("J" & Bulunan_Satir_No).Value
TextBox9.Text = .Range("K" & Bulunan_Satir_No).Value
TextBox10.Text = .Range("L" & Bulunan_Satir_No).Value
TextBox11.Text = .Range("M" & Bulunan_Satir_No).Value
TextBox12.Text = .Range("N" & Bulunan_Satir_No).Value
TextBox13.Text = .Range("O" & Bulunan_Satir_No).Value
TextBox14.Text = .Range("P" & Bulunan_Satir_No).Value
TextBox15.Text = .Range("Q" & Bulunan_Satir_No).Value
TextBox16.Text = .Range("R" & Bulunan_Satir_No).Value
TextBox17.Text = .Range("S" & Bulunan_Satir_No).Value
TextBox18.Text = .Range("T" & Bulunan_Satir_No).Value
TextBox19.Text = .Range("U" & Bulunan_Satir_No).Value
TextBox20.Text = .Range("V" & Bulunan_Satir_No).Value
ComboBox2.Text = .Range("W" & Bulunan_Satir_No).Value
TextBox21.Text = .Range("X" & Bulunan_Satir_No).Value
ComboBox3.Text = .Range("Y" & Bulunan_Satir_No).Value
TextBox22.Text = .Range("Z" & Bulunan_Satir_No).Value
TextBox23.Text = .Range("AA" & Bulunan_Satir_No).Value
TextBox24.Text = .Range("AB" & Bulunan_Satir_No).Value
TextBox25.Text = .Range("AC" & Bulunan_Satir_No).Value
TextBox26.Text = .Range("AD" & Bulunan_Satir_No).Value
TextBox27.Text = .Range("AE" & Bulunan_Satir_No).Value
TextBox28.Text = .Range("AF" & Bulunan_Satir_No).Value
ComboBox4.Text = .Range("AG" & Bulunan_Satir_No).Value
TextBox29.Text = .Range("AH" & Bulunan_Satir_No).Value
ComboBox5.Text = .Range("AI" & Bulunan_Satir_No).Value
TextBox30.Text = .Range("AJ" & Bulunan_Satir_No).Value
TextBox31.Text = .Range("AK" & Bulunan_Satir_No).Value
TextBox32.Text = .Range("AL" & Bulunan_Satir_No).Value
End With
End Sub
Genişletmek için tıkla ...
 
Son düzenleme:
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,666
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Bu hata excelin arka planda kullanmış olduğu kütüphanelerle ilgili bir hata mesajıdır.

Kod editörünü açtıktan sonra TOOLS-REFERENCES menüsünü açın. Ekranan gelen pencerede MISSING ile başlayan seçenekleri pasif hale getirin ve tamam dedikten sonra dosyanızı kapatıp tekrar açın.
 
G

gezgin-49

Altın Üye
Katılım
17 Ekim 2006
Mesajlar
669
Excel Vers. ve Dili
Türkçe 2003
Altın Üyelik Bitiş Tarihi
22-09-2028
teşekkürler sayın üstadım ellerinize, emeğinize sağlık, saygılarımı sunuyorum
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst