sayfada takvim

[bitmez13]

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Value = Format(Date, "dd.mm.yy.")
Calendar1.Today
Calendar1.Visible = False
End Sub

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

bu makro ile b sütunun tamamındadaki bir hücreye tıklayınca takvim açılıyor ve takvimde tarihe tıklayınca hangi hücrede ise o hücreye tarihi atıyor acaba sadece takvim b2 hücresine tıklayınca açılsa ve sadece b2 ye tarih atsa bunun için kodlarımızı nasıl degiştirebiliriz

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.MoveAfterReturn = False
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    Calendar1.Visible = True
    Calendar1.Top = ActiveCell.Top
    Calendar1.Left = ActiveCell.Offset(1, 2).Left
End Sub