Estou desenvolvendo uma macro para realizar filtros utilizando o VBA, entretanto em algumas colunas, tenho que desmarcar alguns valores, por exemplo:
- Coluna
- Paulo
- Fernanda
- Carla
- Láis
- Renata
Eu quero tudo que seja diferente de Paulo, Fernanda e Renata. Como posso fazer isso?
Criei um macro que funciona com dois valores, caso eu coloco um só ocorre um erro, segue abaixo o código:
c = 1
Do While c <= coluna
If MyRange = Cells(1, c) Then
filtrocomp = InputBox("Qual o operador de comparação?" & vbCrLf & "Ex: <,<=,=,>,>=,<>", "Comparação_MAF")
filtro = InputBox("Qual o filtro de " & MyRange & " Deseja aplicar?", "Comparação_MAF")
If filtrocomp <> "" Or filtro <> "" Then
filtrosArray() = Split(filtro, ",")
Val (filtrosArray(0))
Cells(1, c).Select
Selection.AutoFilter Field:=c, Criteria1:=filtrocomp & filtrosArray(0), Operator:=xlAnd, _
Criteria2:=filtrocomp & filtrosArray(1)
Exit Do
Else
MsgBox "Nenhum filtro foi realizado!!", vbInformation, "Comparação_MAF"
End If
End If
c = c + 1
Loop