Camila Sousa

Oi osvaldomp, Sua solução foi rápida e inteligente! Com o código que Basole me passou e a sua ideia, funcionou! Gente, muito obrigada!

Oi Basole, Obrigada pelo rápido retorno. Então, eu copiei integralmente o código e o problema persiste nos 5 campos...

Olá, prezados boa tarde Há muito tempo uso do clubedohardware para sanar dúvidas e tem sido de muita ajuda! Só que estou com o mesmo problema do tópico e não consegui resolver com as ajudas disponibilizadas, até pela minha falta de conhecimento. Meu conhecimento de vba é bem básico mesmo, quase pré-histórico.. kkk Enfim, já tentei de tudo que é forma mas não dá certo. Preciso que a data seja importada no formato dd/mm/aaaa e ele só faz o contrário! (mm/dd/aaaa). Preciso que a importação correta ocorra em todos os textbox onde coloquei data (cxtData, cxtDataInternação, cxtDatadenascimento, cxtDataLiberação e cxtDataSentença) Segue o código: Private Sub bcoCarregardata_Click() cxtData.Text = Format(Date, "dd/mm/yyyy") 'essa funciona na importação! Mas quando quero escrever a data, ao invés de clicar no botão, ele importa com dia e mês trocados End Sub Private Sub bcoInserirDados_Click() MsgBox "Dados cadastrados com sucesso", vbExclamation, "Aviso" ActiveCell.Offset(0, 0).Activate ActiveCell.Value = Me.cxtData.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtNome.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtNºdoProcesso.Text ActiveCell.Offset(0, 3).Activate ActiveCell.Value = Me.cxtDatadenascimento.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboGenero.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboLocaldeResidencia.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboEscolaridade.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboUsadrogas.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboAto1.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboAto2.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboConcurso.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboArma.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboViolencia.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtDataInternação.Text ActiveCell.Offset(0, 2).Activate ActiveCell.Value = Me.cboOrigem.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboInstituição.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtDataLiberação.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboLiberação.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboGuia.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboJuizPlantonista.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cxtDataSentença.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboJuizSentença.Text ActiveCell.Offset(0, 2).Activate ActiveCell.Value = Me.cboRemissão.Text ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Me.cboSentença.Text ActiveCell.Offset(1, -27).Activate End Sub Private Sub bcoLimparFormulario_Click() cxtData.Text = "" cxtNome.Text = "" cxtNºdoProcesso.Text = "" cxtDatadenascimento.Text = "" cboGenero.Text = "" cboLocaldeResidencia.Text = "" cboEscolaridade.Text = "" cboUsadrogas.Text = "" cboAto1.Text = "" cboAto2.Text = "" cboConcurso.Text = "" cboArma.Text = "" cboViolencia.Text = "" cxtDataInternação.Text = "" cboOrigem.Text = "" cboInstituição.Text = "" cxtDataLiberação.Text = "" cboLiberação.Text = "" cboGuia.Text = "" cboJuizPlantonista.Text = "" cxtDataSentença.Text = "" cboJuizSentença.Text = "" cboRemissão.Text = "" cboSentença.Text = "" End Sub Private Sub bcoFecharFormulario_Click() Unload Me End Sub