Este fórum está sendo desativado

[Adrian]

Boa tarde gente!

Estou tentando atribuir a macro abaixo à tecla Home criando assim um atalho, para que assim que pressionar a tecla a macro seja acionada, me dê uma solução por favor?.

Sub HOME_PAGE()
Sheets("Plan3").Activate

End Sub

[Kledison]

Boa tarde,

se a sua intenção é ir para ABA plan3 ao apertar a tecla HOME, tente o código abaixo:

Código: Selecionar todos

Private Sub kledison()
Application.OnKey "{HOME}", "HOME_PAGE" 
End Sub

Coloque dentro de ESTA PASTA DE TRABALHO.

esse código irá chamar a MACRO do seu exemplo.

No aguardo

[Adrian]

Kledison, tentei fiz o que você falou mas não deu certo. Não chamou a macro

[Kledison]

Olá,

olha no anexo, talvez seja necessário salvar no PC antes de executar a macro.

No aguardo.

[Adrian]

Kledison, no meu pc continua não dando certo. E ai no seu tá dando.

[Kledison]

Adrian,

que tipo de ERRO, aqui está normal, aperto a tecla HOME e vai para a Plan3.

[Adrian]

Não é nenhum erro, quando pressiono a tecla home o cursor vai para primeira célula da linha.

[Kledison]

Adrian,

estranho, mesmo no exemplo que enviei ?

[Adrian]

Sim Kledison, no exemplo que você me enviou.

[Kledison]

Adrian,

Estou usando Excel 2013, testei no 2010 e apresentou o mesmo problema que o seu, vou verificar o motivo.

[Adrian]

Eu estou usando a versão 2016

[mdiego]

Só complementando a solução do Kledison -
Sub HOME_PAGE()
Worksheets("Plan3").Select
Application.OnKey "{HOME}", "HOME_PAGE"
End Sub

[Adrian]

Diego, no meu Excel 2016 não está dando certo, por que será?

[mdiego]

Sub HOME_PAGE()
Application.OnKey "{HOME}", "HOME_PAGE"
Worksheets("Plan3").Select
End Sub


Cola isso ve se vai...

[Adrian]

Diego olha só no anexo ser fiz certo.

[Kledison]

Bom dia Adrian,

acredito que agora está resolvido, verifique o anexo.

No aguardo.

[Adrian]

Deu certo, obrigado parceiro Kledison