Filtro em textbox

[Tony_carlos]

Preciso fazer filtro de datas apartir de textbox, ou seja, tenho dois textbx, onde no

textbox1. eu digito a data inicial, (maior our igual 01/01/09) e no segundo (menor ou igual 30/01/09), essa informação faça o filtro na plan2, coluna c, onde consta a coluna data, apos pegue essas informações (que foram filtradas e jogue na plan3.

[JoséA]

Teste assim:

Sub PESQUISA()
  Application.EnableEvents = False
        Dim lastRow As Long
        Dim lastResultRow As Long
        Dim X As Long
        ' Verifica qual a ultima célula preenchida
        lastRow = Plan2.Cells(Rows.Count, 1).End(xlUp).Row
        ' Apaga valores anteriores
        Plan3.Range("A2:AE65536").ClearContents
        lastResultRow = 2 'linha resultado
        ' Ciclo em todas as linhas
        For X = 2 To lastRow '1 Linha dados pequisa
           ' verifica se o valor é igual ao da pesquisa
           If Plan2.Cells(X, 3).Value >= CDate(TextBox1) And Plan2.Cells(X, 3) <= CDate(TextBox2) Then '1 coluna pequisa
                ' Copia os valores
                Plan3.Cells(lastResultRow, 1).Value = Plan2.Cells(X, 1).Value
                Plan3.Cells(lastResultRow, 2).Value = Plan2.Cells(X, 2).Value
                Plan3.Cells(lastResultRow, 3).Value = Plan2.Cells(X, 3).Value
                Plan3.Cells(lastResultRow, 4).Value = Plan2.Cells(X, 4).Value
                lastResultRow = lastResultRow + 1
           End If
        Next
    Application.EnableEvents = True
End Sub

Aqui p/ 04 colunas adapte aí.