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
(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
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 = 1For I = 2 To 200Range("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 = FalseOn 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 ThenTextBox2.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
0