Jump to content
Sign in to follow this  
Gerson Pineda

Turbo Filtro

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

Share this post


Link to post
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.

Share this post


Link to post
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

Share this post


Link to post
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.

Share this post


Link to post
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]

Share this post


Link to post
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.

Share this post


Link to post
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]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
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]

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


CTA Templates.png