Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Célula recebe dígito e pula próxima célula

2 participantes

Ir para baixo

Célula recebe dígito e pula próxima célula Empty Célula recebe dígito e pula próxima célula

Mensagem por doidoDmais Qua Nov 14, 2012 5:54 am

Bom dia Galera!

To precisando de um jeito onde que:


Tenho 5 células. Cada célula recebe um dígito apenas.


Gostaria que ao digitar o digito de uma célula, ele automaticamente pula pra proxima célula.


Célula A1 ao receber o digito, ele pula para a célula seguinte A2, sem precisar selecionar a proxima célula ou dar enter ou clicar em botão.


Isso tem jeito?

São dados bancários.

doidoDmais
Iniciante
Iniciante

Mensagens : 6
Data de inscrição : 14/11/2012

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por alexandrevba Qua Nov 14, 2012 10:12 am

Boa tarde!!!

Respondido em..
http://profwillianexcel.forumeiros.com/t422-celula-recebe-digito-e-pula-para-proxima-celula

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por doidoDmais Qua Nov 14, 2012 11:42 am

Lá eu que perguntei!

doidoDmais
Iniciante
Iniciante

Mensagens : 6
Data de inscrição : 14/11/2012

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por alexandrevba Qui Nov 15, 2012 8:04 am

Bom dia!!!

Código:
Sub Teste()
Worksheets(1).ScrollArea = "A1:H11"
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por doidoDmais Seg Nov 19, 2012 6:06 am

Esse não funciona do jeito que preciso.

doidoDmais
Iniciante
Iniciante

Mensagens : 6
Data de inscrição : 14/11/2012

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por alexandrevba Seg Nov 19, 2012 10:32 am

Boa tarde!!

Eu não consegui fazer do jeito que quer, sem usar a tecla enter.
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por doidoDmais Ter Nov 20, 2012 5:32 am

Ok, mas valeu mesmo assim!

Obrigado

doidoDmais
Iniciante
Iniciante

Mensagens : 6
Data de inscrição : 14/11/2012

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por alexandrevba Ter Nov 20, 2012 7:34 am

Bom dia!!

Eu tentei mas não deu certo.
Código:
Sub KeyMapper()
Application.OnKey "0", "Zero"
Application.OnKey "1", "One"
Application.OnKey "2", "Two"
Application.OnKey "3", "Three"
End Sub

Sub KeyUnmapper()
Application.OnKey "0"
Application.OnKey "1"
Application.OnKey "2"
Application.OnKey "3"
End Sub

Sub Zero()
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
End Sub

Sub One()
ActiveCell.Value = 1
ActiveCell.Offset(0, 1).Select
End Sub

Sub Two()
ActiveCell.Value = 2
ActiveCell.Offset(0, 1).Select
End Sub

Sub Three()
ActiveCell.Value = 3
ActiveCell.Offset(0, 1).Select
End Sub

Código:
Dim TopRow As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set TopRow = Range("A1:H1")
If Intersect(Target, TopRow) Is Nothing Then
    Call KeyUnmapper
Else
    Call KeyMapper
End If
End Sub
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por doidoDmais Ter Nov 20, 2012 12:20 pm

Consegui por ele pra funcionar, só que com esse código é necessário usar botão.

doidoDmais
Iniciante
Iniciante

Mensagens : 6
Data de inscrição : 14/11/2012

Ir para o topo Ir para baixo

Célula recebe dígito e pula próxima célula Empty Re: Célula recebe dígito e pula próxima célula

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos