Excel / Pular para próxima célula automaticamente

[KaduFregossi]

Olá amigos!

Estou montando uma planilha pra computar os dados de uma pesquisa.

Os dados inseridos sempre são números de 1 a 5.

Existe uma maneira do excel pular automaticamente para a próxima célula assim que for digitado o algarismo? Sem eu precisar ficar dando enter ou tab cada vez que digitar o número?

Seria mais ou menos como acontece em alguns sites quando preenchemos formulários de cadastro e o cursor pula sozinho para o próximo campo.

Agradeço se alguem puder me ajudar.

[zinhovba]

Boa noite!!

Talvez eu não tenha entendido, mas sua dúvida está vaga, qualquer ação sobre uma determinada célula, coluna, linha ou intervalo requer ação da tecla enter!!!

Se poder detalhar melhor.

Em VBA você tem algumas maneiras de fazer isso.

http://www.excel-vba.com/vba-code-2-6-cells-ranges.htm

http://www.opentradingsystem.com/PythonForExcel/Offset_method__vba_Range__.html

http://www.computergaga.com/blog/2011/12/use-the-offset-property-in-vba/

Att

[KaduFregossi]

Então amigos, desculpe se não fui muito claro.

Segue um exemplo resumido da minha tabela:

http://www.kadufregossi.com.br/exemplo.xlsx

O que eu quero é que quando for preencher as respostas (que são os numeros que estão nas celulas cinzas) ao digitar, por exemplo o numero 1 na celula B7 o cursor já pule automaticamente para a celula B8.

Assim, sem que eu precise dar o ENTER, já vou poder digitar o numero da proxima resposta na celula correta. Preencherei todas as respostas apenas usando o teclado numérico.

Vai agilizar um monte o trabalho de quem vai computar estes dados, pois serão diariamente cerca de uns 100 conjuntos de respostas pra computar.

Muito obrigado pela atenção.

[zinhovba]

Boa noite!!

Eu baixei seu exemplo, não faz o menor sentido, o comando enter é padrão do excel, porque como ele vai saber se é apenas um ou mais caractere que será digitado.

Eu não vejo sentido.

Att

[KaduFregossi]

Será somente 1 caractere. Imaginei que tivesse como limitar a quantidade de caracteres que podem ser digitados numa célula.

[zinhovba]

Boa tarde!!

Limitar a quantidade de caracteres tem, mas a ação enter automatico é desnecessária.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell    As Excel.Range
     'exemplo na coluna A
    If Not Intersect(Target, Columns("A")) Is Nothing Then
        For Each cell In Intersect(Target, Columns("A"))
            If Len(cell.Value) > 1 Then
                cell.Value = Left(cell.Value, 1)
                cell.Select
                MsgBox "Digite apenas 1 caractere na célula"
            End If
        Next cell
    End If
End Sub