• DİKKAT

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

Compile error hakkında

Katılım
21 Eylül 2005
Mesajlar
184
Excel Vers. ve Dili
ofis 365 İngilizce
Merhaba,
iki ayrı bilgisayar kullanıyorum ofiste ve net bağlantısı var..ikiside xp ve excel2000.Ancak birisinde çalışan kod diğerinde compile error in hidden module:seyfa 7 şeklinde hata veriyor.debug açılımındada can't file project or library uyarısı veriyor..sorun nedir acaba?Kod diğerinde gayet normal çalışıyor..
şimdiden teşekkürler.
 
Kod aşağıdaki gibi..
Private Sub CommandButton1_Click()
If MsgBox("BAKİYELERİ DEVRETTİNİZ Mİ?", vbYesNo) = vbNo Then Exit Sub
If MsgBox("TÜM SAYFALAR SİLİNSİNMİ?", vbYesNo) = vbNo Then Exit Sub
For a = 8 To ActiveWorkbook.Worksheets.Count
Worksheets(a).Range("b14:b32").ClearContents
Worksheets(a).Range("d14:d32").ClearContents
Worksheets(a).Range("ı14:ı30").ClearContents
Worksheets(a).Range("k14:k32").ClearContents
Worksheets(a).Range("e34").ClearContents
Worksheets(a).Range("l34").ClearContents
Worksheets(a).Range("l14:l32").ClearContents
Next
MsgBox ("TÜM SAYFALAR SİLİNDİ")
 
VB editöründe Tools-references ten her iki exceldeki referanslara bakın, sorun çıkaran exceldeki fazla olan referansı kaldırın.
 
çok te_ekkürler leventm.Bu siteyi geç ke_fettiim için çok üzgünüm..
iyilikler diliyorum..
 
sayin leventm
üzgünüm ama yapt1m anlatt1klar1n1z1 ama çalismadi yine.
 
Peki bir kod içindeki "ı14:ı30" aralığını "I14:I30" olarak veya "i14:i30" şeklinde değiştirerek deneyin.
 
SEVGİLİ LEVENTM,
for a= da a üzerinde hata gösteriyor..
 
verdiğiniz kodlarda hataya neden olacak bir satır ben göremedim, ilginç bir durum, ama bir excel çalışıp diğerinde sorun veriyorsa büyük ihtimalle referans farklılığındandır, başka bir yorum maalesef yapamayacağım.
 
teşekkür ederim ilginize..büyük ihtimalle referanslarla ilgili haklısınız..
 
sayın leventm ve sgm020,
referanstaymış problem,leadmin control referansını kaldırınca çalıştı..
teşekkür ederim.
 
Geri
Üst