Hücrede Takvim

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda A sütununda A2 hücresinden itibaren hangi hücreye tıklasam takvim açılıyor. Ama ben sadece A5 hücresinde açılmasını istiyorum. Kodlarda nasıl değişiklik yapmalıyım.

Saygılar


KOD:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Address = "$A$1" Then
Exit Sub
ElseIf Target.Address = "$A$" & ActiveCell.Row Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top
End If
End Sub

 

[Korhan Ayhan]

Bu kodu deneyin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.MoveAfterReturn = False
    Calendar1.Visible = False
    If Target.Address = "$A$5" Then
        Calendar1.Visible = True
        Calendar1.Top = ActiveCell.Top
    End If
End Sub

 

[Mdemir63]

Selamlar,

Korhan hocam çok teşekkür ederim.

Saygılar