Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Célula específica c...
 
Notifications
Clear all

Célula específica com Enter

 
2024 - VBA & Macros
10 Posts
2 Usuários
0 Reactions
1,233 Visualizações
RSS
 Cleonis
(@cleonis)
Posts: 0
New Member
Topic starter
 

Ola Pessoal,

Estou com um problema. Tenha uma Planilha que preciso que ao digitar o codigo de barras na célula A3 o cursor vá direto para a célula C3 logo apos volte para o A4 depois C4 e ai vai...
Detalhe: Ao ler a celula A3,A4 nesta coluna será usado um leitor de codigo de barras , ou seja, ao ternimo da leitura automaticamente , sem enter , a proxima célua deve ser a C4,C5 e por ai vai nesta coluna.
Nao entendo nada de VBA . Alguém poderia me ajudar a resolver esse probleminha. Estou anexando a planilha .

Aguardo e agradeço...

Att;

Cleonis Felipe

 
Postado : 29/06/2015 12:06 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

dentro de um módulo de planilha, insira o código!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 1
        Cells(Target.Row, Target.Column + 2).Select
    Case 3
        Cells(Target.Row, Target.Column - 2).Select
    Case Else
        Exit Sub
    End Select
End Sub

Att

 
Postado : 29/06/2015 12:41 pm
 Cleonis
(@cleonis)
Posts: 0
New Member
Topic starter
 

Desculpe minha limitação, Quando voce diz um módulo da planilha onde faço isso ? Teria como vc indicar o caminho ? Agradeço...

Att;

Cleonis Felipe

 
Postado : 29/06/2015 12:54 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Abra o Editor VB (Alt + F11), do lado esquerdo na Janela de VBAproject, aparecerá (EstaPasta_de_trabalho, Plan1,Plan2,Plan3), dê dois click's em Plan1 (no seu caso Produtos), insira o código.

Att

 
Postado : 29/06/2015 1:17 pm
 Cleonis
(@cleonis)
Posts: 0
New Member
Topic starter
 

Obrigado,

Só que tem um problema , Ao dar enter na celula C3 em vez de pular para a A4 o cursor volta para A3. A ideia e ir descendo a linha a cada enter . Tem como ?

Att;

Cleonis Felipe

 
Postado : 29/06/2015 1:57 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente mudar as linhas 

Cells(Target.Row, Target.Column - 2).Select

Att

 
Postado : 29/06/2015 2:08 pm
 Cleonis
(@cleonis)
Posts: 0
New Member
Topic starter
 

Desculpe mas nao deu certo. Continua voltando para mesma linha em vez de descer para proxima. Estou lhe enviando a Planilha para vc dar uma olhada.

Att;

Cleonis Felipe

 
Postado : 30/06/2015 5:08 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Você tentou assim?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target.Column
    Case 1
        Cells(Target.Row, Target.Column + 2).Select
    Case 3
        Cells(Target.Row + 1, Target.Column - 2).Select
    Case Else
        Exit Sub
    End Select
End Sub

Att

 
Postado : 30/06/2015 5:12 am
 Cleonis
(@cleonis)
Posts: 0
New Member
Topic starter
 

Maravilha !!!!! Perfeito!!! Muito Obrigado pela ótima ajuda.

Att;

Cleonis Felipe

 
Postado : 30/06/2015 5:16 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu fico feliz que resolveu seu problema, precisando..estamos aqui.. ;)

Att

 
Postado : 30/06/2015 5:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico