Excel mover o cursor para determinando o sentido e restrição de células.

GENECIOFICIAL · 14 de junho de 2021

Bom dia!

Dúvida posta em outro fórum.

Solicito a sua ajuda conforme o arquivo anexo.

Grato - Geneci.

Muca Costa · 15 de junho de 2021

Veja se ajuda...

Public Sub Mover()
Dim cell As Range
    
    For Each cell In Selection
        
        If cell.Interior.Color = 11854022 Then
           ActiveCell.Offset(0, 1).Select
        ElseIf cell.Interior.Color = 14277081 Then
            ActiveCell.Offset(1, 0).Select
        Else
            MsgBox "Fim"
        End If
    
    Next cell
    
End Sub

GENECIOFICIAL · 16 de junho de 2021

Boa noite! Muca Costa.

Muito obrigado por atender a minha solicitação.

O procedimento que você elaborou resolve parcialmente o meu problema.

Células com a cor verde, após receber os dados e após teclar enter o cursor vai para direita.

Células com a cor cinza, após receber os dados e após teclar enter o cursor vai para baixo.

Obedecendo a restrição de cores verde para direita e cinza para baixo.

Grato - Geneci.

Muca Costa · 17 de junho de 2021

Click Alt + F11
2 click's em Planilha1
Cole o código abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
    For Each cell In Selection
        If cell.Interior.Color = 11854022 Then
           ActiveCell.Offset(-1, 1).Select
        ElseIf cell.Interior.Color = 14277081 Then
            ActiveCell.Offset(0, 0).Select
        Else
            Exit Sub
        End If
    Next cell
End Sub

GENECIOFICIAL · 17 de junho de 2021

Bom dia! Muca Costa.

Segui as suas orientações e não funcionou, será que fiz algo errado?

Quando insiro o valor na célula e teclo enter, aparece a seguinte mensagem.

Grato.

Muca Costa · 17 de junho de 2021

Tente assim:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error GoTo Trata_Erro
    For Each cell In Selection
        If cell.Interior.Color = 11854022 Then
           ActiveCell.Offset(-1, 1).Select
        ElseIf cell.Interior.Color = 14277081 Then
            ActiveCell.Offset(0, 0).Select
        Else
            Exit Sub
Trata_Erro:
    Exit Sub
        End If
    Next cell
End Sub