Este fórum está sendo desativado

[GENECI]

Boa tarde!

Solicito a sua ajuda conforme o arquivo anexo.

Grato - Geneci.

[osvaldomp]

Olá, @GENECI .

Cole uma cópia dos códigos abaixo no módulo de EstaPastaDeTrabalho. Após, salve, feche e reabra o arquivo para testar.

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]

Boa noite! Osvaldo

Muito obrigado, pelo código elaborado em VBA.
Problema resolvido.

Grato - Geneci.