Página 1 de 1
pressionar a tecla entra e pular para outra adjacente
Enviado: 14 Ago 2019 às 13:50
por venturaclaudio
Boa tarde colegas, gostaria de saber como fazer uma vba para a seguinte situação:
digito algo na A1 , dou entra pula para B2 , dou entra pula para C3 , dou entra volta para A2 e assim por diante
grato
pressionar a tecla entra e pular para outra adjacente
Enviado: 14 Ago 2019 às 14:04
por natanghost
você pode usar macros usando o evento Worksheet_Change da planilha em questão. veja a maneira que eu faria:
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row + 1, Target.Column + 1).Select
End Sub
Re: pressionar a tecla entra e pular para outra adjacente
Enviado: 14 Ago 2019 às 14:14
por osvaldomp
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then Target.Offset(1, 1).Select Else Target.Offset(-1, -2).Select
End Sub
Re: pressionar a tecla entra e pular para outra adjacente
Enviado: 14 Ago 2019 às 14:55
por venturaclaudio
Boa tarde copie o codigo que voce enviou mas ele pula para celula bem distante , segue uma planilha para voce dar uma olhada.
minha intenção seria , digitar na celula A1 ( data ), na celula B1 ( valor 1 ) e na celula C1 ( valor 2 ) quando pressionar a tecla entra ele volta para a celula A2
pressionar a tecla entra e pular para outra adjacente
Enviado: 14 Ago 2019 às 14:59
por venturaclaudio
gente desculpa no lugar de C3 é C1 volta para A2
Re: pressionar a tecla entra e pular para outra adjacente
Enviado: 14 Ago 2019 às 17:24
por osvaldomp
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then Target.Offset(, 1).Select Else Target.Offset(1, -2).Select
End Sub
Você alterou o código que foi postado de
Worksheet_Change para
Worksheet_SelectionChange 
Cole o código SEM QUALQUER ALTERAÇÃO.