ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[Resolvido] separar a Data com barras "/" no txtBox.Text

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

[Resolvido] separar a Data com barras "/" no txtBox.Text

Mensagem por Mathmatic » Dom Mar 01, 2020 2:59 pm

Saudações,

Tenho em anexo uma planilha de filtro automático com o uso de botões txtBox.Text

gostaria de separar automaticamente os dígitos das Datas digitadas na coluna G com barras "/"

a linha atual do código vba da planilha para Datas na coluna G é o seguinte:

Código: Selecionar todos

Selection.AutoFilter Field:=7, Criteria1:=">=" & Format(txtData.Text, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(txtAte.Text, "mm/dd/yyyy")
Mas ao digitar as Datas no txtData.Text, preciso digitar manualmente as barras "/" divisórias dos dígitos.

Teria como essas barras "/" ocorrer automaticamente quando eu digitar as Datas ?

tentei usar a explicação do seguinte tópico: Link, Mas não obtive sucesso.

Agradeço desde já por toda ajuda dos senhores.
Anexos
Filtro automático_2.rar
(50.24 KiB) Baixado 68 vezes
Editado pela última vez por Mathmatic em Dom Mar 08, 2020 12:02 am, em um total de 2 vezes.


Mathmatic

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Re: separar os dígitos da Data com barra "/" no txtBox.Text

Mensagem por Mathmatic » Qua Mar 04, 2020 7:03 pm

estava tentando aplicar os conhecimentos do amigo Reinaldo que está neste exemplo aqui

mas, mesmo seguindo o exemplo dele, não consegui fazer com que o txtBox.Text receba as Datas (dia/mês/ano) separadas por barras "/"

se alguém tiver uma solução, agradeço desde já.


Mathmatic

Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1423
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: separar a Data com barras "/" no txtBox.Text

Mensagem por Reinaldo » Sáb Mar 07, 2020 5:21 pm

Experimente algo +/- assim
Para data inicial

Código: Selecionar todos

Private Sub txtData_Change()
    If Me.txtData.SelStart = 2 Then Me.txtData.SelText = "/"
    If Me.txtData.SelStart = 5 Then Me.txtData.SelText = "/"
End Sub
Data Final

Código: Selecionar todos

Private Sub txtAte_Change()
If Me.txtAte.SelStart = 2 Then Me.txtAte.SelText = "/"
If Me.txtAte.SelStart = 5 Then Me.txtAte.SelText = "/"
If Len(txtAte.Text) = 10 Then
    If txtData.Text <> "" And IsDate(txtData.Text) And IsDate(txtAte.Text) Then
      Selection.AutoFilter Field:=7, Criteria1:=">=" & Format(txtData.Text, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(txtAte.Text, "mm/dd/yyyy")
    Else
      Selection.AutoFilter Field:=7
    End If
End If
End Sub


Reinaldo
:oops: :D :mrgreen: :geek:

Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

[Resolvido] separar a Data com barras "/" no txtBox.Text

Mensagem por Mathmatic » Dom Mar 08, 2020 12:01 am

sr. Reinaldo,

funcionou perfeitamente .... :)

mais uma vez, o meu muito obrigado... :)


Mathmatic

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder