Jump to content

Turbo Filtro


Gerson Pineda

Recommended Posts

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

  • 2 months later...
  • 3 weeks later...
  • Crear macros Excel

  • Posts

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy