Enter TuŞu İle Sola DoĞru İlerleme

[serkanatmis]

Enter TuŞunu Kullanarak Sola DoĞru İlerlemek Ve Belİrlİ Bİr SÜtundayken Tekrar A SÜtununa DÖnmesİnİ İstİyorum Yardimci Olur Musunuz?

İyİ ÇaliŞmalar...

 

[alpi]

Enter'e basınca sola ilerlemek için araçlar/Seçenekelr/Düzen'i seçin "Seçimi Enter Tuşundan Sonra Taşı" "Yön" Sol seçiniz.

Belirli bir sutündayken A sutununa geçmek için aşağıdaki kodu ThisWorkbook kod editörüne yazınız

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column = 10 Then
        Cells(Target.Row + 1, 1).Activate
    End If
End Sub

Not:10 Kolon numarasını belirityor.

 

[serkanatmis]

Enter İle AŞaĞi

Enter'e basınca sola ilerlemek için araçlar/Seçenekelr/Düzen'i seçin "Seçimi Enter Tuşundan Sonra Taşı" "Yön" Sol seçiniz.

Belirli bir sutündayken A sutununa geçmek için aşağıdaki kodu ThisWorkbook kod editörüne yazınız

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Column = 10 Then
        Cells(Target.Row + 1, 1).Activate
    End If
End Sub

Not:10 Kolon numarasını belirityor.

YARDIMINIZ İÇİN TEŞEKKÜRLER AMA MESELA F SÜTUNUNDAN SONRA A SÜTUNUNA GEÇMESİ OLAYINI KODU YAPIŞTIRMAMA RAĞMEN OLMADI. ÖRNEK BİR DOSYA HAZIRLAYABİLİR MİSİNİZ?

 

[alpi]

If Target.Column = 10 Then kod satırındaki 10 rakamı kolon numarasını belirtiyor.
Eğer siz F sutünuna göre değiştirmek isterseniz 10 rakamını 6 ile değiştirmelisiniz.

Yani kodlar aşağıdaki gibi olacak

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 6 Then
Cells(Target.Row + 1, 1).Activate
End If
End Sub