- Katılım
- 8 Mart 2009
- Mesajlar
- 504
- Excel Vers. ve Dili
- 2010
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 ?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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