Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para conferir...
 
Notifications
Clear all

Macro para conferir se intervalo tem células em branco

 
2024 - VBA & Macros
Post Recente por vaz.felipe 10 anos atrás
7 Posts
2 Usuários
0 Reactions
1,273 Visualizações
RSS
 vaz.felipe
(@vaz-felipe)
Posts: 25
Eminent Member
Topic starter
 

Olá pessoal, tudo tranquilo?!

Não tenho habilidade com macros, então conto com a ajuda de vocês nessa:

Tenho uma macro que copia e cola os dados do intervalo D4:D29 em outra planilha. Quero fazer um If nessa macro para que antes de rodá-la seja validado se foi deixado de preencher algum campo e exiba uma caixa de mensagem. Se não foi esquecido nenhum campo, rode meu código. Como ficaria??

Um grande abraço e muito obrigado pela ajuda.
Felipe

 
Postado : 25/02/2015 11:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

O nome da macro já diz tudo!!!!

Sub ExpliqueMelhorSuaDuvia_Ou_PosteSeuArquivoModelo()
    If Range("A2").Value = "" Then
        MsgBox "Favor preencher os campos!"
    Else
        'fala alguma coisa
    End If
End Sub
 
Postado : 25/02/2015 12:10 pm
 vaz.felipe
(@vaz-felipe)
Posts: 25
Eminent Member
Topic starter
 

Opa,

Segue um modelo para teste.

Desculpe.

 
Postado : 25/02/2015 12:50 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente

Sub ALeVBA_14770()
        If WorksheetFunction.CountA(Range("F8:F14")) = 0 Then
            MsgBox "favor preencher todas as células de F8:F14!"
            Exit Sub
        Else
            Plan1.Range("F8:F14").Copy Range("I8")
        End If
End Sub

Att

 
Postado : 25/02/2015 1:16 pm
 vaz.felipe
(@vaz-felipe)
Posts: 25
Eminent Member
Topic starter
 

Não atende.

MsgBox não aparece quando alguma célula do intervalo não é preenchida. Ao invés disso, esta copiando!

 
Postado : 25/02/2015 2:10 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente assim..

Sub ALeVBA_14770V2()
    If WorksheetFunction.CountA(Range("F8:F13")) = 0 Then
        MsgBox "Favor preencher todas as células de F8 até F13!"
        Exit Sub
    Else
        Plan1.Range("F8:F13").Copy Range("I8")
    End If
End Sub
 
Postado : 25/02/2015 2:38 pm
 vaz.felipe
(@vaz-felipe)
Posts: 25
Eminent Member
Topic starter
 

Masss bah! Feito. Muito obrigado pela ajuda Alexandre!

 
Postado : 25/02/2015 3:11 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico