Este fórum está sendo desativado

[GENECI]

Bom dia.

Solicito a sua ajuda de acordo com o arquivo anexo.


Grato - Geneci.

[osvaldomp]

Olá, Geneci.

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

Código: Selecionar todos

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

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

[GENECI]

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.

[osvaldomp]

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.

[GENECI]

O problema foi resolvido, funcionou como esperado.

Muito obrigado.

Grato - Geneci.