Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ignorar linhas
 
Notifications
Clear all

Ignorar linhas

 
2024 - VBA & Macros
Post Recente por Osvaldomp 9 anos atrás
3 Posts
3 Usuários
0 Reactions
972 Visualizações
RSS
zanni
 zanni
(@zanni)
Posts: 27
Eminent Member
Topic starter
 

Olá pessoal!

Estou trabalhando em uma planilha de registro de documentos e nela existe uma aba para se registrar os documentos.

Eu gostaria se fazer com que qndo eu apertasse enter ele fosse para outra célula especifica e dessa célula pra outra assim respectivamente.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "D3" Then
Range("D5").Select
End If

End Sub

Eu tenho esse código, porém eu gostaria que da célula D5 qndo o enter fosse apertado novamente ela pulasse para a célula D8.

Espero ter sido claro

Se alguem puder me ajudar, muito obrigado.

I'd rather attempt to do something great and fail than to attempt to do nothing and succeed. -Robert H. Schuller

 
Postado : 18/05/2016 3:13 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Selecione as celulas que vc deseja que o cursor va a cada enter

Formatar Proteção

Desmarque bloqueadas

Proteja a planilha Uma senha é opcional
Desmarque Selecionar Celulas Bloqueadas

Segue o exemplo (Esta sem Senha)

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 18/05/2016 4:01 pm
 Osvaldomp
(@osvaldomp)
Posts: 858
Prominent Member
 

O código abaixo seleciona a terceira célula abaixo da célula ativa, mesma coluna.
Funciona em todas as colunas. Seria isso que você quer ?

Private Sub Worksheet_Change(ByVal Target As Range)
 Target.Offset(3).Activate
End Sub

Osvaldo

 
Postado : 18/05/2016 5:26 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico