Notifications
Clear all

Mover o cursor à direita  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44269
07/03/2012 11:59 am  

Boa tarde.

Gostaria de ajuda para saber se tem como aplicar a configuração “À direita”, para a movimentação do cursor, somente para a pasta de trabalho ou planilha que estou usando.

Desde já agradeço.

Silvio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44269
07/03/2012 12:17 pm  

Boa tarde!!

Se necessário faça uma adaptação.
não testado

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
    Application.MoveAfterReturnDirection = IIf(Sh.Name = "Sheet1", xlToRight, xlDown) 
End Sub 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.MoveAfterReturnDirection = IIf(Sh.Name = "Sheet1", xlToRight, xlDown)
End Sub
Private Sub Worksheet_Activate()
    Application.MoveAfterReturnDirection = xlToRight
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44269
08/03/2012 1:38 pm  

Boa tarde Alexandre.

Fui no Visual Basic, cliquei na Plan1 e colei o código. Salvei e voltei ao excel, porém não funcionou.
O que fiz de errado?

Obs: Sei que posso fazer o cursor mover lateralmente clicando TAB. Todavia o que dsejo é dar ENTER para ele se mover.

Segue o anexo para você dar uma olhada.

Aviso que sei pouca coisa de VBA.

Grato
Silvio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44269
08/03/2012 7:25 pm  

Boa noite Alexandre.

Como a planilha 1 funcionará apenas como formulário de consulta, acho que não faz diferença se as setas para cima, para baixo, direita e esquerda estejam ativas.
Agora, o ENTER será necessário para, ao pressioná-lo, o cursor se mover da ORIGEM para a UF e depois descer para o DESTINO e UF.

O código da macro não pode afetar a plan2, onde está a base de dados da consulta.

Mais uma vez obrigado por responder.

Silvio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44269
08/03/2012 7:50 pm  

Boa noite!!!

Eu testei aqui e deu certo.

Imagine que você tem um arquivo com 3 Guias (Plan1, Plan2, Plan3)
Cada código ficará dentro de uma determinada planilha, neste caso só a Plan1, quando for acionado o Enter, o cursor será direcionado para a direita.


 '*****Codigo Para Plan1*****
Private Sub Worksheet_Activate() 
    Application.MoveAfterReturnDirection = xlToRight 
End Sub 
 
 
 
 
 '*****Codigo Para Plan2*****
Option Explicit 
 
Private Sub Worksheet_Activate() 
    Application.MoveAfterReturnDirection = xlDown 

'*****Codigo Para Plan3*****
Option Explicit 
 
Private Sub Worksheet_Activate() 
    Application.MoveAfterReturnDirection = xlDown 
End Sub 

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44269
09/03/2012 6:10 am  

Bom dia Alexandre.

Deu tudo certo.

Onde é que fica a "mãozinha" para confirmar que a resposta foi útil?

Como faço para dar resolvido o tópico?

Muito obrigado.

Silvio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Compartilhar: