Takvim kodlarında hata

[Bekci_32]

Değerli üstadlar daha öncede yazmıştım ama tam bir sağlıklı cevap alamadım.Ekte göndermiş olduğum çalışma kitabında tam anlamıyla açıklamaya çalıştım.Çözümün siz üstadlarda olduğunu biliyorum.Şimdiden ilgi ve alakanıza teşekkür ediyorum.Saygılar

 

[ozgretmen]

Kırmızı renkli kısmı çıkarıp bir daha dener misiniz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("h5")) Is Nothing Then Exit Sub
On Error Resume Next
'[COLOR="Red"]UserForm1.Calendar1.Value = "dd.mm.yyyy"[/COLOR]
UserForm1.Show
End Sub

 

[Bekci_32]

Denedim hocam olmuyor"dd.mm.yyyy"nin yerine "Date" kullandım yine olmadı.Acaba PC üzerinde kurulmuş olan OFFICE2003 ten kaynaklanıyor olabilirmi.Benim aklıma bu geliyor.Çünkü bir kaç tane pc de bunu yaptı.Bu takvim için gerekli System 32 veya OFFICE2003'ün içerisindeki dosya nedir.Bunu bulabilirsem belki diğer PC lerde kurulu dosyalar ile karşılaştırabilirim.Belki sorun bu şekilde çözülür diye düşünüyorum.Teşekkürler.