+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Enter Tuşu İle Yön Belirlemek. (/konu-enter-tusu-ile-yon-belirlemek.html)
Sayfalar:
1
2
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 20/03/2021
(20/03/2021, 15:16)m_demir yazdı: Çok, çok teşekkürler Hocam ellerinize sağlık.
Hocam konuyu taşıyabilirsiniz. Saygılarımla sağlıklı günler diliyorum.
Rica ederim abey
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 20/03/2021
Müsait olunca onkey yöntemi ilede yapayım abey.Sayfada değişikliğe gerek kalmaz.Kod hazır zaten biraz değişiklik ve birazda ekleme olacak mesela target yerine activecell yada başka yoldan.
RE: Enter Tuşu İle Yön Belirlemek. - m_demir - 20/03/2021
Teşekkürler.
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 20/03/2021
Rica ederim abey.
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 SubRE: Enter Tuşu İle Yön Belirlemek. - m_demir - 21/03/2021
Çok teşekkürler Hocam ellerinize sağlık çok güzel olmuş.
RE: Enter Tuşu İle Yön Belirlemek. - feraz - 21/03/2021
(21/03/2021, 00:53)m_demir yazdı: Çok teşekkürler Hocam ellerinize sağlık çok güzel olmuş.Rica ederim abey,kolay gelsin