Sütunlar arası gezinme

[manisali50]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("C18")) Is Nothing Then Range("$C$19").Select
If Not Intersect(Target, Range("C19")) Is Nothing Then Range("C20").Select
If Not Intersect(Target, Range("C20")) Is Nothing Then Range("E20").Select
If Not Intersect(Target, Range("E20")) Is Nothing Then Range("C21").Select
If Not Intersect(Target, Range("C21")) Is Nothing Then Range("C22").Select
If Not Intersect(Target, Range("C22")) Is Nothing Then Range("C18").Select

End Sub

Arkadaşlar merhaba.
Üstadlarımdan edindiğim yukarıdaki kodlarla belirlediğim hücreler arasında gezinebiliyorum.
İsteğim şu :
Hücre belirterek değil de,sütun belirterek bu işi yapabilir miyiz?
Örneğin;
B sütunundan V sütununa kadar enter tuşu ile gitmek,V sütununa veri girip enter tuşuna bastıktan sonra A sütununa geri dönmek.
(Tabii ki bir alt satıra)
Diyeceksiniz Araçlar-Seçenekler-Düzen-Seçimi Enter Tuşundan Sonra Taşı-Sağ olarak ayarlayabilirsiniz.
Bunu yapınca bu uygulama tüm excel kitaplarına uygulandığı için işimi görmüyor.. (Bu uygulama sadece o sayfa için
uygulanabilse işimi çok iyi görecekti)
Şimdiden teşekkürler

 

[Ömer]

Diyeceksiniz Araçlar-Seçenekler-Düzen-Seçimi Enter Tuşundan Sonra Taşı-Sağ olarak ayarlayabilirsiniz.
Bunu yapınca bu uygulama tüm excel kitaplarına uygulandığı için işimi görmüyor.. (Bu uygulama sadece o sayfa için
uygulanabilse işimi çok iyi görecekti)

Merhaba,

Bu uygulamayı yapacağınız çalışma safasının kod bölümüne;

[COLOR=teal]' Sayfa aktiv olunca enter sağ tarafa[/COLOR]
Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub
 
[COLOR=teal]' Sayfa kapatılınca enter aşağı tarafa[/COLOR]
Private Sub Worksheet_Deactivate()
    Application.MoveAfterReturnDirection = xlDown
End Sub

ThisWorkbook sayfasına;

[COLOR=#008080]' Çalışma kitabı kapatılınca enter aşağı tarafa[/COLOR]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturnDirection = xlDown
End Sub
 
[COLOR=teal]' Çalışma kitabı açılınca istenen sayfa gider ve enter sağ tarafa[/COLOR]
Private Sub Workbook_Open()
    Sheets("[COLOR=red]Sayfa1[/COLOR]").Select [COLOR=teal]' sayfa ismini belirleyiniz.[/COLOR]
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Kopyalayınız.

.

 

[manisali50]

Üstadim tamamdır..İlgine ve emeğine teşekkür ederim.