Autofiltro con criterios condicionales if then

[Ivan Silva]

Buenas Tardes a todos,

Soy nuevo en programación de Excel y he estado realizando un autofiltro con 2 Criterios. Lo que necesito es crear If Then con el primer criterio, si mi criterio1 no existe entonces que se muestre una caja de dialogo, mi codigo es así:

For i = 149 To 185

Range("I7:I55").Select

Selection.AutoFilter

ActiveSheet.Range("$I$7:$I$55").AutoFilter Field:=1, Criteria1:=i, _

Operator:=xlOr, Criteria2:="=TAL"

If Criteria1 = False Then MsgBox "No existe Criterio " & i

Next

Intenté subir mi archivo, pero no me lo permite, espero me puedan ayudar

[elunico22]

Hola:

Sube tu archivo comprimido en .zip y .rar.

Saludos

[Ivan Silva]

Aquí se encuentra m archivo.

AutoFilter.zipFetching info...