Fausto Júnior

Boa noite. Eu tenho uma TextBox em um Userform para inserção de datas e gostaria de uma macro que ao digitar uma data, ela fosse imediatamente formatada para dd/mm/aaa sem precisar digitar as "/". E que além disso, fosse permitido digitar apenas números e valores válidos para DIA, MÊS e ANO. Por exemplo: caso fosse digitado 32 para o DIA aparecesse a mensagem "Dia Inválido!" ou "Mês Invalido!" e "Ano Inválido!" para digitação de um mês ou ano inexistente. E se não for pedir muito, ainda "Dia Inválido para este mês!" caso digite um dia > 28 para o mês de fevereiro.Desde já, agradeço!

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 SubElseIf txtNome.Text = "" Then MsgBox "Digitar o nome do paciente", vbExclamation, "AVISO"txtNome.SetFocusExit SubEnd IfIf txtDDD.Text = "" And txtTelefone1.Text = "" Then MsgBox "Digitar o DDD e o Nº de Telefone", vbExclamation, "AVISO" txtDDD.SetFocus Exit SubEnd IfIf txtTelefone1.Text = "" Then MsgBox "Digitar o Nº de Telefone", vbExclamation, "AVISO"txtTelefone1.SetFocusExit SubEnd IfIf txtPlano.Text = "" Then MsgBox "Digitar se Convênio ou Particular", vbExclamation, "AVISO" txtPlano.SetFocusExit SubEnd IfIf txtPlano.Text = "PARTICULAR" Then End IfIf txtPlano.Text = "CONVÊNIO" Then MsgBox "Digitar o Nº da Carteira", vbExclamation, "AVISO"txtNºCarteira.SetFocusExit SubEnd IfIf txtPlano.Text = "CONVÊNIO" And txtNºCarteira.Text <> "" Then End IfEnd If' Restante do códigoEnd Sub