Unexpected Error Hatası,

[gicimi]

Merhaba;



Bu hatanın anlamı nedir. Dosyayı açtığımda resimdeki hatayı veriyor. Tamam dedikten sonra dosya çalışıyor. Düzeltmek için nasıl bir işlem yapmalıyım. Dosya ektedir. Teşekkürler.

ŞİFRE: YXHT3C
Şifreyi yazmanız gerekiyor. Kopyala yapıştır yaptığınızda şifre hatalı uyarısı veriyor.

 

[gicimi]

Kullanılan excel versiyonundan kaynaklı olabilir mi?
Office 2016
Office 2013 aynı hatayı aldım.

 

[gicimi]

Konu güncel hatayı hiçbir türlü düzeltemedim. Siz değerlerli üstadların desteğini bekliyorum.

 

[Muzaffer Ali]

Tools / Referances seçin açılan penceredeki listede önünde "Missing" yazanların işaretini kaldırıp "OK" tıklatın.
Şimdi tekrar deneyin.

 

[gicimi]

Sn. @dalgalikur Hocam kaldıramıyorum izin vermiyor.

 

[Muzaffer Ali]

Böyle bir şeyle daha evvel karşılaşmadım ama bir de makrolar devre dışı yaptıktan sonra dosyayı aç ve bir de öyle dene.
Eğer yinede olmazsa dosyandaki bütün sayfaları ve kodları yeni bir excel dosyasına kopyala onun üzerinde çalış.
Eski dosyanızdaki referansların aynılarını yeni dosyada da eklemeyi unutmayın.
Kolay gelsin.

 

[gicimi]

@dalgalikur hocam size zahmet olmazsa yapabilir misiniz. Ben yapmaya çalıştım eksik oldu. Gizli kitapları kopyalayamadım.

 

[Muzaffer Ali]

Buyur.

Referanslardan "Microsoft Outlook (versiyon No) Object Library" eklemeyi unutma.

 

[gicimi]

@dalgalikur hocam sizin paylaştığınız excelde makroları etkinleştirdiğimde resimdeki hatayı veriyor.

Debug hata olarak - Tarihh(j) = DateValue(Gün & "." & Ay & "." & Yıl)

 

[Muzaffer Ali]

Çünkü Gün = -1000 değerine sahip. Gün -1000 değerini alamayacağından hata veriyor.
Gün değerini "For Hücre" döngüsü ile Takvim sayfasındaki B5:H10 hücre aralığından alıyor.
Bu aralığı kontrol etmelisin.

Takvim sayfasını görünür yapmak için.
TAKVIM.Visible = xlSheetVisible
Aynı şekilde gizlemek için
TAKVIM.Visible =xlSheetVeryHidden
kodlarını kullanabilirsin.