Filtro con macro

[vulkatho]

Hola comunidad estoy buscando ayuda para un predicamento , estoy tratando de automatizar un proceso que realizo a diario y lo que quiero es que la macro filtre la base y si en la base no hay criterio,debe validar otro criterio de la base en otra columna y asi sucesivamente.

Pongo el codigo de lo que encontre para saber si esto me sirve ya que no entiendo muy bien como funciona

Sub Filtrar()

Se define el criterio para filtrar. Pero si este no existe criterio que pasa

criterio = [B1]

Entiendo que aca se hace un si que si el criterio es vacio pues creo que solo filtra, o sea que en este paso podria colocar el segundo validador?

If criterio = “” Then

Selection.AutoFilter

En esta paso creo que si el criterio es diferente a "" filtra segun el parametro que este en b1. Aca basicamente quiero que lo que encuentre con este criterio lo copie y lo pegue en otra hoja pero eso lo se hacer y despues se devuelva a la hoja inicial y elemine lo que esta en esa base y despues prosiga con el validador dos. No se si hay que meterlo en otro if o como seria el tema.

Else

Selection.AutoFilter Field:=1, Criteria1:=criterio

End If

Y ahora no veo como determinar que si en la base de datos no hay los criterios pues no entre a realizar cada validacion.si no que sigua con la siguiente accion que es crear un libro nuevo por cada criterio que tenga en la base de datos

[Mauricio_ODN]

Intenta con Select Case, podria ser una posible solución, aun que me gustaria ver tua rchivo para ayudarte un poco mas!!

 

Buen Día