Jump to content
Sign in to follow this  
Maria_80

macro filtro con varias condiciones

Recommended Posts

Hola, Estoy con una macro donde tengo que filtrar por varias condiciones una tabla y de momento solo he sabido añadir dos de ellas.

 

Necesito Filtrar la tabla por TIPO = CONSUMO Y ESTADO <> STOCK Y además decirle que me filtre por TIPO = SERVICIOS O PRODUCTOS independientemente del Estado.

 

He sabido filtrar por lo primero, pero no sé cómo decirle la segunda parte. Os adjunto un ejemplo. Muchas gracias!

 

 

ejemplofiltro (1).7z

Share this post


Link to post
Share on other sites
19 minutes ago, Antoni said:

Para hacer lo que buscas, tienes que recurrir a un filtro avanzado.

A la tarde, si tengo un rato, le echo un vistazo.

Genial, gracias Antoni. Lo hice con un with y le metí las dos primeras condiciones, no sé añadir el resto... gracias!

Share this post


Link to post
Share on other sites

He añadido las hojas CRITERIOS y FILTRO, si quieres puedes unificarlo todo en una sola hoja.

Abre el adjunto y pulsa sobre la flecha azul.

Sub FiltroAntoni() 'Vale para cualquier rango y criterios
With Sheets("ALMACEN")
   If .FilterMode Then .ShowAllData
   .Range("A1").CurrentRegion.AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=Sheets("CRITERIOS").Range("A1").CurrentRegion, _
         CopyToRange:=Sheets("FILTRO").Range(.Range("A1").CurrentRegion.Address)
End With
Sheets("FILTRO").Select
End Sub

 

Filtro Antoni.xlsm

Edited by Antoni

Share this post


Link to post
Share on other sites
16 hours ago, Antoni said:

He añadido las hojas CRITERIOS y FILTRO, si quieres puedes unificarlo todo en una sola hoja.

Abre el adjunto y pulsa sobre la flecha azul.


Sub FiltroAntoni() 'Vale para cualquier rango y criterios
With Sheets("ALMACEN")
   If .FilterMode Then .ShowAllData
   .Range("A1").CurrentRegion.AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=Sheets("CRITERIOS").Range("A1").CurrentRegion, _
         CopyToRange:=Sheets("FILTRO").Range(.Range("A1").CurrentRegion.Address)
End With
Sheets("FILTRO").Select
End Sub

Gracias Antoni, voy a ver si lo unifico y puedo añadirlo a mi macro sin usar la hoja de criterios. En el fichero original donde trabajo no puedo añadir esa hoja auxiliar. Pero lo que hiciste funciona perfecto. Es otra opción? O es la única que existe para este tipo de casos? Gracias.

Filtro Antoni.xlsm 18.71 kB · 4 downloads

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy