none
Ajuda com function. RRS feed

  • Pergunta

  • Ola.

    Gostaria de inserir esse criterio de pesquisa nesse filtro abaixo.

    Sub Filtrar()
    Plan2.Range("a2:b65000").ClearContents
    Plan1.Activate
       Plan1.Columns("A:A").Select
        Plan1.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Plan2.Columns("A:A"), Unique:=False

        Criteria1 = ">=01/01/2012 e <=30/01/2012"     >gostaria de pesquisar na coluna so as datas referentes a janeiro

        Range("C1").Select
        Plan2.Activate

     Plan2.Range("A2:B65000").Sort Plan2.Range("a2"), xlAscending
    End Sub

    Tentei com cdate ja mas nao obtive exito.

    sábado, 28 de abril de 2012 23:40

Respostas