Adicionar Critério em Filtro(VBA)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Adicionar Critério em Filtro(VBA)

Mensagem por alexandrevba em Qua Abr 30, 2014 9:25 pm

Boa noite!!

Considerando um campo filtrado, como adicionar mais um critério.
Código:
Sub Adicionar_Creiterio_Filtro()
'Considerando que o campo 6, está filtrado, inclui no filtro mais um critéio
'http:///1007842-add-autofilter-criteria-vba.html
    Dim Crit1 As String
    Dim Crit2 As String
    Dim Field As Long
   
        Field = 6
       
        With ActiveSheet.AutoFilter.Filters(Field)
            If .On Then
                Crit1 = .Criteria1
                Crit2 = "=Fusca"
                Cells(1, Field).AutoFilter Field, Crit1, xlOr, Crit2, True
            End If
        End With
       
End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum