library hatası veriyor

[hagunesci]

:yardim: programımda bir tusa verdiğim görevde conpile error...can't find project or library... hatası veriyor....
tools references'den ek library yaptım ama sorun devam ediyor.
ne yapmalıyım??

 

[Ferhat Pazarçevirdi]

Hatanın çıktığı kod bloğunu buraya kopyalayabilir misiniz?

 

[hagunesci]

KOD AYNEN BU ŞEKİLDE HATAYI İSE S'DE VERİYOR...
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
S = YKK.ListBox1.ListIndex + 1
SONSAYI = Sheets("VERI").Range("L1").Value

 

[Recep İpek]

Burada YKK userform'un ismi mi?

 

[hagunesci]

userform ismi

 

[Recep İpek]

Bende kodlarınız gayet güzel çalışıyor.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim S, SONSAYI
S = YKK.ListBox1.ListIndex + 1
SONSAYI = Sheets("VERI").Range("L1").Value

olarak deneyebilirmisiniz?

 

[Ferhat Pazarçevirdi]

Listbox'da library hatası vermesinin nerdeyse imkanı yok. Başka bir nesne olsa belki olabilirdi.

Aklıma şöyle bir şey geliyor. Daha önce, "S" değişkenini -public veya global olarak- bir şeye set ettiniz mi? Yani herhangi bir nesne, kolleksiyon vb. gibi

Yani "Set S =......" şeklinde başlayan herhangi bir satırınızın var mı?

NOT : veya YKK için de aynı şey geçerli .....

 

[hagunesci]

hatayı sadece listboxta değil mid ve
SOR = "Lütfen Kullanıcı Adını Yazınız..."
CEVAP = InputBox(SOR, "Kullanıcı Tanımlama", "hagunesci")... komutundaki SOR İÇİN de veriyor...
değişkenleride başka bir yerde kullanmamaya özen gösterdim... dosya ekte nasıl olmuş bir bakarmısınız??:roll:

 

[Ferhat Pazarçevirdi]

Kodunuza aşağıdaki satırı ilave edin.

Private Sub Workbook_Open()
[COLOR=red][B]Dim sor As String, cevap As String[/B][/COLOR]
...
...
End Sub

Projenize bir sürü kütüphane referansı eklemişsiniz. Bunlar gerekli mi?

 

[hagunesci]

hatanın kütüphane referansı eksikliğinden olma ihtimalini düşünmüştüm...
hangi referansın hangi koda uygun oldugunu bilmiyorum o yüzden eklentileri fazlasıyla yapmıştım...

tavsiyeniz yada bilgi alabilecegim bir yer varsa lütfen...

diğer kütüphane hataları için ne yapmalıyım....?

 

[Ferhat Pazarçevirdi]

Sadece şunlar kalsa; sanırım sizin dosya için yeterli olur.

1.Visual Basic for applications
2. Microsoft Excel 11.0 Object Library
3. OLE automation
4. Micorost Office 11.0 Object Library
5. Microsoft Forms 2.0 Object Library

Geri kalanlardaki çentikleri kaldırın.

 

[hagunesci]

çok teşekkür ederim yardımlarınız ve degerli zamanınızı aldıgım için...