Boa tarde!!

dentro de um módulo de planilha, insira o código!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 1
        Cells(Target.Row, Target.Column + 2).Select
    Case 3
        Cells(Target.Row, Target.Column - 2).Select
    Case Else
        Exit Sub
    End Select
End Sub

Att

Desculpe minha limitação, Quando voce diz um módulo da planilha onde faço isso ? Teria como vc indicar o caminho ? Agradeço...

Att;

Cleonis Felipe

Boa tarde!!

Abra o Editor VB (Alt + F11), do lado esquerdo na Janela de VBAproject, aparecerá (EstaPasta_de_trabalho, Plan1,Plan2,Plan3), dê dois click's em Plan1 (no seu caso Produtos), insira o código.

Att

Obrigado,

Só que tem um problema , Ao dar enter na celula C3 em vez de pular para a A4 o cursor volta para A3. A ideia e ir descendo a linha a cada enter . Tem como ?

Att;

Cleonis Felipe

Boa tarde!!

Tente mudar as linhas

Cells(Target.Row, Target.Column - 2).Select

Att

Desculpe mas nao deu certo. Continua voltando para mesma linha em vez de descer para proxima. Estou lhe enviando a Planilha para vc dar uma olhada.

Att;

Cleonis Felipe

Bom dia!!

Você tentou assim?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 1
        Cells(Target.Row, Target.Column + 2).Select
    Case 3
        Cells(Target.Row + 1, Target.Column - 2).Select
    Case Else
        Exit Sub
    End Select
End Sub

Att

Maravilha !!!!! Perfeito!!! Muito Obrigado pela ótima ajuda.

Att;

Cleonis Felipe

Bom dia!!

Eu fico feliz que resolveu seu problema, precisando..estamos aqui..

Att