Boa-tarde
No meu formulário quando faço a pesquisa por código e ao preencher as "Text´s" a da aparece invertida, já tentei algumas formatações e não deu certo.
Na planilha está assim: "22/01/2017" mais quando pesquiso no "Text" aparece "01/22/2017"
Já usei "Format", "Cdate",... e nada !
form_alterar.data.Text = Sheets("Clientes").Cells(Linha, 6)
Att,
Francisco
Boa tarde
Já tentou usar:
Format(Me.txtPais.Text, "mm/dd/yyyy")
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Boa tarde,
Isso aconteceu quando fui jogar valores na célula.
Tem um guambiarra que usa as funções Right e Left que talvez resolva.
Teste:
Dim Dat As String Dat = Sheets("Clientes").Cells(Linha, 6) 'Mês & / & Dia & / & Ano form_alterar.Data.Text = Left(Right(Dat, 7), 2) & "/" & Left(Dat, 2) & "/" & Right(Dat, 4)
att,
Boa-noite
Patropi, brunoxro. Não deu certo !
Segue o anexo, o código está no "Módulo1" "Sub pesquisacodigo()"
Coloquei no campo data de nascimento "01/11/1970", depois que abrir o formulário "form_alterar", nem precisa mudar nada, é só clicar no botão para atualizar e já vai inverter a data lá na planilha.
Att,
Francisco
Na rotina ALTERAR, dentro do próprio módulo 1, na linha abaixo use CDATE, vai ficar assim:
Sheets("Clientes").Cells(Linha, 6) = CDate(form_alterar.data.Text)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Bom-dia
Obrigado a todos pelas respostas.
Att,
Francisco