Este fórum está sendo desativado

[vonzuben]

If Range("A1").Value = "" Then
MsgBox ("Você deve preencher os campos !")
Else

Gostaria que seja obrigatório A1, B1, C1 e D1

Tentei colocar And .... mas não deu certo

If Range("A1").Value = "" And Range("B1").Value = "" Then

Obrigado desde já !

[Reinaldo]

Primeiro deve decidir se existe uma precedência/prioridade no preenchimento dos campos, e qual a atitude caso não atendam ao critério determinado.
Utilizando "And" conforme "disse" somente terá o retorno esperado se todos os campos envolvidos atenderem ao critério; assim: A1 for preenchido e B1 não; a condição: if Range("A1").Value = "" And Range("B1").Value = "" Then, não é atendida.
Pode experimentar utilizando o operados "OR" : if Range("A1").Value = "" OR Range("B1").Value = "" Then...
Ou mesmo um IF para cada range
Tipo:

Código: Selecionar todos

If Range("A1").Value = "" Then 
MsgBox ("Você deve preencher a celula A1!")
exit sub
range("A1"). select
end if
If Range("B1").Value = "" Then 
MsgBox ("Você deve preencher a celula B1!")
exit sub
range("B1"). select
end if