Excel - textbox con ubicacion de la celda que encuentra valor

   
Vista:
Imágen de perfil de pablo

textbox con ubicacion de la celda que encuentra valor

Publicado por pablo (1 intervención) el 28/07/2017 14:46:24
Buenas.
Tengo 7 textbox, en el primero se ingresa un valor a buscar, y cada textbox devuelve su contenido si en una de las celdas de una base de datos esta el valor buscado.

Necesito, que ademas del valor encontrado agregue también el numero de fila en que estaba el valor...

parte del programa dice

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim encuentra As Variant
buscar = TextBox18.Value
I = 1
For I = 2 To 200
 
   Range("A" & I & ":a" & I).Select
   Range("A" & I & ":b" & I).Select
   Range("A" & I & ":c" & I).Select
   Range("A" & I & ":d" & I).Select
   Range("A" & I & ":e" & I).Select
   Range("A" & I & ":F" & I).Select
 
    encuentra = False
    On Error Resume Next
 
    encuentra = Selection.Find(What:=buscar, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
 
    If encuentra = True Then
 
        TextBox2.Value = TextBox2.Value & vbCrLf & "-" & Range("A" & I).Value
        TextBox3.Value = TextBox3.Value & vbCrLf & "-" & Range("B" & I).Value
        TextBox19.Value = TextBox19.Value & vbCrLf & "-" & Range("C" & I).Value
        TextBox16.Value = TextBox16.Value & vbCrLf & "-" & Range("D" & I).Value
        TextBox15.Value = TextBox15.Value & vbCrLf & "-" & Range("E" & I).Value
        TextBox14.Value = TextBox14.Value & vbCrLf & "-" & Range("F" & I).Value


(se me ocurre que en estas ultimas lineas deberia agregar una variable.... pero desconosco como hacerlo)
es posible ademas que el valor buscado se resalte en el textbox que lo halló????

muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder