enter tuşu ile sağdaki hücreye geçmek

[Korhan Ayhan]

Selamlar,

Enter tuşuna basmadan kısmı nasıl olur bilemiyorum fakat kodları biraz değiştirdim. İşinize yarar kanısındayım.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Intersect(Target, [B5:G10]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Value < 0 Or Target.Value > 100 Then
MsgBox "Lütfen 0-100 arasında bir değer giriniz.", vbCritical, "Dikkat !"
Target.Value = ""
Target.Select
Exit Sub
End If
If ActiveCell.Column < 2 Or ActiveCell.Column > 7 Then Exit Sub
If ActiveCell.Column = 7 Then ActiveCell.Offset(1, -6).Select
If ActiveCell.Column <= 7 Then ActiveCell.Offset(-1, 1).Select
End Sub

 

[serbestmali]

Selamlar
COST CONTROL e ve DANERSiN e teşekkürler
şimdi iki tür formum oldu
katkılarınızdan dolayı teşkkürler