Jump to content
Alexmoon

Macro filtrar de una hoja a otra

Recommended Posts

Buenos dias

No se si me puedan ayudar, lo que quiero intentar hacer es que al darle click a una celda en este caso la de "folio de alta de productos" en la pestaña "folios vencidos" me filtre en la hoja "seguimiento" ese valor. E intentado haciendo un filtro con doble click pero no e entendido como hacer para trasladar esta función a otra hoja y también lo intente grabando una macro pero no e tenido mucha suerte.

espero puedan apoyarme

Prueba.xlsm

Link to post
Share on other sites

Gracias por tu apoyo Mauricio

Sin embargo lo que busco es que al seleccionar el folio "folios vencidos" (haciendo doble click) me lleve a la hoja de "seguimientos" y ahí haga el filtro

al grabar la macro me da algo de la siguiente forma:

Range("A3").Select
    Selection.Copy
    Sheets("Seguimiento").Select
    ActiveSheet.Range("$A$1:$R$287").AutoFilter Field:=4
    ActiveSheet.Range("$A$1:$R$287").AutoFilter Field:=4, Criteria1:= _
        "Jul-0008-20"

Aqui por lo que entiendo seria activar la función para que en el rango de A en "folios vencidos" al hacer doble click se active la macro que por lo que e visto es algo de la forma:

Dim rngTable As Range
Dim rngData As Range
Dim intColumn As Integer

    On Error Resume Next

    Application.ScreenUpdating = False
    Set rngTable = Range("A2:A15")
    Set rngData = rngTable.Offset(1, 0).Resize(rngTable.Rows.Count - 1, rngTable.Columns.Count)

    If Not Application.Intersect(ActiveCell, rngData.Cells) Is Nothing Then

        intColumn = ActiveCell.Column - rngTable.Column + 1

Y lo otro que no entiendo del todo es como hacer que al filtrar el criterio sea el folio sea el que seleccione, porque al grabar la macro esta graba un criterio fijo, y al modificar la macro grabada esta no se ejecuta.

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.




×
×
  • Create New...

Important Information

Privacy Policy