Jump to content
Fórum Script Brasil

Fausto Júnior

Membros
  • Content Count

    2
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Fausto Júnior

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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!
  2. 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
×
×
  • Create New...