run-time error 80010108

[tahiroglu]

arkadaşlar herkese merhaba.
kullanmış olduğum programda sadece userformlar gözüküyor.yani excel gözükmüyor.rapor aldığım form ile anasayfa olarak kullandığım form arasında geçiş yaprken bazen bir hata veriyor özellkle rapor aldıktan sonra anasayfadan tekrar rapor aldığım sayfaya dönüş yaparken bir hata veriyor.
ilk olarak bir hata mesajı geliyor " method-'select' of object 'worksheet' failed yazıyor.debug dedikten sonra ise karşıma yeni bir hata mesajı çıkıyor ve sayfa kapanıyor.
runtime error_2147417848(80010108) connection to type library or object library for remote process has beeb lost.Pres OK for dialog to remove refence.

bu konuda fikri olan varmı.?

 

[tahiroglu]

günaydın arkadaşlar.
bu konuda bana yardımcı olabilecek kimse yokmu.herşey mükemmel gidiyor fakat bu sorun yüzünden programı kullanamaz oldum.

 

[tahiroglu]

arkadaşlar kullanmış olduğum userformun intialize kısmındaki kodu sildiğimde bu hata ortadan kalkıyor.acaba koddamı bir hata var bakabilirmisiniz.???

Private Sub UserForm_Initialize()
Sheets("rapor").Select
Set s1 = Sheets("rapor")
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "120;80;80;80"
toplam = 0


If s1.[a65536].End(3).Row >= 2 Then
ListBox1.RowSource = "rapor!a2:d" & s1.[a65536].End(3).Row
For i = 0 To ListBox1.ListCount - 1
toplam = ListBox1.List(i, 1) + toplam
Next i
Label4.Caption = toplam
Else
Label4.Caption = 0
End If
Label3.Caption = Date & " İTİBARİ İLE GİRİŞİ OLAN HAMMADDE MİKTARI"



Sheets("rapor2").Select
Set s2 = Sheets("rapor2")
ListBox2.ColumnCount = 4
ListBox2.ColumnHeads = True
ListBox2.ColumnWidths = "120;80;80;80"
toplam2 = 0
If s2.[a65536].End(3).Row >= 2 Then
ListBox2.RowSource = "rapor2!a2:d" & s2.[a65536].End(3).Row
For a = 0 To ListBox2.ListCount - 1
toplam2 = ListBox2.List(a, 1) + toplam2
Next a
Label7.Caption = toplam2
Else
Label7.Caption = 0
End If
Label6.Caption = Date & " İTİBARİ İLE ÇIKIŞI OLAN HAMMADDE MİKTARI"
Label8.Caption = toplam - toplam2
Label10.Caption = "İKİ LİSTE FARKI SONUCU STOKTAKİ MEVCUT OLAN HAMMADDE MİKTARI"
end sub

 

[emrexcel123]

dosya

arkadaşım dosyayı yollar mısın?

 

[Levent Menteşoğlu]

Eğer Excel arka planda gizli ise bu durumda .select, .activate gibi komutlar doğal olarak hata verecektir. Yukarıda verdiğiniz kodların içinde bu komutların geçtiği satırları iptal edin.

 

[tahiroglu]

teşekkürler

sayın emrexcel ilginden dolayı teşekkür ederim.sayın leventm dediği gibi select kısımlarını kaldırınca sorun ortadan kalktı.tekrar teşekkür ederim leventm.iyi çalışmalar.akşamınız güzel olsun arkadaşlar:icelim: