Este fórum está sendo desativado

[FJunior]

Boa noite. Estou precisando de uma ajuda. Tenho uma Userform com algumas textbox de preenchimento obrigatório e outras não. Então quando clico no botão para salvar os dados digitados, mas uma destas textbox de preenchimento obrigatório está vazia, obviamente aparece uma mensagem solicitando o seu preenchimento e assim por diante. No entanto, tenho uma textbox (Plano) onde tenho duas opções de preenchimento: "Particular" ou "Convênio" e quando digitado "Particular" eu não preciso preencher a próxima textbox (Nº Carteira) para salvar os dados, mas se eu digitar "Convênio" gostaria que fosse obrigatório o preenchimento do nº da carteira na próxima textbox. Com o código que coloquei mesmo após digitar "Convênio" e o nº da Carteira, ao clicar no botão salvar ele continua pedindo para digitar o nº da carteira. Alguém poderia me ajuda? Desde já obrigado!
Segue parte do meu código:

Private Sub CmdSalvar_Click()

If WorksheetFunction.CountIf(Range("C9:C1923"), txtNome.Value) > 0 And txtNome <> "" Then
MsgBox "Esse cadastro já existe!", vbCritical, "ERRO"
Exit Sub

Else

If txtNome.Text = "" Then
MsgBox "Digitar o nome do paciente", vbExclamation, "AVISO"
txtNome.SetFocus
Exit Sub
End If

If txtDDD.Text = "" And txtTelefone1.Text = "" Then
MsgBox "Digitar o DDD e o Nº de Telefone", vbExclamation, "AVISO"
txtDDD.SetFocus
Exit Sub
End If

If txtTelefone1.Text = "" Then
MsgBox "Digitar o Nº de Telefone", vbExclamation, "AVISO"
txtTelefone1.SetFocus
Exit Sub
End If

If txtPlano.Text = "" Then
MsgBox "Digitar se Convênio ou Particular", vbExclamation, "AVISO"
txtPlano.SetFocus
Exit Sub
End If

If txtPlano.Text = "PARTICULAR" Then
End If

If txtPlano.Text = "CONVÊNIO" Then
MsgBox "Digitar o Nº da Carteira", vbExclamation, "AVISO"
txtNºCarteira.SetFocus
Exit Sub
End If

If txtPlano.Text = "CONVÊNIO" And txtNºCarteira.Text <> "" Then
End If
End If

' Restante do código
End Sub

[AndersonLeal]

Olá,

Substitua essas linhas de código:

Código: Selecionar todos

If txtPlano.Text = "CONVÊNIO" Then 
MsgBox "Digitar o Nº da Carteira", vbExclamation, "AVISO"
txtNºCarteira.SetFocus
Exit Sub
End If

If txtPlano.Text = "CONVÊNIO" And txtNºCarteira.Text <> "" Then 
End If
End If

por essas:

Código: Selecionar todos

If txtPlano.Text = "CONVÊNIO"  And txtNºCarteira.Text = "" Then 
MsgBox "Digitar o Nº da Carteira", vbExclamation, "AVISO"
txtNºCarteira.SetFocus
Exit Sub
End If

Qualquer dúvida poste novamente no fórum.

Abraço!

[FJunior]

Funcionou perfeitamente Anderson. Muito obrigado pela ajuda!