sütünlara takvim koyma

[selim5534]

s..a sayfa koruma şifresi 12345 ayrıca bir sorum daha olacak ben takvimi istediğim hürede ıksın istiyorum onu nasıl ayarlayabilirim. biraz ugraştım ama yapamadım örnek a1 b10 c5 hüresine tıklayınca takvim çıkmasını istiyorum. şimdiden teşekkür ederim

 

[feridici_genc]

Bende yardım beklemekteyim.

 

[Orion1]

s..a sayfa koruma şifresi 12345 ayrıca bir sorum daha olacak ben takvimi istediğim hürede ıksın istiyorum onu nasıl ayarlayabilirim. biraz ugraştım ama yapamadım örnek a1 b10 c5 hüresine tıklayınca takvim çıkmasını istiyorum. şimdiden teşekkür ederim

Sanırım istediğin hücrede çıkma konusu standart vba kodları ile yapılamıyor.
Onun için Api yazmak gerekli.Benimde arşivimde böyle bir api olmadığı için bu konuda bir şey yapamadım.Ama istediğniz hücreye tarih yazma olayını hallettim.
Dosyanız ektedir ve linktedir.

DOSYAYI İNDİR
...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1,B10,C5]) Is Nothing Then Exit Sub
Cancel = True
Tarih.Show
End Sub

 

[Orion1]

Sayın Orion1
a stünuna manuel giriş yapılmaması için ne yapmamız gerekiyor? sadece takvim açılacak ve takvimden gelen tarih verisi girilecek. böyle bir şey mümkün müdür?

Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1,B10,C5]) Is Nothing Then Exit Sub
Cancel = True
[B][COLOR="Blue"]ActiveSheet.Unprotect[/COLOR][/B]
Tarih.Show
[B][COLOR="blue"]ActiveSheet.Protect[/COLOR][/B]
End Sub