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
Postado : 18/12/2015 7:09 am