BuscarV con un Texbox dentro de una serie de datos
Tengo un Textbox Textos en mi hoja de cálculo lo que necesito es que pueda escribir los datos en el textbox y dar enter me busque el valor esta en la columna "C" o decirme en que fila esta con MsgBox en la columna C esta los valores que yo deseo
1 Respuesta
Respuesta de Dante Amor
2
Te anexo el código
Private Sub CommandButton1_Click()
If ActiveSheet.TextBox1.Value = "" Then
MsgBox "Introduce un dato en el textbox"
Exit Sub
End If
Set b = Columns("C").Find(ActiveSheet.TextBox1.Value, lookat:=xlWhole, LookIn:=xlValues)
If Not b Is Nothing Then
MsgBox "El valor está en la fila : " & b.Row
Else
MsgBox "No existe el valor"
End If
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
¿Esto también aplica si la fila donde está el valor esta oculta?
Para buscar en filas ocultas cambia esta línea:
Set b = Columns("C").Find(ActiveSheet.TextBox1.Value, lookat:=xlWhole, LookIn:=xlValues)Por esta
Set b = Columns("C").Find(ActiveSheet.TextBox1.Value, lookat:=xlWhole, LookIn:=xlFormulas)Pero no aplica si en la columna C tienes fórmulas, si quieres buscar los resultados de fórmulas, entonces es la primera opción; y se tendrían que mostrar las filas, buscar y luego ocultar (o algo así)
