Al modificar una macro me da error run-time 424

joselica · el 6 de noviembre

Hola,

Estoy intentando de adaptar una macro que tengo de otro proyecto y me da error "run-time 424 se requiere un objeto".

He buscado información sobre el error en causa pero no me aclaro.

Lo que pretendo, en la hoja "LISTADO" atraves de un TEXTBOX en cuanto voy escribiendo un nombre completo o parte de un nombre se me muestra solo la/las fila/s que se aproximan o contienen el nombre completo de la lista de base de datos que tengo en los rangos "B7:H10000".

Tal como lo tengo ahora escribo en la celda "C4" el nombre completo y me marca en amarillo la parte de la fila que contiene dicho nombre. Si la lista es demasiado larga costara mucho en localizar la/s fila/s.

Adjunto el documento.

Muchas gracias por vuestra ayuda.

Saludos,

CONTROL DESAYUNOS - RETOUCH.xlsm

joselica · el 7 de noviembre

Hola de nuevo,

He encontrado un tutorial que me sirve para mi proposito.

He seguido todos los pasos, me filtra pero no me mustra el resultado.

No entiendo porque.

Adjunto de nuevo el documento por si hay alguien que me eche un cable.

Saludos,

CONTROL DESAYUNOS - RETOUCH 2.xlsm

ikanni · el 7 de noviembre

Hola Joselica,

El criterio del filtro avanzado no lo has creado bien, es mas sencillo. Cambia este procedimiento por el tuyo

Private Sub TextBox1_Change()
   criteriofiltro = "*" & Hoja1.TextBox1.Text & "*"
   If TextBox1.Text <> "" Then
      Hoja1.Range("B7").AutoFilter Field:=2, Criteria1:=criteriofiltro
   Else
      Hoja1.ListObjects("Table1").Range.AutoFilter Field:=2
   End If
End Sub

Antoni · el 7 de noviembre

Private Sub TextBox1_Change(): On Error Resume Next
If TextBox1.Text <> "" Then
   Range("B7:H7").AutoFilter Field:=2, Criteria1:="*" & TextBox1.Text & "*"
Else
   ActiveSheet.ShowAllData
End If
End Sub

Antoni · el 7 de noviembre

Hace 7 minutos , ikanni dijo:

Hola Joselica,

El criterio del filtro avanzado no lo has creado bien, es mas sencillo. Cambia este procedimiento por el tuyo


Private Sub TextBox1_Change()
   criteriofiltro = "*" & Hoja1.TextBox1.Text & "*"
   If TextBox1.Text <> "" Then
      Hoja1.Range("B7").AutoFilter Field:=2, Criteria1:=criteriofiltro
   Else
      Hoja1.ListObjects("Table1").Range.AutoFilter Field:=2
   End If
End Sub

Has contestado mientras estaba escribiendo. Un abrazo.

ikanni · el 7 de noviembre

Sí te pisao!!!?

joselica · el 7 de noviembre

Hola ikanni y Antoni,

Gracias por vuestra ayuda.

ikanni!

Tu propuesta va muy bien.

Antoni!

He probado tu propuesta. Filtra bien, pero no funciona al limpiar el nombre tanto cuando aprieto el boton "LIMPIAR NOMBRE" o borrar manualmente el texto.

Quiero decir que no devuelve la lista entera, se queda con el nombre que he escrito.

Un saludo a los dos.