Filtro no userform

[Tony_carlos]

Tenho uma planilha que criei, sou iniciante e gostaria que se alguém puder dar uma olhada peço postar o e-mail que encaminho.

Fiz um form com 2 txt e um botão, nos txt's eu digito uma data inicial e no outro data final, onde ao clicar no botão, é feito um filtro na coluna que tem a data.

A rotina executa sem erros, porém fica tudo em branco, e na coluna do auto filtro fica com a marquinha em azul marcando que foi filtrado, quando você clica na marca azul do filtro e vai em personalizar está tudo correto conforme a rotina, e se você clica em Ok, faz o filtro.

Se alguém tiver alguma dica ou quiser passar o e-mail eu encaminho a planilha

Grato

Editado Outubro 16, 2009 por Jonathan Queiroz
Remover caixa alta do título e conteúdo (Jonathan)

[Jonathan Queiroz]

Peço que evite a postagem em caixa alta, conforme a regra 3.7 (ver regras).

3.7 Ao postar uma mensagem, procure usar o tamanho de fonte padrão do fórum, não deixando as letras grandes ou pequenas demais; evite o uso de cores fortes, as quais prejudicam a leitura, e não insira textos totalmente em caixa alta (ESTE É UM TEXTO EM CAIXA ALTA). Tópicos que violarem essa regra serão editados sem prévio aviso.

Seria interessante também que postasse o código aqui no fórum e, se houver necessidade, upar a planilha para algum servidor. Assim fica mais fácil de ajudá-lo, pois não haverá necessidade de aguardar o envio do e-mail. Além disso, ajuda quem estiver com uma dúvida parecida por deixar a solução exposta no fórum.

[JoséA]

Deve ser porque o textbox não teve sua formatação convertida para data, tente colocar assim:

CDate(Textbox)

Aqui segue um link de pesquisa com datas muito bom, criado por Felipe Dassi.

PesquisaDatas

Editado Outubro 17, 2009 por JoséA

[Tony_carlos]

Segue abaixo a rotina:

essa rotina não dá erro, porem ao ativar ela atraves do botão, ela executa, mas o filtro fica em branco, e se você for manualmente em personalizar vai estar correto a informação e é só cliccar em ok, faz o filtro...

Private Sub CommandButton1_Click()

Application.DisplayAlerts = False

Application.ScreenUpdating = False

If TextBox2.Text = "" Or TextBox3.Text = "" Then

MsgBox ("Favor preencher os dois campos")

Else

Dim valor2 As String

Dim valor3 As String

valor2 = Format(TextBox2.Text, "dd/mm/YY")

valor3 = Format(TextBox3.Text, "dd/mm/yy")

Plan2.Activate

Range("a2").Select

valor2 = valor2

valor3 = valor3

Selection.AutoFilter Field:=5, Criteria1:=">=" & valor2, Operator:=xlAnd, Criteria2:="<=" & valor3

Range("a2").Select

End If

Plan2.Activate

Application.Calculate

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

[JoséA]

Sugetões possíveis:

1 - Format toda coluna de datas como data, talvez estejam como texto;

2 - Coloque o textbox's assim:

valor2 = CDate(TextBox2)
valor3 = CDate(TextBox3)

3 - Disponha seu arquivo.