Turbo Filtro

[Gerson Pineda]

Hola nuevamente, esta vez les mencionare que hay una excelente alternativa en filtros de datos de modo avanzado y a la cual se le denomina Turbo Filtro, hasta donde se los creditos pertenecen a Torsten Harden asi que espero sea de utilidad y cualquier comentario pues lo hacen porfavor

[Hasta donde se no lo he visto por aqui en nuestro foro]

Saludos desde Honduras

Turbo filtro.zip

[Antoni]

Hola Gerson:

Todavía estoy con la boca abierta, es impresionante, me lo guardo en el baúl de imprescindibles.

Saludos. Antoni.

[ANGELO PILA]

Hola

Gerson, recibe un cordial saludo y ademas felicitarte por los varios aportes que realizas a los miembros del foro.

gracias

A.P

[juegomal]

que bueno que está!

como hago para pasarlo a una base de datos de personas que ya tengo por ejemplo?

[German]

Muy buen aporte Gerson, que lastima que no me lo dieras esta mañana para un post que me ha vuelto loco, jejejejejeje, creo me hubiera venido de maravilla, todavía aun creo no está resuelto del todo, aunque yo ya lo dejé por imposible, no sé si será por culpa mía que no le entiendo o me explico bien, o del compañero que pregunta.

Bueno enhorabuena por tu trabajo.

Recibe un cordial saludo y un fuerte abrazo, Germán.

[sailepaty]

Algo hay al respecto en el foro de Galileo.

TURBO FILTRO

Saludos

[juegomal]

Lo que yo pregunto es como hacer para usar ese filtro en una base de datos que ya tengo creada.

como traslado ese filtro a otro excel ?

Saludso

[Gerson Pineda]

Hola Antoni pues me agrada que te haya impresionado, Angelo gracias por tus palabras, German te agarre en curva {te sorprendi} visita mas seguido mi blog te lo recomiendo jejeje, juegomal abre un tema para tu consulta porfavor y relaciona si deseas este tema con el tuyo

Mencionar que a este Turbo filtro solo le hice unas pequeñas modificaciones para subirlo y quedo bien al parecer.... pues para no abrir otro tema y seguir aportando, adjunto otro muy similar, ya que es una macro de evento...

Este es el codigo:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False

    On Error Resume Next
    Range("B4").CurrentRegion.AdvancedFilter 1, _
    Range("B1").CurrentRegion

    Application.ScreenUpdating = True

End Sub
[/PHP]

Puede notar que es muy sencilla la macro, pero si efectiva y practica, con esta la unica diferencia es que deben ingresar el asterisco manualmente, por ejemplo en B2 asi: *t* y la macro actuara filtrando automaticamente los datos

Espero sea tambien de mucha utilidad

Saludos desde Honduras

Turbo filtro_.zip

[Cgr1964]

Hola Gerson el aporte realmente es muy bueno gracias por compartirlo con los demás.

El único inconveniente que le encuentro, es que cada vez que ingresas un nuevo item en la base de datos el cursor vuelve a la celda "b3" y si este ingreso de datos es muy frecuente el trabajo resulta tedioso.

Gracias de nuevo.

[tuve]

Hola Gerson el aporte realmente es muy bueno gracias por compartirlo con los demás.

El único inconveniente que le encuentro, es que cada vez que ingresas un nuevo item en la base de datos el cursor vuelve a la celda "b3" y si este ingreso de datos es muy frecuente el trabajo resulta tedioso.

Gracias de nuevo.

Podrías solucionarlo con algo asi:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim CeldaTemp As String

    CeldaTemp = ActiveCell.Address


'___Código


    Range(CeldaTemp).Select

End Sub[/CODE]

[Cgr1964]

Perdona tuve, he pegado tu código tal que así:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

On Error Resume Next

Range("B4").CurrentRegion.AdvancedFilter 1, _

Range("B1").CurrentRegion

Range("B2").Select

Application.ScreenUpdating = True

Dim CeldaTemp As String

CeldaTemp = ActiveCell.Address

'___Código

Range(CeldaTemp).Select

End Sub

Y no me funciona.

[JAI2009]

Gracias Gerson por tu aporte, me parece pero que muy bueno, lo voy a plicay pero ya a mi fichero

Pdta,. cual es la direccion de tu bloc

un saludo

[tuve]

Perdona tuve, he pegado tu código tal que así:

Y no me funciona.

Es que has definido la dirección de la celda actual después de aplicar el filtro (cuando ya habías seleccionado la celda B2).

Prueba esto:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim CeldaTemp As String

    CeldaTemp = ActiveCell.Address


    Application.ScreenUpdating = False


    On Error Resume Next

    Range("B4").CurrentRegion.AdvancedFilter 1, _

    Range("B1").CurrentRegion


    Range(CeldaTemp).Select


    Application.ScreenUpdating = True

End Sub[/CODE]

[Gerson Pineda]

Hola Tuve, gracias por la macro

Gracias Gerson por tu aporte, me parece pero que muy bueno, lo voy a plicay pero ya a mi fichero

Pdta,. cual es la direccion de tu bloc

Hola JAI2009 en mi firma esta el enlace...

Saludos a todos

[tuve]

Hola Tuve, gracias por la macro

No, gracias a ti, la macro es tuya.

Sólo añadí una sugerencia a lo que comentaba Cgr1964.

P.D. Acabo de comprobar que funciona igual que esto (a veces la solución más sencilla es la correcta):

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False


    On Error Resume Next

    Range("B4").CurrentRegion.AdvancedFilter 1, _

    Range("B1").CurrentRegion


    Application.ScreenUpdating = True

End Sub[/CODE]

[himself]

Exelente aporte, muy interesante y practico. Agregado al baul.

Gracias por los codigos agregados, muy buenos y didacticos.

Gracias por compartirlos.

[Enri40]

Hola, muy buen aporte.

Sería posible que buscara por fecha, me vendría genial.

Gracias

[josemaria]

Hola;

no habia visto este post hasta hoy, y me habia perdido algo genial, muy bueno gerson

Un saludo.

Jose maria.