Guru do Excel e Power BI

Bom dia.

Solicito a sua ajuda de acordo com o arquivo anexo.

Grato - Geneci.

Olá, Geneci.

Cole uma cópia dos códigos abaixo no módulo de EstaPasta_de_trabalho.

Private Sub Workbook_Activate()
 Application.MoveAfterReturn = True
 Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_Deactivate()
 Application.MoveAfterReturn = True
 Application.MoveAfterReturnDirection = xlDown
End Sub

Bom dia, Osvaldo.

Muito obrigado por atender a minha solicitação.

Não sei o que fiz de errado, que não obtenho o resultado.
Instalei um dos códigos, após digitar o conteúdo na célula e teclar enter, o cursor permanece na mesma célula.

Por favor pode verificar o que fiz de errado.

Grato - Geneci.

Olá, Geneci.

Veja no arquivo anexo. Instalei os dois códigos no módulo de EstaPasta_de_trabalho.

Para testar, após abrir este arquivo, abra também um outro arquivo Excel, pode ser um arquivo vazio. Em seguida ative os dois arquivos alternadamente. Bastar apertar Enter para testar.

O problema foi resolvido, funcionou como esperado.

Muito obrigado.

Grato - Geneci.

Guru do Excel e Power BI

Cursor para direita e para baixo.

Cursor para direita e para baixo.

Re: Cursor para direita e para baixo.

Re: Cursor para direita e para baixo.

Re: Cursor para direita e para baixo.

Cursor para direita e para baixo.