Saltar al contenido

Máximos colaboradores

Popular Content

Showing content with the highest reputation on 12/24/20 in Mensajes

  1. 1 point
    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
  2. 1 point
    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]
  3. 1 point
    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]
  4. 1 point
    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]
  5. 1 point
    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