takvim ekleme

[zakcil]

forumda takvim ekleme ile ilgili bütün soruları ve cevapları inceledim ama
yinede takvimi ekleyemedim
Tarih kısmına geldiğimde takvim açılmasını ve oradan istediğim tarihi seçebilmeyi istiyorum yardımcı olabilirseniz çok sevinirim

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Calendar1_Click()
Range("I6").Value = Calendar1.Value
Range("I6").NumberFormat = "dd.mm.yyyy"
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$6" Then
    Calendar1.Visible = True
    Else
    Calendar1.Visible = False
End If
End Sub

 

[zakcil]

üstad gönderdiğiniz dosyayı açtım
takvim görünüyor fakat herhangi
bir tarih seçemiyorum tarihleri tıkladığımda
microsoft visual basic açılıyor

 

[Orion1]

üstad gönderdiğiniz dosyayı açtım
takvim görünüyor fakat herhangi
bir tarih seçemiyorum tarihleri tıkladığımda
microsoft visual basic açılıyor

Sanırım güvenlik düzeyiniz yüksek seviyede.
Makroların çalışabilmesi için güvenlik düzeyini en düşüğe getiröelisiniz.

 

[sdegirmenci]

Kıymetli Evren Hocam
Aşağıdaki linkte eklediğiniz dosyayı da açtığımda evdeki bilgisayarımda hata verdi. Oysa aynı dosyayı iş yerindeki bilgisayarım açmakta idi. sanırım eklemem gereken bir özellik var.Yardımcı olabilirmisiniz.
http://www.excel.web.tr/f53/foruma-tekrar-merhaba-t57884.html

 

[kayaba]

Hücreye tıklanılınca takvim cıkması

Calısmalarınız cok guzel olmus emegınıze saglık ekte gondermıs oldugum dosyanın l 16 hucresıne eklentı yaparsanız cok memnun olurum saygılarımla

 

[kamsal]

Ekli dosyayı inceleyiniz.

Private Sub Calendar1_Click()
Range("I6").Value = Calendar1.Value
Range("I6").NumberFormat = "dd.mm.yyyy"
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$6" Then
    Calendar1.Visible = True
    Else
    Calendar1.Visible = False
End If
End Sub

Merhaba Evren Bey,

Bu kodları nereye yapıştırıyoruz açıklayabilirmisiniz?

 

[Orion1]

Merhaba Evren Bey,

Bu kodları nereye yapıştırıyoruz açıklayabilirmisiniz?

Hepsini seçip userfomun modülüne yapıştırın.
not: Calendar1 isimli bir calendar nesneniz userfomda olmalı!

 

[xardias]

merhaba , bu konuyla ben de ilgileniyorum ama nasıl yapılacağını bilemedim, daha detaylı bir şekilde anlatırsanız seviirim