En la hoja 4 (Datos 2), quiero poner un pequeño buscador, lo más simple posible.
He insertado un cuadro de texto de ActiveX con lo siguiente (llamado BuscadorPrueba);
Private Sub BuscadorPrueba_Change()
Dim DatoConsultado As String
If Hoja4.BuscadorPrueba.Value <> "" Then
DatoConsultado = "*" & Hoja4.BuscadorPrueba.Value & "*"
Range("C10").CurrentRegion.AutoFilter Field:=1, Criteria1:=DatoConsultado
Else
DatoConsultado = ""
Range("C10").CurrentRegion.AutoFilter
End If
End Sub
No necesito más.
Cuando pongo field =1 y meto números...no me busca bien. Sin embargo, cuando pongo field=2, para buscar por hospital en mi caso, funciona bien...¿Alguna idea? porque ya no se ni qué hacer
Buenas tardes.
Gracias de antemano por la ayuda.
Os explico mi problema.
En la hoja 4 (Datos 2), quiero poner un pequeño buscador, lo más simple posible.
He insertado un cuadro de texto de ActiveX con lo siguiente (llamado BuscadorPrueba);
Private Sub BuscadorPrueba_Change()
Dim DatoConsultado As String
If Hoja4.BuscadorPrueba.Value <> "" Then
DatoConsultado = "*" & Hoja4.BuscadorPrueba.Value & "*"
Range("C10").CurrentRegion.AutoFilter Field:=1, Criteria1:=DatoConsultado
Else
DatoConsultado = ""
Range("C10").CurrentRegion.AutoFilter
End If
End Sub
No necesito más.
Cuando pongo field =1 y meto números...no me busca bien. Sin embargo, cuando pongo field=2, para buscar por hospital en mi caso, funciona bien...¿Alguna idea? porque ya no se ni qué hacer
Muchas gracias maestros!!
Ayuda buscador hoja4.xlsm
Editado el por Yigdrasil2023