Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[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 »

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 180 vezes
Editado pela última vez por Mathmatic em Dom Mar 08, 2020 12:02 am, em um total de 2 vezes.


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 »

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á.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
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 »

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


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 »

sr. Reinaldo,

funcionou perfeitamente .... :)

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


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