UserForm Diğer Makinalarda açılışta hata veriyor

[Hakan ERDOST]

Herkese Günaydın .Ücretli Öğretmen Bordrosu için yaptığım bir çalışmada UserForm1 Hafta SOnu Benim Makinamda sorun çıkarmazken okuldaki makinalarda sorun çıkarıyor.Açılışta hata veriyor. Dosya ekte yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Hakan ERDOST]

Özür dosyayı eklememişim.

 

[Halit TÜRK]

Merhaba

C:\Program Files\Microsoft Office\OFFICE11 içerisinde bulunan MSCAL.OCX ActiveX denetimini kullanacağın bilgisayarda aynı yere kaydederseniz sorununuz çözülür zannediyorum. Bende de olmuştu bu şekilde hallettim..

 

[Hakan ERDOST]

Private Sub UserForm_Initialize()

Label17.Caption = Sheets("GÜNDÜZ").Range("D4")
Label18.Caption = Sheets("GÜNDÜZ").Range("E4")
Label19.Caption = Sheets("GÜNDÜZ").Range("F4")
Label20.Caption = Sheets("GÜNDÜZ").Range("G4")
Label21.Caption = Sheets("GÜNDÜZ").Range("H4")
Label22.Caption = Sheets("GÜNDÜZ").Range("I4")
Label23.Caption = Sheets("GÜNDÜZ").Range("J4")
Label24.Caption = Sheets("GÜNDÜZ").Range("K4")
Label25.Caption = Sheets("GÜNDÜZ").Range("L4")
Label26.Caption = Sheets("GÜNDÜZ").Range("M4")
Label27.Caption = Sheets("GÜNDÜZ").Range("N4")
Label28.Caption = Sheets("GÜNDÜZ").Range("O4")
Label29.Caption = Sheets("GÜNDÜZ").Range("P4")
Label30.Caption = Sheets("GÜNDÜZ").Range("Q4")
Label31.Caption = Sheets("GÜNDÜZ").Range("R4")
Label32.Caption = Sheets("GÜNDÜZ").Range("S4")
Label33.Caption = Sheets("GÜNDÜZ").Range("T4")
Label34.Caption = Sheets("GÜNDÜZ").Range("U4")
Label35.Caption = Sheets("GÜNDÜZ").Range("V4")
Label36.Caption = Sheets("GÜNDÜZ").Range("W4")
Label37.Caption = Sheets("GÜNDÜZ").Range("Y4")
Label38.Caption = Sheets("GÜNDÜZ").Range("Z4")
Label39.Caption = Sheets("GÜNDÜZ").Range("AA4")
Label40.Caption = Sheets("GÜNDÜZ").Range("AB4")
Label41.Caption = Sheets("GÜNDÜZ").Range("AC4")
Label42.Caption = Sheets("GÜNDÜZ").Range("AD4")
Label43.Caption = Sheets("GÜNDÜZ").Range("AE4")
Label44.Caption = Sheets("GÜNDÜZ").Range("AF4")
Label45.Caption = Sheets("GÜNDÜZ").Range("AG4")
Label46.Caption = Sheets("GÜNDÜZ").Range("AH4")
Label47.Caption = Sheets("GÜNDÜZ").Range("AL4")
TextBox34.Value = Format(Date, "dddd.d.mm.yyyy")



ListBox1.ColumnCount = 1
ListBox1.RowSource = "GÜNDÜZ!B5:B34"
ListBox1.ColumnWidths = "100"

TextBox34.Value = Format(Date, "dddd.d.mm.yyyy")

Date de hata veriyor

 

[Levent Menteşoğlu]

O satırda hata verecek bir durum yok, Textbox24 e kod yazdı iseniz o kodlara bakın. Birde ilgili kodu aşağıdaki gibi değiştirerek deneyin.

TextBox34 = FormatDateTime(Date, vbLongDate)

 

[Hakan ERDOST]

Sayın leventm her zamanki gibi ilginize teşekkürler ama olmuyor.Date satırınıda Compile Error hatası veriyor.Date üzerinde.

 

[Hakan ERDOST]

Sayın leventm UserForm1 deki kodalrda sanırmbir hata yaptım .Date sildiğimde de kodlarda başka hatalar veriyor.Bakarsanız çok iyi olur...

 

[Levent Menteşoğlu]

Birde işaretli referanslara bakın. Missing diye başlayan gereksiz işaretli referanslar varsa bunlardaki işaretleri kaldırın.

 

[Hakan ERDOST]

Sayın leventm tekrar teşekkür ederim.Sorun çözüldü.Ancak sorunun sebebini bilmek ve Öğrenmek adına neden missing hatası verdi sebebi nedir?Çünkü çalışmayı paylaşıma açacağım o zaman başka makinalarda da sorun çıkabilir.Tekrar teşekkürler .Bittiğinde foruma da ekleyeceğim.

 

[Levent Menteşoğlu]

Kendi pcnizde toolboxa yeni nesneler eklediğinizde bunların referanslarınıda yüklemiş olursunuz. Dosyanız başka bir pc de açıldığında bu referanslar bulunamadığında missing olarak işaretlenir. Özellikle standart olmayan nesnelerde bu durum ortaya çıkar. Bu sebeple çalışmalarınızda standart olmayan nesneleri kullanmaktan kaçınmanızı öneririm.

 

[svorm]

Aynı sorun bende de var, fakat dediğiniz gibi mscal.ocx dosyasını kontrol ettim zaten orada duruyor.
farklı ne olabilir.

 

[İhsan Tank]

Aynı sorun bende de var, fakat dediğiniz gibi mscal.ocx dosyasını kontrol ettim zaten orada duruyor.
farklı ne olabilir.

merhaba
levent hocamın söylediği 8'inci veya 10'uncu mesajları kontrol ediniz hala hata düzelmez ise lütfen örnek dosya ile gönderin

 

[svorm]

merhaba
levent hocamın söylediği 8'inci veya 10'uncu mesajları kontrol ediniz hala hata düzelmez ise lütfen örnek dosya ile gönderin

Merhaba

Dosya bu siteden idirdiğim hücreye tarih eklemek için gerekli olan koddur.
Alttaki linten indirdim.

http://www.excel.web.tr/showthread.php?t=19365&highlight=date+picker

Fakat program işletmedeki tüm pc lerde çalışıyor sadece 2 pc de çalışmıyor.
microsoft un sitesinden owc11.exe yi de yükledim. Gene olmadı.

Acaba bu iki bilgisayardaki office programlarını kaldırıp yeniden mi kursak...

 

[İhsan Tank]

Kod sayfasındaki Tools / References Microsoft Calender Control kutusunu işaretleyerek deneyin.

bunu deneyin bir sonuş olmaz ise takrar geri dönüş yapın

 

[svorm]

Merhaba Çılgın 86 lı;

Dediğiniz gibi ilk ona baktım fakat listede calender controls yada date controls gibi bir seçenek bulamadım.

Daha sonra sitede araştırma yaptım, buldugum yolları denedim,
Bunlar;

system 32 klasörünün altında mscom.ocx kontorlu yaptım
mıcrosofttan owc11.exe ındırdım.
offıce klasörünün altında mscal.ocx kalsörünü kontrol ettim.

Ayrıca Vba da referances ta,
Missing ile işaretli bir kutucuk yok,
liste içinde dediğim gibi calender control de yok.

KODUN VERDİĞİ HATAYI EKTEKI DOSYADA GOREBILIRSINIZ.

KOD DA HATA VEREN KISIM;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, [B2]) Is Nothing Then Exit Sub

Cancel = True
Calendar1.Value = Date
For a = 1 To 170 Step 8
Calendar1.Height = a
Next

End Sub



TEŞEKKÜRLER

 

[İhsan Tank]

merhaba
bunu deneyiniz

 

[svorm]

ÇILGIN 86

Verdiğiniz bütün detaylı destek için teşekkür ederim,

Sanırım sorunu anlattığınız şekilde çözebilirim.

Teşekkürler

 

[İhsan Tank]

rica ederim iyi çalışmalar

 

[ensa78]

fatura programım başka bilgisayarda hata veriyor

kolay gelsin ekteki fatura programı başka bilgisayarda hata veriyor yardımcı olursanız sevinirim kolay gelsin