Alinetog,

Boa Noite!

Sua demanda está muito genérica... anexe aqui mesmo no fórum um arquivo exemplo compactado com dados fictícios, porém com o layout real dos seus dados. Assim ficará mais fácil todos ajudarem.

Como a sua dúvida está genérica, segue uma resposta genérica:

If Célula não preenchida Then
     Msgbox "Dados não forem salvos!", VbDefault, "DADOS"
Else
     Salva
End If

Boa noite querido,

ah sim, vdd estou sendo ousada nisso, por nunca ter feito!!Obrigada por responder!!

Mas assim óh, tenho um CommandButton nele tenho programado para os preenchimentos obrigatórios nas celulas da planilha, porém tenho dois botões de opções qdo pessoa fisica ou juridica, qdo pessoa fisica não tenho necessidade do preenchimento dos dados comerciais, mas gostaria de deixar a opção caso a pessoa queira preencher, mas qdo pessoa juridica precisa ser preenchido estes campos tornado obrigatório, entende??

posta o seu exemplo que fica mais fácil de ajudar

A questão é no final, se a pessoa não inserir os dados comerciais, notificar se ela quer ou não inserir, e se sim ir para os campos e se não salvar automaticamente.

Agradeço desde já atenção de todos!! Obrigada!!

Private Sub CommandButton1_Click()

UF1.Show

End Sub

Private Sub CommandButton3_Click()

    Dim w As Worksheet

    Dim salvar As String
    Dim nome As String
    Dim cpf As String
    Dim numero As String
    Dim cep As String
    Dim bairro As String
    Dim cidade As String
    Dim UF As String
    Dim DDD As String
    Dim fone As String
    Dim email As String
    Dim vazio As String


    Set w = Sheets("Plan1")

    w.Select

    If Range("F18") = "" Then


        MsgBox "Selecione Curso Aberto Desejado, este ítem é obrigatório!", vbCritical
        Range("F18").Select
        Exit Sub

        'Verificada se curso aberto foi selecionado.

    Else

    End If


    If Range("F34") = "" Then

        MsgBox "Nome Completo, este ítem é obrigatório!", vbCritical
        Range("F34").Select
        Exit Sub

        'Verificada se nome completo foi preenchido
    Else


    End If

    If Range("N36") = "" Then

        MsgBox "CPF, este ítem é obrigatório!", vbCritical
        Range("N36").Select
        Exit Sub

        'Verificada se CPF foi preenchido

    Else

    End If


    If Range("F38") = "" Then

        MsgBox "Endereço, este ítem é obrigatório!", vbCritical
        Range("F38").Select
        Exit Sub

        'Verificada se Endereço foi preenchido


    Else

    End If

    If Range("R38") = "" Then

        MsgBox "Número / Endereço, este ítem é obrigatório!", vbCritical
        Range("R38").Select
        Exit Sub

        'Verificada se Numero foi preenchido

    Else

    End If

    If Range("R40") = "" Then

        MsgBox "CEP, este ítem é obrigatório!", vbCritical
        Range("R40").Select
        Exit Sub

        'Verificada se cep foi preenchido

    Else

    End If

    If Range("F42") = "" Then

        MsgBox "Bairro, este ítem é obrigatório!", vbCritical
        Range("F42").Select
        Exit Sub

        'Verificada se bairro foi preenchido

    Else

    End If

    If Range("N42") = "" Then

        MsgBox "Cidade, este ítem é obrigatório!", vbCritical
        Range("N42").Select
        Exit Sub

        'Verificada se cidade foi preenchido

    Else

    End If

    If Range("U42") = "" Then

        MsgBox "UF, este ítem é obrigatório!", vbCritical
        Range("U42").Select
        Exit Sub

        'Verificada se uf foi preenchido

    Else

    End If

    If Range("F44") = "" Then

        MsgBox "DDD, este ítem é obrigatório!", vbCritical
        Range("F44").Select
        Exit Sub

        'Verificada se DDD foi preenchido

    Else

    End If

    If Range("H44") = "" Then

        MsgBox "Fone, este ítem é obrigatório!", vbCritical
        Range("H44").Select
        Exit Sub

        'Verificada se fone foi preenchido

    Else

    End If

    If Range("F46") = "" Then
       
        MsgBox "E-mail, este ítem é obrigatório!", vbCritical
        Range("F44").Select
        Exit Sub

        'Verificada se E-mail foi preenchido
              
    Else

    End If

menssagemSimNão

    ActiveWorkbook.Save

End Sub

Sub menssagemSimNão()

    Dim RespostaAle As String
    Dim AleVBA As String

    If Range("F52") = "" Then

    Else

    End If

    AleVBA = "Deseja inserir Dados Comerciais??"

    RespostaAle = MsgBox(AleVBA, vbQuestion + vbYesNo, "Mensagem!")

    Range("F52").Show

    If RespostaAle = vbNo Then

Else
     
End If
    
End Sub

Aline qdo se solicita um modelo isso significa nada mais nem menos que sua planilha com o layout real (incluindo o VBA), mas os dados fictícios, montar a planilha na tela e postar so o codigo vba .... sinceramente nos deixa na mesma.

Quem for te ajudar tem que entender o que vc tem e com base nas informaçoes que vc posta, o que vc precisa.

Aguardamos seu modelo.

poutz .. tá dificil ..rs...

Acho que agora sim anexei!!

Obrigada novamente!!!

Faça assim

Sub menssagemSimNão()

    Dim RespostaAle As String
    Dim AleVBA As String

    If Range("F52") = "" Then
    AleVBA = "Deseja inserir Dados Comerciais??"

    RespostaAle = MsgBox(AleVBA, vbQuestion + vbYesNo, "Mensagem!")
  

    If RespostaAle = vbYes Then
    Range("F52").Select
    Else
    ThisWorkbook.Save
    End If
     
End If

Visite meu blog:

programacaopassoapasso.wordpress.com

Bom dia,

querido Edivan! Muitíssimo obrigada!! Show de bola!! Ficou redondo!!

Não sei se posso postar aqui!! Mas ainda assim, agradeço essa ferramenta incrível de fórum, onde podemos tirar duvidas, ver as mais diversas situações!!

Adorei!! Espero poder ajudar também!!!

Obrigada a todos!!!

Grande abraço!!!