Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Ayuda con macro para filtro.

Raúl Aguilar

Active member
Registrado
22 Feb 2021
Mensajes
151
Buenas tardes.

Quería haceros una consulta a ver si podéis echarme una mano.

Tengo una tabla donde hay filas con datos y otras en blanco (me interesa que tenga filas en blanco) sobre la que hago...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Código:
Sub Borrarfiltro_Enero()

Sheets("Enero").Select
ActiveSheet.Unprotect Password:="clara"

With ActiveSheet
  Application.Goto Range("Enero")(2)
  On Error Resume Next: ActiveSheet.ShowAllData
  .Select
End With
Hoja12.TextBox8 = ""
Range("b16").AutoFilter Field:=13, Criteria1:="si" '<-----------------------------
Sheets("Enero").Select
ActiveSheet.Protect Password:="clara"

End Sub

Adjuntos

  • 1615397562260.webp
    1615397562260.webp
    66,7 KB · Visitas: 9
Buenas de nuevo.

Antoni, quería preguntarte respecto al código que mandaste (y que funciona perfectamente).

En el mismo ejemplo que mandé (vuelvo a subirlo), Me gustaría que la tercera columna...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Buenas tardes.

@FGV , aquí llevas el ejemplo.

Lo que quiero que haga es que el filtro se vaya ejecutando a medida que se escribe en el textbox. Cuando voy escribiendo sí lo...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Tienes condicionado el filtro, simplemente quita la condición:
Código:
Private Sub TextBox8_Change()

Sheets("Enero").Select
ActiveSheet.Unprotect Password:="clara"

   criteriofiltro = "*" &...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Buenos días a todos.

Siguiendo con este tema, me gustaría dar un pasito más, por lo que vuelvo a acudir en busca de vuestra ayuda.

@Antoni y @FGV , os...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Código:
Sub Borrarfiltro_Enero()

Sheets("Enero").Select
ActiveSheet.Unprotect Password:="clara"

With ActiveSheet
  Application.Goto Range("Enero")(2)
  On Error Resume Next...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
  • Me gusta
Reacciones: FGV
Buenas tardes, genios del foro!

Retomo este tema...que a pesar de ser algo fácil a priori, me está volviendo un poco loco...

@FGV y @Antoni, os nombro...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba