Máximos colaboradores

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

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]

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]

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]

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