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.
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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