Notifications
Clear all

Filtro entre critérios de datas e valores

3 Posts
1 Usuários
0 Reactions
626 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, boa tarde!

Na planilha anexada os filtros funcionam conforme pretendido, mas quero adicionar outros critérios, que seriam: o intervalo entre datas e valores, na mesma lógica do filtro implementado. Gostaria de buscar entre: "F2" à "F3" e/ou "G2" à "G3", "H2" à "H3", "I2" à "I3".

O que é ocorre é que se eu digitar entre A2 e U2 um ou mais critérios, tenho os resultados esperados, mas como eu faria nesse código para que, nos campos descritos acima, o filtro trabalhasse com as condicionais de data e valores?

Por exemplo: Emissão (F2/F3), ele buscar entre 05/08/13 à 08/08/13 e ou/ do mesmo modo com o vencimento e assim com os valores (digamos, entre R$ 200,00 e 2000,00).

Quero manter a forma de busca do filtro implementado, mas adc estes critérios.

Att, Pedro.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2013 1:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu não sei, se eu entendi.

Sub AleVBA()
    Dim lngStart As Long, lngEnd As Long
     Dim rdata As Range, filt As Range
    lngStart = Range("F2").Value
    lngEnd = Range("F3").Value
   
   
   Sheets("CTSPAGRECEB").Range("A1:V1000").Clear
    Sheets("Filtro").Activate
    Range("C6:V1000").AutoFilter Field:=4, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
        
 Worksheets("Filtro").UsedRange.SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Worksheets("CTSPAGRECEB").Range("A1")
    
 
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2013 8:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

AlexVba, obrigado pela atenção, mas houve uma inversão nesse arquivo resposta. A planilha base é a de CTSPAGRECEB, a de filtro é onde busco conforme critérios. Sendo que tava tudo certinho. Os filtros que desejei deram o resultado esperado, usando um ou mais critérios, que se estendem ao longo do intervalo: C2:V2. Mas eu gostaria de F3:I3 incrementar o filtro do seguinte modo: nas datas ele buscar considerando o intervalo entre F2:F3 e assim para os demais, e ao chegar em I2:I3, intervalo de valores. Tá tudo funcionando como espero, quero apenas poder contar com esse lance de intervalo. Se vc voltar ao arquivo original que postei e testar um critério ou mais vai ver que o filtro funciona sem erro algum, mas veja se me ajuda a implementar intervalo de datas e valores, dentro das células especificadas, mantendo a estrutura do filtro já montado. Tem algum ajuste no código que não consigo visualizar que me traria estes resultados.

Qq dúvida qto ao q pretendo, me aciona novamente.

Falow!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2013 10:41 pm