takvim oluşturma yardım

[asilme]

arkadaşlar ekli dosyaya açılır takvim oluşturdum.ancak G sütununa da aynı şekilde takvim eklemek istiyorum mümkünmü. yani aynı sayfada iki açılır takvim konulurmu mümkünmü

 

[asilme]

arkadaşlar aynı sayfada 2 farkli sütunda takvim eklemek olmuyormu.

 

[Necdet]

Merhaba,

Selection Change olayını aşağıdaki gibi kullanınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(ActiveCell, [c:c, [B]G:G[/B]]) Is Nothing And Target.Row < 2 Then Exit Sub
    Takvim.Show
End Sub