Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Exigir preenchiment...
 
Notifications
Clear all

Exigir preenchimento de célula

 
2024 - VBA & Macros
Post Recente por Glaudemir 8 anos atrás
5 Posts
2 Usuários
0 Reactions
1,026 Visualizações
RSS
 Glaudemir
(@glaudemir)
Posts: 42
Eminent Member
Topic starter
 

Olá, bom dia!

Gostaria de saber se existe como impedir que algumas colunas sejam preenchidas a menos que a coluna C contenha dados.

Na prática é o seguinte: eu preciso "obrigar" o usuário a preencher a informação de C10 antes de preencher D10, E10 e F10. Caso ele tente preencher uma dessas três últimas células antes de preencher C10, então apareça uma mensagem pedindo que seja preenchida logo a célula C10.

Essa mesma coisa deve acontecer em todas as linhas seguintes.

Detalhe: as células das colunas D, E e F possuem validação de dados do tipo data.

Obrigado.

 
Postado : 11/08/2016 7:59 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Glaudemir,

Bom dia.

Veja se é assim.

Preenchimento de célula obrigatório.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/08/2016 8:19 am
 Glaudemir
(@glaudemir)
Posts: 42
Eminent Member
Topic starter
 

Não, meu amigo Wagner, não era isso que eu precisava...

O que você fez é muito melhor do que pensei!!! :)

Pois além de impedir o preenchimento das células, informa qual a célula está faltando ser preenchida e ainda a seleciona. Muito bom!

Obrigado!!!

Glaudemir

 
Postado : 11/08/2016 8:43 am
 Glaudemir
(@glaudemir)
Posts: 42
Eminent Member
Topic starter
 

Wagner, por favor, explique-me só mais uma coisa:

Essa parte do código estipula as colunas D a F, ok?
If Target.Column > 3 And Target.Column < 7 Then

Mas e se além dessas colunas seguidas, eu tivesse por exemplo a coluna J que também só poderia ser preenchida se a coluna C estiver preenchida, como ficaria?

Obrigado.

 
Postado : 11/08/2016 8:54 am
 Glaudemir
(@glaudemir)
Posts: 42
Eminent Member
Topic starter
 

Ok, resolvido. Ficará assim:

If Target.Column > 3 And Target.Column < 7 Or Target.Column = 10 Then

 
Postado : 11/08/2016 9:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico