Página 1 de 1

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

Enviado: Dom Mar 01, 2020 2:59 pm
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.

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

Enviado: Qua Mar 04, 2020 7:03 pm
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á.

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

Enviado: Sáb Mar 07, 2020 5:21 pm
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

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

Enviado: Dom Mar 08, 2020 12:01 am
por Mathmatic
sr. Reinaldo,

funcionou perfeitamente .... :)

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