Takvim

[scartex]

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.

 

[Recep İpek]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

yerine

Private Sub Worksheet_Change(ByVal Target As Range)

olayını kullanırsanız sanırım olacaktır.

Yanlız bu kez hücrede herhangi bir değişiklik yapmanız gerekmektedir.

 

[Seyit Tiken]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'----------
'----------
End Sub

Kodlarınızı tirelerin olduğu yere kopyalayınız. Takvim için igili hücreye çift tıklayınız.

 

[scartex]

Sn. Seyit Tiken kod işime yaradı
teşekkürler