Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por GENECI 13 Set 2019 às 12:17
Membro 3 Estrelas
Mensagens: 214
Reputação: 3
#48152
Bom dia.

Solicito a sua ajuda de acordo com o arquivo anexo.


Grato - Geneci.
Apenas usuários registrados podem ver ou baixar anexos.
Por osvaldomp 13 Set 2019 às 20:00
Membro 5 Estrelas
Mensagens: 1337
Reputação: 661
#48164
Olá, Geneci.

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

Código: Selecionar todosPrivate Sub Workbook_Activate()
 Application.MoveAfterReturn = True
 Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Workbook_Deactivate()
 Application.MoveAfterReturn = True
 Application.MoveAfterReturnDirection = xlDown
End Sub
Por GENECI 14 Set 2019 às 13:32
Membro 3 Estrelas
Mensagens: 214
Reputação: 3
#48169
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.
Apenas usuários registrados podem ver ou baixar anexos.
Por osvaldomp 14 Set 2019 às 13:51
Membro 5 Estrelas
Mensagens: 1337
Reputação: 661
#48170
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.
Apenas usuários registrados podem ver ou baixar anexos.