Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por venturaclaudio 14 Ago 2019 às 15:50
Membro Novato
Mensagens: 3
Reputação: 0
#46861
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
Por natanghost 14 Ago 2019 às 16:04
Membro Novato
Mensagens: 3
Reputação: 0
#46864
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
Por osvaldomp 14 Ago 2019 às 16:14
Membro 5 Estrelas
Mensagens: 1310
Reputação: 648
#46865
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
Por venturaclaudio 14 Ago 2019 às 16:55
Membro Novato
Mensagens: 3
Reputação: 0
#46868
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
Apenas usuários registrados podem ver ou baixar anexos.
Editado pela última vez por venturaclaudio em 14 Ago 2019 às 17:00, em um total de 1 vez.
Por osvaldomp 14 Ago 2019 às 19:24
Membro 5 Estrelas
Mensagens: 1310
Reputação: 648
#46874
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.