BoŞluk TuŞuna Basinca 10 Yazsin

[battalgazi]

forumda ve internette baya araştırdım ama çare bulamadım sorunum şu; klavyeden boşluk tuşuna basınca eğer aktif hücre d3 ile u26 arasında ise10 yazsın aksi halde bişey yapmasın...

 

[Orion1]

Çalışma sayfasının kod bölümüne yapıştırınız.

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

 

[battalgazi]

teşekkürler, kod çalıştı acaba bu işi enter tuşuna basınca da yapabilirmiyiz? yani enter tuşuna basınca o aralıktaki hücrelere 10 yazsın

 

[Orion1]

ilk kod kalsın ona ilaveten Aşağıdaki kodu deneyiniz.

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

 

[battalgazi]

bu kod tam işimi görmedi, yön tuşları ile de 10 yazıyor. benim istediğim enter e basınca 10 yazsın bunun dışında yazmasın..teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[battalgazi]

tam istediğim gibi teşekkürler