Visual Basic - Fuente Textbox

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de pablo

Fuente Textbox

Publicado por pablo (5 intervenciones) el 04/08/2017 00:30:30
Mis Respetos.

Teniendo 4 textbox, uno que busca una palabra, el resto devuelve la fila correspondiente donde encontró la palabra.

Existe una forma de destacar dentro del textbox, la palabra buscada?????

Ejemplo

textbox1
vitamina

textbox2 textbox3 textbox4
Desgarro VITAMINA B6 Reposo 15 días


textbox 3 , contiene la palabra buscada,,,,,
como destaco, o pongo en mayuscula, sólo esa palabra?

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
Imágen de perfil de Andres Leonardo

Fuente Textbox

Publicado por Andres Leonardo (1223 intervenciones) el 04/08/2017 17:04:27
Se me ocurre concatenando

pero lo importante seria q pusieras un ejemmplo asi no lo entendo....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de pablo

Fuente Textbox

Publicado por pablo (5 intervenciones) el 04/08/2017 22:53:26
Gracias Andres por tu tiempo-

agrego parte del programa:


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
28
29
30
31
32
33
34
35
36
Dim encuentra As Variant
buscar = txt_Buscar.Value
 
            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
 
 
        TextBox20.Value = TextBox20.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
 
 
    End If
 
 
   If Err.Number = 91 Then GoTo Brinca ' verifica el error y si es 91 ve a Brinca.
 
Brinca:
Next i
 
Exit Sub
 
End Sub

Por ahora, logre traspasar el valor del txt_busca a una celda oculta, y la reemplazo la palabra a mayúscula con una macro en las columnas buscadas

gracias nuevamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad