Buscar fila por medio de inserción de dato en textbox
Buenos días, tengo una hoja de cálculo con mucha información, me gustaría insertar en la celada "A1" un textbox que al introducir algún código de los que tengo en la columna "A", se seleccione automáticamente toda la fila que contiene este código.
Es algo parecido al comando ctrl+B, la diferencia es que en vez de seleccionar la celda encontrada me seleccione toda la fila de esa celda.
Gracias!
1 respuesta
En primer lugar vamos a acotar el rango de búsqueda para hacerlo más ágil.
Este ejemplo busca en col A el dato buscado al ingresar algún valor en celda A1 (no en textbox, pero podes adaptarlo a esa situación)
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'se controla el ingreso en A1. Si queda vacía o se trata de otra celda se cancela
If Target.Address <> "$A$1" Or Target.Value = "" Then Exit Sub
dato = Target.Value
Set busco = ActiveSheet.Range("A2:A10000").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si encuentra el dato selecciona la fila completa
If Not busco Is Nothing Then
busco.EntireRow.Select
End If
'libero la variable
Set busco = Nothing
End SubLa rutina se coloca en el objeto HOJA donde tengas tus datos.
Sdos y no olvides finalizar la consulta.
Gracias Elsa, tu repuesta fué fulminante. Eres la mejor en esto.
Un abrazo!
