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

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

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

Mensagem por doidoDmais em 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 : 5
Data de inscrição : 14/11/2012

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

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

avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

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

Lá eu que perguntei!

doidoDmais
Iniciante
Iniciante

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

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

Bom dia!!!

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

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

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

Esse não funciona do jeito que preciso.

doidoDmais
Iniciante
Iniciante

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

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

Boa tarde!!

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

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

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

Ok, mas valeu mesmo assim!

Obrigado

doidoDmais
Iniciante
Iniciante

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por doidoDmais em 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 : 5
Data de inscrição : 14/11/2012

Ver perfil do usuário

Voltar ao Topo Ir em baixo

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

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum