Merhaba arkadaşlar,
Daha önce forumdan aldığım bir kodla ilgili bir sorum olacak;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 Or ActiveCell.Column = 6 Then
Takvim.Show
ActiveCell = Takvim.Calendar1.Value
End If
End Sub
Bu kod sayesinde hücreye tıklayınca takvim çıkıyor, ancak sayfada klavye ok tuşlarıyla dolaştığımda takvimin çıkmasını istemiyorum.
Kod üzerinde nasıl bir değişiklik yapabilirim ?
Yardımcı olacak arkadaşlara şimdiden teşekkürler.
Daha önce forumdan aldığım bir kodla ilgili bir sorum olacak;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 Or ActiveCell.Column = 6 Then
Takvim.Show
ActiveCell = Takvim.Calendar1.Value
End If
End Sub
Bu kod sayesinde hücreye tıklayınca takvim çıkıyor, ancak sayfada klavye ok tuşlarıyla dolaştığımda takvimin çıkmasını istemiyorum.
Kod üzerinde nasıl bir değişiklik yapabilirim ?
Yardımcı olacak arkadaşlara şimdiden teşekkürler.