Notifications
Clear all

Manter cursor na mesma célula

3 Posts
3 Usuários
0 Reactions
1,064 Visualizações
(@nosbier)
Posts: 26
Trusted Member
Topic starter
 

Pessoal, boa noite.
Gostaria de saber se existe a possibilidade de deixar o cursor na mesma célula, após teclar "enter".
Estou finalizando uma planilha de notas, e quando o aluno vem até mim para saber suas notas, eu apenas digito o número do aluno e o excel busca as notas desse aluno.
Mas, o fato de dar enter, o excel depois de buscar os dados, ele pula para próxima linha, e eu, gostaria de manter o cursor na mesma linha.
Existe essa possibilidade, fórmulas, etc?

Agradeço atenção de sempre,
Valeu!

 
Postado : 27/06/2018 4:41 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

nosbier,

Boa noite!

Para manter o cursor na mesma célula, após o ENTER, use o código abaixo no evento Change da planilha que quiser:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    'Aqui estou checando se é uma célula a parir da linha 3 da coluna C
    If Target.Row > 2 And Target.Column = 3 Then
        Cells(Target.Row, Target.Column).Select
    End If
    
    Application.EnableEvents = True
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/06/2018 5:15 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Boa noite, Nosbier.

Nas Opções do Excel (Arquivo > Opções), escolha Avançado e desmarque a opção "Depois de pressionar Enter, mover seleção".

 
Postado : 27/06/2018 5:39 pm