Célula recebe dígito e pula próxima célula
2 participantes
Página 1 de 1
Célula recebe dígito e pula próxima célula
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.
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
- Mensagens : 6
Data de inscrição : 14/11/2012
Re: Célula recebe dígito e pula próxima célula
Boa tarde!!!
Respondido em..
http://profwillianexcel.forumeiros.com/t422-celula-recebe-digito-e-pula-para-proxima-celula
Att
Respondido em..
http://profwillianexcel.forumeiros.com/t422-celula-recebe-digito-e-pula-para-proxima-celula
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Célula recebe dígito e pula próxima célula
Lá eu que perguntei!
doidoDmais- Iniciante
- Mensagens : 6
Data de inscrição : 14/11/2012
Re: Célula recebe dígito e pula próxima célula
Bom dia!!!
- Código:
Sub Teste()
Worksheets(1).ScrollArea = "A1:H11"
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Célula recebe dígito e pula próxima célula
Esse não funciona do jeito que preciso.
doidoDmais- Iniciante
- Mensagens : 6
Data de inscrição : 14/11/2012
Re: Célula recebe dígito e pula próxima célula
Boa tarde!!
Eu não consegui fazer do jeito que quer, sem usar a tecla enter.
Eu não consegui fazer do jeito que quer, sem usar a tecla enter.
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Célula recebe dígito e pula próxima célula
Ok, mas valeu mesmo assim!
Obrigado
Obrigado
doidoDmais- Iniciante
- Mensagens : 6
Data de inscrição : 14/11/2012
Re: Célula recebe dígito e pula próxima célula
Bom dia!!
Eu tentei mas não deu certo.
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Célula recebe dígito e pula próxima célula
Consegui por ele pra funcionar, só que com esse código é necessário usar botão.
doidoDmais- Iniciante
- Mensagens : 6
Data de inscrição : 14/11/2012
Tópicos semelhantes
» Bloquear célula sem a introdução de dados noutra
» Formatação de célula mudar a cor
» Procurar valor em coluna baseado em célula
» Selecionar a ultima célula de um intervalo específico
» Procurar e Destacar (pintar) valor em célula
» Formatação de célula mudar a cor
» Procurar valor em coluna baseado em célula
» Selecionar a ultima célula de um intervalo específico
» Procurar e Destacar (pintar) valor em célula
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|