Notifications
Clear all

Revisão Filtro Seletivo

6 Posts
2 Usuários
0 Reactions
1,049 Visualizações
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Boa tarde
São dois filtro independentes e é bastante seletivo(anexo) e funciona com alguma deficiência mas já funcionou certinho. O funcionamento: Marca-se, com um "x" (critério) e a filtragem ocorre em outras colunas, transportando para a plan filtrados o resultado.
Grato

 
Postado : 12/05/2013 10:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Porque não inserir as formulas via VBA, após o Reset??

Option Explicit
 
Sub Inserir_ArrastarFormulas()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
     
    Range("A1").Formula = "=SuaFormula(lembre se em VBA, o separador de parametro é a virgula -> , <-"
    Range("A1").AutoFill Destination:=Range("A2:A" & lastrow)
     
    Application.ScreenUpdating = True
End Sub

Att

 
Postado : 12/05/2013 5:08 pm
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Alexandrevba, não entendi?

 
Postado : 12/05/2013 8:07 pm
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Alguem ajuda, aew

 
Postado : 13/05/2013 11:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente incluir no final da rotina RESET --> Application.Calculate

Sub Reset_Filtros()
    Dim Intervalo1 As Range
    Dim Intervalo2 As Range
    Dim Intervalo3 As Range
    Dim Intervalo4 As Range
    Dim Intervalo1b As Range
    Dim Intervalo2b As Range
    Dim Intervalo3b As Range
    Dim Intervalo4b As Range
    
    Set Intervalo1 = [BT7].Resize(1000, 3)
    Set Intervalo2 = [BW7].Resize(1000, 3)
    Set Intervalo3 = [CT7].Resize(1000, 3)
    Set Intervalo4 = [CW7].Resize(1000, 3)
    Set Intervalo1b = [BQ7].Resize(1000, 3)
    Set Intervalo2b = [BZ7].Resize(1000, 3)
    Set Intervalo3b = [CQ7].Resize(1000, 3)
    Set Intervalo4b = [CZ7].Resize(1000, 3)
    
    Application.EnableEvents = False
        Intervalo1.ClearContents
        Intervalo2.ClearContents
        Intervalo3.ClearContents
        Intervalo4.ClearContents
        Intervalo1b.Interior.Color = vbWhite
        Intervalo2b.Interior.Color = vbWhite
        Intervalo3b.Interior.Color = vbWhite
        Intervalo4b.Interior.Color = vbWhite
    Application.Calculate
    Application.EnableEvents = True
End Sub
 
Postado : 13/05/2013 12:57 pm
(@dimorais)
Posts: 431
Honorable Member
Topic starter
 

Boa noite
Apesar de não ter entendido a solução do alexandrevba :roll: , a do Reinaldo resolveu a 1ª parte do problema :lol: . Pessoal, tenho nessa Plan dois filtros que funcionam parcialmente. Como já havia dito, depois de aplicado, os filtros copiam os valores numéricos atendendo os parâmetros "x". O problema é que apenas alguns desses valores depois de filtrados são copiados para a planilha Filtrados. Uso o mesmo tipo de filtro em outra planilha e o funcionamento é normal. Os dois filtros usados nas planilhas só diferem em relação aos intervalos, onde são aplicados, o código é 100% igual a esse que apresenta problemas. Peço a gentileza dos Srs. para a solução desse "probleminha" :D

Grato

 
Postado : 13/05/2013 7:48 pm