tuşa basınca 10 yazsın

[battalgazi]

bilgi yarışması için excelde puan tablosu yaptım..aktif hücredeyken (hücre aralığı [d3:w32]) boşluk tuşuna basınca 10 yazmasını istiyorum.

 

[mami68]

Böyle bir şey mi istediğiniz.

 

[battalgazi]

cevap için tşk fakat bu değil...dikkat ederseniz zaten ben çift tıklama ile bunu yapıyorum..benim istediğim klavyeden boşluk tuşuna basınca aktif hücreye 10 yazılması..fareyi kullanmak beni yavaşlatıyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyin. Dosyanızı kapatıp açın. Sayfa üzerinde 10 yazmak istediğiniz hücrelerin üzerinde iken numerik kısımdaki ENTER tuşuna basın.

Sub Auto_Open()
    Application.OnKey "{ENTER}", "On_Yaz"
End Sub
 
Sub On_Yaz()
    ActiveCell = 10
End Sub

 

[Recep İpek]

Sayfanın kod bölümüne aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d3:w32]) Is Nothing Then Exit Sub
If Asc(Target) = 32 Then Target.Value = 10
End Sub

 

[battalgazi]

Sayfanın kod bölümüne aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d3:w32]) Is Nothing Then Exit Sub
If Asc(Target) = 32 Then Target.Value = 10
End Sub

teşekürler, işime yaradı yalnız 32 bckspace tuşuna ait galiba çünkü backspaceye basıp da entere basarsam 10 yazıyor...gerisini ben hallederim...