popup takvim uygulaması

[uzmanamele]

merhaba
sitede benzer kaynaklar olmasına rağmen aradığımı bulamadım.
ilgili kodu nereye yazacağımı da birtürlü beceremedim.

daha önce siteden indirdiğim popup takvim uygulaması örneğinde;
1- popup takvimin seçtiğim hücrenin hemen altında çıkması,
2- sayfa1 de G5-J30 aralığı haricinde takvim penceresinin çıkmaması,
3- sayfa2 de K5-M30 aralığı haricinde takvim penceresinin çıkmaması,

ilgili kodları verebilecek arkadaşlara teşekkürler.

not: syn leventm'nin takvim örneği dosyasında, seçili hücrenin hemen altında ve seçilen aralıkta takvimin çıkması kodları var ancak ben uyarlayamadım.

 

[uzmanamele]

popup takvimin belirli aralıkta çıkması sağlanabilir mi?

 

[uzmanamele]

syn leventm takvim uygulamalarında not eklemiş, gözümden kaçmış. düzenlemeye çalışacağım.

 

[uzmanamele]

sayın leventm'in takvim uygulamasında

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top + 15
Calendar1.Left = ActiveCell.Left
End Sub

bu kod, takvimin hemen hücrenin altında açılmasını sağlıyor ama popup takvimde bu kodu nereye yazmam gerekiyor?

If Intersect(ActiveCell, [G5,J30]) Is Nothing Then Exit Sub

bu kod, takvimin G5-J30 açılmasını sağlıyor ama popup takvimde bu kodu nereye yazmam gerekiyor?

 

[Levent Menteşoğlu]

Aşağıdaki linki incelemenizi öneririm.

http://www.excel.web.tr/forumdisplay.php?f=133# Seçilen hücrede takvim oluşturma-2