Az kod değişecek dedim bayağı değişti
Sayfa1 de kod çalışır öyle ayarladım sayfa adını değiştirirseniz başka sayfadada değişir.Const olan yerdeki sayfa ad değişecek sadece abey.
Modül Kodlar;
Public hedef As Range
Public Const hedefSayfaAd As String = "Sayfa1"
Sub Auto_Open()
enterAktif
End Sub
Sub Auto_Close()
enterPasif
Set hedef = Nothing
End Sub
Public Sub Enterle()
If ActiveSheet.Name <> hedefSayfaAd Then
enterPasif
ActiveCell.Offset(1, 0).Select
Exit Sub
End If
With hedef
Select Case .Column
Case 1, 8: .Offset(0, 1).Select
Case 2, 9: .Offset(1, -1).Select
End Select
End With
End Sub
Sub enterPasif()
Application.OnKey "{RETURN}" 'Normal enter
Application.OnKey "{ENTER}" 'En sagdaki enter
Set hedef = Nothing
End Sub
Sub enterAktif()
Application.OnKey "{RETURN}", "Enterle" 'Normal enter
Application.OnKey "{ENTER}", "Enterle" 'En sagdaki enter
End SubSayfa Kodlar;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:B,H:i")) Is Nothing Then
If Target.Rows.Count > 1 Then Exit Sub
' If Target.Row = 1 Then Exit Sub
Select Case Target.Column
Case 1, 8: Set hedef = Target: enterAktif
Case 2, 9: Set hedef = Target: enterAktif
End Select
Else
enterPasif
End If
End Sub
