CRIAR UMA MACRO PARA EXECUTAR UM FILTRO DE CAMPO DATA, COM BASE NO CRITÉRIO DIGITADO EM UMA CÉLULA QUALQUER

Question

EXEMPLO

A1= 21/09/2011 BOTAO PARA ACIONAR A MACRO

DESPESAS            DATA                   VALOR               DATA PGTO           VALOR PGTO

                                                                                      10/09/2011

                                                                                       11/09/2011

                                                                                        12/09/2011

21/09/2011

21/09/2011

UTILIZAR ESTE FILTRO TANTO NA TABELA NORMAL COM NA TABELA DINAMICA, ALQUEM SABE COMO DEVO PROCEDER?

DESDE JÁ AGRADEÇO!!!

GENELSON MARQUES

Answer 1

Ponha em A1 o cabeçalho DATA PGTO (idêntico ao cabeçalho da coluna D)

Em A2 entre com a data de interesse (21/09/2011)

Supondo seus dados em A4:E9 (cabeçalhos na linha 4)

Use esta macro (associe ao botão)

Sub Filtra()

    Range("A4:E9").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

        Range("A1:A2"), Unique:=False

End Sub

Ajuste o Range("A4:E9") para o seu caso real

Espero que ajude

M.

Answer 2

Supondo sua planilha assim

A B C D E

	CIDADE/SETOR			DATA PGTO
	A			21/09/2011
DESPESAS	CIDADE/SETOR	DATA	VALOR	DATA PGTO
	A			10/09/2011
	B			11/09/2011
	C			12/09/2011
	D			21/09/2011
****	A			21/09/2011

Critérios nas linhas 1 e 2

Dados em A4:E9

Experimente esta macro

Sub aTestFiltro2()

    With ActiveSheet

        .AutoFilterMode = False

        .Range("$A$4:$E$9").AutoFilter Field:=2, Criteria1:=Range("B2").Value

        .Range("$A$4:$E$9").AutoFilter Field:=5, Operator:= _

        xlFilterValues, Criteria2:=Array(2, Format(Range("E2").Value, "mm/dd/yyyy"))

    End With

End Sub

M.

Answer 3

DESPESAS  CIDADE/SETOR           DATA                   VALOR        DATA O                            A                                                                    10/09/2011

                               B                                                                    11/09/2011

                               C                                                              12/09/2011

                               D                                                             21/09/2011

A                                                          21/09/2011

IMAGINEMOS QUE ANTES DE CLICAR NO BOTÃO  PARA FILTRAR POR DATA DIGITADA EM A2,EU  FILTREI O FIELD =2 CRITERIO= A(OU SEJA CIDADE/SETOR), GOSTARIA DE MANTER ESTE FILTRO E AS SETAS INDICADOR DE FILTRO NOS CAMPOS DA TABELA, POIS AS SETAS INDICADORES DE FILTRO SOME É DESABILITADO.

AGRADEÇO PELA ATENÇÃO

GENELSON MARQUES

Answer 4

Só sabendo quais os filtros anteriores para aplicá-los de uma vez só, junto com este último, pelo VBA

M.

Answer 5

Obrigado pela ajuda deu certo,so que tem um porém, o autofiltro fica desabilitado

e os filtros anteriores que fiz são limpados automaticamente, tem como manter os

filtros anteriores e fazer novos filtros manualmente?

Desde já agradeço pela atenção

Genelson Marques