Ir para conteúdo
APOLO-EIRAS

RESPONDIDO Movimentar a célula ativa para a direira

Mensagem Recomendada

Boa tarde!

Solicito a sua ajuda.

Estudando com o GENECI, surgiu a seguinte dúvida, tentamos e não conseguimos.

Necessito que a célula ativa seja a da direita.

De acordo com o arquivo anexo.

Grato - Apolo.

 

célula-ativa-direita.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite

Experimente copiar e colar o código abaixo no modulo "Esta Pasta de Trabalho"

Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Vai funcionar na planilha que estiver ativa.

Dê retorno.

[]s


Patropi - Moderador

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 14/09/2018 at 9:25 AM, APOLO-EIRAS disse:

Sim habilitei as macros e não funcionou.

Experimente o código abaixo no lugar e veja se funciona.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Application.MoveAfterReturn = True
 Application.MoveAfterReturnDirection = xlToRight
End Sub


No entanto esse recurso irá funcionar em todas as instâncias do Excel que forem abertas daí em diante.
Caso se queira que esse recurso funcione somente em determinados arquivos então use os códigos abaixo no lugar do anterior nos arquivos em que é desejado que o recurso funcione.

Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
    bMove = Application.MoveAfterReturn
    lMoveDirection = Application.MoveAfterReturnDirection
    Application.MoveAfterReturn = True
    Application.MoveAfterReturnDirection = xlToRight <~~~Editado, antes era xlUp
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
    Application.MoveAfterReturn = bMove
    Application.MoveAfterReturnDirection = lMoveDirection
End Sub

 

E no topo de um módulo comum coloque as declarações abaixo.

Public IMoveDirection As Long

Public bMove As Boolean

 

 

Em 13/09/2018 at 6:37 PM, Patropi disse:

Eu baixei a tua planilha cliquei ENTER e o cursor foi para a célula da direita.....????

Patropi, provavelmente no seu Excel já estava marcada a opção "Depois de pressionar Enter, mover a seleção", por isso funcionou.😉


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite!

Pelo esforço muito obrigado.

Osvaldo eu coloquei o código que você disponibilizou.

E o resultado foi inesperado, a célula ativa é a superior.

Aonde eu errei por favor?

Lembro que apenas o recurso será aplicado nesse arquivo e todas as planilhas contidas, ao abrir outro arquivo é imprescindível o cursor mover para baixo.

Se possível disponibiliza o arquivo correto. 

Grato - Apolo.

CURSOR PARA DIREITA.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá, Apolo.

Peço desculpas, pois o erro foi meu.

no lugar desta linha ~~~> Application.MoveAfterReturnDirection = xlUp

coloque esta ~~~> Application.MoveAfterReturnDirection = xlToRight

E sim, ao desativar o arquivo que receber os códigos que passei, será restabelecida a setagem anterior do Excel, assim, se a célula ativa após Enter mudava para baixo, então retornará. Se era para a esquerda, retornará para a esquerda, ...

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde. Osvaldo

Grato - pelo empenho.

1 - Apliquei o código, funcionou.

Quando vou salvar o arquivo abre um procedimento, favor faça o teste.

2 - Quando uso outro arquivo, e teclo ENTER a célula ativa não movimenta, fica congelada.

Pode verificar?

Grato - Apolo.

 

CURSOR PARA DIREITA-OK-RV-2.zip

Compartilhar este post


Link para o post
Compartilhar em outros sites
3 horas atrás, APOLO-EIRAS disse:

Quando vou salvar o arquivo abre um procedimento, favor faça o teste.
Testei o seu arquivo com Salvar Como e depois com Salvar e foi de boa, sem abrir qualquer procedimento extra.
Exatamente qual procedimento abre aí ao salvar ?

2 - Quando uso outro arquivo, e teclo ENTER a célula ativa não movimenta, fica congelada.
No seu Excel está marcada a opção Depois de pressionar Enter, mover seleção ? Se não está marcada, então está funcionando corretamente.

Fiz testes aqui, baixei o seu arquivo e abri simultaneamente um arquivo vazio (Pasta1) e outro arquivo ArquivoX, ou seja, 3 arquivos abertos e fui alternando o arquivo ativo. No seu arquivo a seleção se move para a direita, nos outros dois que abri não se move, pois no meu Excel não está marcada a opção acima, então após Enter a seleção não se move, portanto, aqui tudo funciona conforme comentei antes. Aí deveria funcionar também, pois os códigos no seu arquivo funcionam corretamente.

 

 

 

 

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×