İstediğimiz bölume ulaşmak için kısa yol

[Musa Batur]

Ek olarak gönderdiğim bir Akaryakıt firmasının z raporlarını düzenlerken tarih, Z no, türü kısmında E yazdığımda F sutununa, S yazdığımda H, 95 yazdığımda J sutununa, gitsin diğer sutunlara uğramaması için ne yapmalıyım.

Teşekkürler
Musa Batur

 

[Cemil1]

Önce gitmek istediğiniz hucreleri adlandırın ve ad kutundan seçerek istediğiniz hücrelere gidebilirsiniz
veya Ctrl + G ile git penceresini açıp yazdığınız hücreye gidebilirsiniz.

 

[mehmett]

İsteğinizin makrosuz olacağını sanmıyorum. Aşağıdaki kodları dosyanıza uygulayıp ekte gönderiyorum. Kodları görmek için dosyanız açıkken ALT+F11 tuşlayın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
satır = Target.Row
If Target = "M" Then sutun = 4
If Target = "E" Then sutun = 6
If Target = "S" Then sutun = 8
If Target = "95" Then sutun = 10
If Target = "97" Then sutun = 12
If Target = "L" Then sutun = 14
Cells(satır, sutun).Select
End Sub

 

[Necdet]

Sayın Mehmet Bey, yanıtlamış,

Bende yanıtımı vereyim. Aşağıdaki kodları ilgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If UCase(Target) = "M" Then Target.Offset(0, 1).Select
If UCase(Target) = "E" Then Target.Offset(0, 3).Select
If UCase(Target) = "S" Then Target.Offset(0, 5).Select
If Target = 95 Then Target.Offset(0, 7).Select
If Target = 97 Then Target.Offset(0, 9).Select
If UCase(Target) = "L" Then Target.Offset(0, 11).Select
End Sub