Takvim uygulaması

[metbes]

Benim verdiğim dosya çalışıyormu peki.Bende sorunsuz çalışıyor size yolladığım dosya.

Açılırken hata veriyor sizden aldığım dosya ama galiba Calendar1.Value bulunamıyor. Bu özellik benim 2003 te yok galiba 2007 de çalışacağını düşünüyorum.

 

[Orion1]

Açılırken hata veriyor sizden aldığım dosya ama galiba Calendar1.Value bulunamıyor. Bu özellik benim 2003 te yok galiba 2007 de çalışacağını düşünüyorum.

ilgili oxc dosyasını bulup windowssiystem32 klasörüne kopyalayıp.
Regystar yaparsanız sorun düzelir.

 

[metbes]

ilgili oxc dosyasını bulup windowssiystem32 klasörüne kopyalayıp.
Regystar yaparsanız sorun düzelir.

dosyanın tam ismini verirseniz çok sevinirim:tongue::yardim::bravo:

 

[indiantr]

Arkadaşlar,

Hücre içerisine geldiğimde tarih seçebileceğim takvimin açılmasını sağlayabilir miyim?

 

[indiantr]

Konu hakkında yardımcı olabilir misiniz?

 

[wishm]

Sayın indiantr sorusuna ek olarak kendi belirleyebileceğimiz hücreye geldiğimizde takvimin hücrenin yanında yada altında açılmasını sağlayabiliriyiz. Yanıtlarınız için şimdiden teşekkür ederim. Saygılarımla.

 

[halit3]

Konu hakkında yardımcı olabilir misiniz?

iki nolu mesajda sayfa2 de sarı renkli hücrelerde söylediğiniz örnek var

 

[ahmett46]

Halit3 hocam mrb
yapmış olduğunuz takvim uygulamasını bir programda kullanmak istiyorum. Ancak sadece istediğim bir hücreye tıkladığımda açılsın. diğer sayfaları ve kodları kullanmak istemiyorum. Hangi kodu kullanmalıyım? Teşekkürler

 

[halit3]

Halit3 hocam mrb
yapmış olduğunuz takvim uygulamasını bir programda kullanmak istiyorum. Ancak sadece istediğim bir hücreye tıkladığımda açılsın. diğer sayfaları ve kodları kullanmak istemiyorum. Hangi kodu kullanmalıyım? Teşekkürler

aşağıdaki kodu denermisiniz bu kod yanlızca A1 hücresinde çılışıyor

Dim deger1 As String
Private Sub Calendar1_Click()
Range(deger1).Value2 = Calendar1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = ActiveWindow.Selection.Row
b = ActiveWindow.Selection.Column
deger = ActiveCell.Address(False, False)
deger1 = ActiveCell.Address(False, False)
If Intersect(Target, [A1]) Is Nothing Then
Calendar1.Visible = False
Calendar1.Value = Date
Exit Sub
Else
Calendar1.Visible = True
End If
End Sub

değiştireceğin bölüm burusı

If Intersect(Target, [A1]) Is Nothing Then

 

[ahmett46]

Hocam değişik takvim uygulamalarındaki kodları deniyorum ama "Run-time error '424'"hatası veriyor. eklentilerde mi eksikliğimiz var?

 

[halit3]

Hocam değişik takvim uygulamalarındaki kodları deniyorum ama "Run-time error '424'"hatası veriyor. eklentilerde mi eksikliğimiz var?

Takvim Denetim nesnesini yüklememişsin

ekli resime bir bak bu doğrultuda yükle

 

[ahmett46]

Teşekkürler Hocam