Excel Filtro em VBA não executa, porém no manual vai

[Bruno Rimoldi]

Boa noite pessoal,

não entendo por que o filtro que fiz em VBA não consegue executar os critérios e ele não encontra os resultados.
Quando eu DEBUGO e passo da linha dos critérios o VBA não encontra, daí se eu faço na mão, do ponto que parou a macro, ele reconhece.
Segue o código e um exemplo do arquivo sem o código.
OBS.: É na linha 13 que a macro não reconhece (.[A1:AW1].AutoFilter Field:=33, Criteria1:=">=0,079500001", Operator:=xlAnd, Criteria2:="<=0,080499999")

 

Sub ProcessoI()
Dim LR As Long
Application.ScreenUpdating = False
  With ActiveSheet
   LR = Cells(Rows.Count, 1).End(3).Row
   .AutoFilterMode = False
   .[A1:AW1].AutoFilter Field:=4, Criteria1:="<>"""""
    If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
     .Range("AW2:AW" & LR) = "=RC[-20]-(RC[-17]/0.16)-(RC[-15]/0.16)"
    End If
   .AutoFilterMode = False
 
   .[A1:AW1].AutoFilter Field:=33, Criteria1:=">=0,079500001", Operator:=xlAnd, Criteria2:="<=0,080499999"
    If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
     .Range("AW2:AW" & LR) = "=RC[-20]-(RC[-17]/0.08)-(RC[-15]/0.08)"
    End If
   .AutoFilterMode = False
 
End With
Application.ScreenUpdating = True
End Sub

Obrigado,

Bruno Rimoldi

Plan_Teste_Sem Codigo.xlsx

[Visitante]

 

1, substitua vírgula por ponto, conforme em vermelho abaixo

0.079500001 e 0.080499999

 

2. Criteria1:="<>""""" ~~~>   se a sua ideia é filtrar diferentes de vazio ~~~> Criteria1:="<>"

 

3. ao postar a questão em mais de um fórum é desejável que você informe isso e coloque os respectivos links cruzados

 

[Bruno Rimoldi]

@osvaldomp  Muito obrigado pela ajuda... Eu postei no outro fórum porque estava desesperado e tenho prazo estourando. Mas vou citar a ajuda e encerrar o outro tb....