Tab tuşu ile alakalı

[abbasonline]

Tab tuşuna bastığımızda sadece aktif olan hücrenin aynı satır (U) sütununa gitmesi için nasıl bir makro düzenlememiz gerekli ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip denermisiniz. Uyguladığınız dosyayı kapatıp açtıktan sonra herhangi bir sayfada TAB tuşuna basıp sonucu gözlemleyin. Herhangi bir alan kısıtlaması belirtmediğiniz için kodlara bir kısıtlama uygulamadım.

Option Explicit
 
Sub AUTO_OPEN()
    Application.OnKey "{TAB}", "GİT"
End Sub
 
Sub GİT()
    Cells(ActiveCell.Row, "U").Select
End Sub

Sub AUTO_CLOSE()
    Application.OnKey "{TAB}"
End Sub

 

[abbasonline]

Korhan bey teşekkürler.

 

[abbasonline]

Korhan bey, Tab tuşunu bir bastığımızda, U sütunu ikinci bastığımızda Y sütunu ve daha sonrakinded de AC sütünununa gitmesi için makroda nasıl düzenleme yapmamız gerekli.

 

[Korhan Ayhan]

Selamlar,

Kod içine bir sayaç yerleştirerek bu istediğinizi yapabiliriz. Aşağıdaki kodu boş bir modüle uygulayın.

Kod istediğiniz sütunlar arasında TAB tuşu ile dolaşmanızı sağlar. "AC" sütuna gelip TAB tuşuna bastığınızda bir alt satırın "U" sütununa gider. TAB tuşuna bastığınız sürece işlem bu şekilde sürer.

Option Explicit
Public SAYAÇ As Byte
 
Sub AUTO_OPEN()
    Application.OnKey "{TAB}", "GİT"
End Sub
 
Sub GİT()
    If SAYAÇ = 0 Then
        Cells(ActiveCell.Row, "U").Select
        SAYAÇ = SAYAÇ + 1
    ElseIf SAYAÇ = 1 Then
        Cells(ActiveCell.Row, "Y").Select
        SAYAÇ = SAYAÇ + 1
    ElseIf SAYAÇ = 2 Then
        Cells(ActiveCell.Row, "AC").Select
        SAYAÇ = SAYAÇ + 1
    ElseIf SAYAÇ = 3 Then
        Cells(ActiveCell.Row + 1, "U").Select
        SAYAÇ = 1
    End If
End Sub
 
Sub AUTO_CLOSE()
    Application.OnKey "{TAB}"
End Sub

 

[abbasonline]

Korhan bey ellerinize sağlık çok teşekkür ederim, kolay gelsin.

 

[abbasonline]

Korhan bey üstteki makro güzel çalışıyor ancak, benim bu makroyu uyguladığım dosya; başka bir Excel kitapcığını açtığımda diğer Excel kitapcığı açılan kitapcığa uyguluyorum ve burda da üstteki makro çalışmıyor ancak önce üstteki makroyu uyguladığım Excel kitapcığını açarak daha sonra diğer Excel kitapcığını açtığımda makro çalışıyor, bunu nasıl düzeltebilirim.

 

[Korhan Ayhan]

Selamlar,

Makroyu uygulamak istediğiniz dosyanızı açın.
Dosyanıza boş bir modül ekleyin.
Modülün içine verdiğim kodu uygulayın.
Dosyanızı kaydedip kapatın ve açın.

 

[abbasonline]

Teşekkürler.