publicado el 24 de agosto9 años 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
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