sendkeys komutu kullanıldığında numlock tuşunun açılıp kapanması

[NaShi]

selam dostlar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a6:a65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target = Format(Now, "dd/mmmm/yyyy hh:mm")
Application.SendKeys "{F2}", True
Application.SendKeys "{tab}", True
End If
End Sub

Böyle bir kodum var. Bu çalıştığında numlock kararsız bir şekilde aktif veya pasif oluyor.

Application.SendKeys "{numlock}", True

bunu eklediğim halde bile sonuç değişmiyor.
F2 tuşu göndermemin sebebi; makro tarih atıyor ama metin gibi kalıyor, ona bağlı diğer bir hücre tarih olarak algılamadığı için hesaplama yapmıyor.

Bu sorunun nasıl üstesinden gelebilirim. Saygılar

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a6:a65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target = [COLOR="Red"]CDate[/COLOR](Format(Now, "dd/mmmm/yyyy hh:mm"))
'Application.SendKeys "{F2}", True
'Application.SendKeys "{tab}", True
End If
End Sub

.

 

[NaShi]

Çok teşekkürler, verdiğiniz çözüm gayet güzel oldu. Elinize sağlık.