Search

A carregar...

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2006-01-09
Por vezes podemos ter a necessidade de redefinir uma tecla para uma outra. No exemplo seguinte, redefine-se a tecla ENTER (incluindo a numérica) para a tecla TAB e provoca-se um avanço de uma coluna na mesma linha:


Sub Auto_open()
    Application.OnKey "~", "JumpNext"
    Application.OnKey "{ENTER}", "JumpNext1"
End Sub


Sub JumpNext()
    r = ActiveCell.Row
    c = ActiveCell.Column


    If c >= 1 Then
        c = c + 1
        r = r
    Else
        
    End If


    Cells(r, c).Activate


End Sub

Sub JumpNext1()
    r = ActiveCell.Row
    c = ActiveCell.Column


    If c >= 1 Then
        c = c + 1
        r = r
    Else
        
    End If


    Cells(r, c).Activate


End Sub