Página 1 de 1

Nao sei como formatar TEXTBOX como DATA *RESOLVIDO*

Enviado: Ter Nov 05, 2019 11:03 pm
por RUSSO_RP
EXEMPLO FORUM.rar
AJUDA PARA TEXTBOX
(56.32 KiB) Baixado 205 vezes
<t>Boa noite!<br/>
<br/>
Estou fazendo um pequeno formulario para ser utilizado na empresa onde trabalho e estou com algumas duvidas.<br/>
<br/>
A que mais est[a me atrapalhando no momento, e que tenho um textbox onde digito uma data, porem quando vou para a tabela ela esta aparecendo no formato americano e como texto, pois ai ela fica fora do filtro de data e depois da erro na minha tabela dinamica.<br/>
<br/>
Mais uma duvida, tenho um campo chamado Tipo de Retrabalho, onde quem for digitar deve escolher entre Cliente e EDC, mas quando nao precisar clicar em nenhum desses dois gostaria que na tabela aparecesse SR. e possivel?<br/>
<br/>
Vou anexar o arquivo e espero a ajuda de vcs.<br/>
<br/>
Muito Obrigado!</t>

Re: Nao sei como formatar TEXTBOX como DATA

Enviado: Qua Nov 06, 2019 11:59 am
por webmaster
RUSSO_SP,

Dá uma pesquisada no forum que isso já foi extensamente discutido por aqui.

Att

Re: Nao sei como formatar TEXTBOX como DATA

Enviado: Qui Nov 07, 2019 12:02 pm
por Reinaldo
Como disse o colega WebMaster Tomas, esse e um assunto recorrente nos diversos foruns, com uma extensa gama de demandas/soluções;
Contudo seu projeto utiliza um modelo de inserção de dados interessante, e assim segue minha sugestão para os tres campos de data TextBox2/5/6:
EXEMPLO(Datas)FORUM.zip
(51.98 KiB) Baixado 278 vezes
Experimente e veja se atende

Re: Nao sei como formatar TEXTBOX como DATA *RESOLVIDO*

Enviado: Sáb Nov 09, 2019 3:35 am
por RUSSO_RP
Bom dia!

Reinaldo muito obrigado pela ajuda!!!! Deu certo!!!!!

Vlw demais pela ajuda!

Re: Nao sei como formatar TEXTBOX como DATA *RESOLVIDO*

Enviado: Sáb Nov 09, 2019 11:37 am
por Reinaldo
Russo,
conforme sua MP na planilha continua invertendo mês/dia ao salvar quando mês e dia são inferiores a 12.
Assunto corriqueiro, pela maneira que o VBA manipula datas internamente
;preferência pelo formato americano mmddyyyy. Como um Textbox, por default fornece seu dado/conteudo como texto, ao salvar o editor vbe "tenta" compatibilizar esse conteudo com formatos conhecidos; assim deve-se informar ao editor qual o formato esperado.
A proposta que lhe sugeri, está na rotina que insere os dados na planilha; além da alteração na configuração dos textbox datas, via classe, para diminuir um pouco as linhas de codigo:

Código: Selecionar todos

Private Sub lsInserir(ByRef lTextBox As Variant, ByVal chamados As String, ByVal A As Long, ByVal lUltimaLinha As Long)
    If (TypeOf lTextBox Is MSForms.TextBox) Or (TypeOf lTextBox Is MSForms.ComboBox) Then
            
            If lTextBox.Tag = "B" Or lTextBox.Tag = "E" Or lTextBox.Tag = "G" Then
                Sheets(chamados).Range(lTextBox.Tag & lUltimaLinha).Value = CDate(Format(lTextBox.Text, "dd/mm/yyyy"))
            Else
                Sheets(chamados).Range(lTextBox.Tag & lUltimaLinha).Value = lTextBox.Text
            End If
    Else
        If TypeOf lTextBox Is MSForms.OptionButton Then
            If lTextBox.Value = True Then
                Sheets(chamados).Range(lTextBox.Tag & lUltimaLinha).Value = lTextBox.Caption
            End If
        End If
    End If
End Sub
A alteração está na linha onde consta ..cdate(....); o que em seu modelo/exemplo supriu/corrigiu a demanda
Como informou que ainda háinversão de datas Verifique:
Se aplicou a alteração corretamente;
Se os campos datas em seu projeto oficial estão com as Tag's "B" / "E" / "G";
Configuração da coluna(s) data(s) na planilha;
Configuração de datas no painel do windows;
Caso nãoconsiga evoluir disponibilize seu modelo oficial para uma analize mais condizente