Notifications
Clear all

Como impedir que uma célula fique sem preenchimento?

11 Posts
4 Usuários
0 Reactions
2,370 Visualizações
(@marmen)
Posts: 0
New Member
Topic starter
 

Bom dia

Venho a este fórum pedir um pouquinho da atenção de vocês :D
-Tem alguma maneira de impedir que uma célula fique vazia em uma planilha, ou seja, sem caractere. Seja ele número ou texto?

Aguardo uma resposta.

Obrigado!

 
Postado : 17/02/2017 8:45 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

marmen,

Bom dia!

Primeiramente, informo que transferi sua mensagem para o tópico adequado (VBA & Macros).

Respondendo a sua pergunta: Tem sim como fazer isso. Todavia, é interessante que você anexe, aqui mesmo no fórum, uma arquivo exemplo Excel, compactado com .ZIP, informando quais são as células desse seu arquivo que você quer que, ao salvar a planilha, a mesma não seja salva sem que ela sejam preenchidas. Em programação, todos os detalhes são importantes pois precisa ser informado ao computador como é que ele deve trabalhar.

 
Postado : 17/02/2017 9:41 am
(@marmen)
Posts: 0
New Member
Topic starter
 

Obrigado Wagner, sou novo no Fórum!
Vamos lá, fiz uma planilha de Cadastro de Clientes automatizada, só que usei as Macros pois não sou muito entendido de VBA.
Depois de todas as células referente ao cadastro forem preenchidas eu criei um botão chamado cadastrar com a função de gravar os dados preenchidos na mesma planilha, algumas linhas abaixo, até ai, eu consegui fazer. Mais quando eu deixo algum campo sem preencher e clico em cadastrar o cadastro é efetuado da mesma forma. Não consegui fazer uma macro que impeça isso. O que eu queria era que aparecesse uma mensagem do tipo: " Seu cadastro está incompleto", quando eu clicasse no botão cadastrar.

Eu tenho o modelo, como eu faço para anexar ao tópico?

 
Postado : 17/02/2017 3:44 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde marmen,

Olhe esse código de exemplo:

Sub Vazio()
    
    'Se a célula A1 estiver vazia
    If Range("A1").Value = Empty Then
        
        'Mensagem avisa que a célua está vazia
        MsgBox "A célula A1 está vazia!"
        'Seleciona a célula vazia
        Range("A1").Select
        'Sai da Sub para não executar o resto do código
        Exit Sub
        
    End If
    
End Sub

Coloque algo similar antes dos códigos que colocam os valores nas células.

Qualquer dúvida é só perguntar.

att,

 
Postado : 17/02/2017 4:11 pm
(@marmen)
Posts: 0
New Member
Topic starter
 

Olá brunoxro!

Deu certo para verificar uma célula vazia, mais preciso de um comando para o botão cadastrar.

 
Postado : 17/02/2017 4:59 pm
(@mprudencio)
Posts: 0
New Member
 

Como ja foi dito disponibilize um modelo

 
Postado : 17/02/2017 5:27 pm
(@marmen)
Posts: 0
New Member
Topic starter
 

Bom dia!

Como solicitado, segue o anexo com minha dúvida.

 
Postado : 18/02/2017 7:53 am
(@brunoxro)
Posts: 0
New Member
 

Boa noite marmen,

Dê uma olha no código que está no módulo1.

Qualquer dúvida é só perguntar.

att,

 
Postado : 19/02/2017 8:32 pm
(@marmen)
Posts: 0
New Member
Topic starter
 

Bom dia brunoxro,
Perfeito, era exatamente isso que eu queria!
Só mais uma dúvida, tem como depois de clicar no botão cadastrar deixar a parte que foi gravada bloqueada?
Muito obrigado pela atenção brunoxro.

 
Postado : 20/02/2017 6:39 am
(@brunoxro)
Posts: 0
New Member
 

Boa tarde marmen,

Uma opção é proteger a planilha, deixando algumas células livres, e depois no código usar os seguintes comandos:

'Desprotege a planilha
Sheets('Nome da Planilha').Unprotect (Senha)

'----------Código que deve ser executado -----------

'Protege a planilha
Sheets('Nome da Planilha').Protect (Senha)

Dê uma olhada: https://www.youtube.com/watch?v=E5_zi26dYhA

att,

 
Postado : 21/02/2017 11:33 am
(@marmen)
Posts: 0
New Member
Topic starter
 

Boa Noite,

Muito Obrigado pela atenção de todos, minhas dúvidas foram tiradas :D

 
Postado : 21/02/2017 4:55 pm