ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Não procura valor em Célula Vazia?

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Vergilio_reinaldo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Ter Set 25, 2012 10:56 pm

Não procura valor em Célula Vazia?

Mensagem por Vergilio_reinaldo » Qua Abr 10, 2013 9:18 pm

Boa Noite Pessoal do fórum,

Preciso de mais uma ajuda de vocês, tenho esse código abaixo estou precisando fazer que ele não busque nas células vazias.
Porque quando eu vou fechar esse arquivo, o código busca valor abaixo de 50% e acaba buscando as células vazias
Alguém pode me ajudar a acertar esse código.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim faixa As Range

Set faixa = Sheet1.Range("C45:O45") ' coloque aqui a faixa deseja a ser verificada

For Each celula In faixa
If celula.Value < "0,5%" Then
MsgBox "Erro na Planilha!"
Cancel = True
celula.Select
Exit For
End If
Next
End Sub

Obrigado novamente.....
Anexos
Não procurar valor em célula vazia.rar
(7.95 KiB) Baixado 72 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
souzarosas
Colaborador
Colaborador
Mensagens: 28
Registrado em: Qui Ago 02, 2012 1:48 am
Localização: Santo Ângelo-RS

Re: Não procura valor em Célula Vazia?

Mensagem por souzarosas » Qua Abr 10, 2013 11:02 pm

Olá amigo...

Sabe..é nessas horas que da vontade da gente pegar um martelo e dar uma martelada vigorosa em das bolinhas de nosso saquito....rsrsrsrrs ... :lol: ....

Não sei quanto tempo vc ta agarrado com a sua necessidade, mas faz o seguinte ae:

Código: Selecionar todos

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim faixa As Range

Set faixa = Sheet1.Range("C45:O45") ' coloque aqui a faixa deseja a ser verificada

For Each celula In faixa
If celula.Value < "0,5%" And celula.Value <> "" Then 
MsgBox "Erro na Planilha!"
Cancel = True
celula.Select
Exit For
End If
Next
End Sub
Só muda acrescentando o And celula.Value <> "" , pois assim só vai dar msg de erro se for diferente de vazio e menor do que 50%...

PS: tb to aprendendo e não esquenta não que essa parada de programação eu to vendo que é sempre assim...10000 dias :evil: fuçando pra resolver um problema e do nada a solução se apresenta e depois a gente ve que não é nada de mais.... :shock:

Ve ae se era isso mesmo ou se eu to viajando na maionese..... :roll:

Att,


Imagem

“Quando você estiver com apenas uma mão livre para abrir a porta, a chave estará no bolso oposto.” (Lei de assimetria de Laka Gamos)

Vergilio_reinaldo
Colaborador
Colaborador
Mensagens: 16
Registrado em: Ter Set 25, 2012 10:56 pm

Re: Não procura valor em Célula Vazia?(Resolvido)

Mensagem por Vergilio_reinaldo » Qui Abr 11, 2013 8:44 am

Bom dia Souza,

Cara muito obrigado pela dica, erra isso mesmo que faltava para eu terminar essa planilha.
É como você me falou tem horas que a gente tem vontade de bater a cabeça na parede, eu como sou novo em VBA procuro muita coisa na net. tem horas que cansa rsssss.........cara fique 2 dias pra ajustar esse código........mais no final valeu apena o resultado...


Obrigado novamente



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder