Manter cursor na mesma célula

2024 - VBA & Macros

Post Recente por EdsonBR 6 anos atrás

3 Posts

3 Usuários

0 Reactions

1,234 Visualizações

RSS

nosbier

(@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