Ubicar el selector de celdas en un formulario de búsqueda
Publicado por lug (294 intervenciones) el 04/04/2017 15:54:17
El sgt código, llama un formulario que hace una búsqueda de datos de una hoja de excel (usuarios)
Ok,, ¿pero cómo hago para bicar el selector de celdas cuando el botón de buscar encuentre el dato?
Es decir,,, cuando ejecuto en numero de indetificacion del usuario por ejemplo, lo encuentra y me lo muestra en los texboz del formulairo,, ok perfecto,, pero como hago para que simultáneamente el selector se ubique en la celda correspendiente a la ubicación de ese usuario, pero que lo ubique en el ultimo registro,, es decir, el usuario puede que este varias veces repetido en la base de datos,, y que me seleccione la celda en un color que puede ser amarillo,,
Este es parte del código que estoy trabajando. O mejor dicho casi en su totalidad
Set encontrado = Sheets("usuarios").UsedRange.Cells.Find(What:=idbusca, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
encontrado.Select
Set encontrado = Nothing
Range("D5:D5000").Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.Color = vbYellow
Ok,, ¿pero cómo hago para bicar el selector de celdas cuando el botón de buscar encuentre el dato?
Es decir,,, cuando ejecuto en numero de indetificacion del usuario por ejemplo, lo encuentra y me lo muestra en los texboz del formulairo,, ok perfecto,, pero como hago para que simultáneamente el selector se ubique en la celda correspendiente a la ubicación de ese usuario, pero que lo ubique en el ultimo registro,, es decir, el usuario puede que este varias veces repetido en la base de datos,, y que me seleccione la celda en un color que puede ser amarillo,,
Este es parte del código que estoy trabajando. O mejor dicho casi en su totalidad
1
2
3
4
5
6
7
8
9
10
11
Dim Fila As Integer
Fila = 4id_nombre = TextBox1Do While idbusca <> id_nombre
Fila = Fila + 1
idbusca = Range("c" & Fila).Value
If idbusca = Empty Then MsgBox "Elemento NO encontrado"Exit Do
End If
Loop
Set encontrado = Sheets("usuarios").UsedRange.Cells.Find(What:=idbusca, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
encontrado.Select
Set encontrado = Nothing
Range("D5:D5000").Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.Color = vbYellow
Valora esta pregunta
0
