Re: Poner en negrita parte de una cadena

[karl]

daniel_hg escribió el 17/09/2005 00:21 :
> Hola, te pego una macro que quizás te sirva si la adaptas a tus
> necesidades.
> Ten en cuenta, que para poder poner en negrita una parte del texto, primero
> has de pasar la celda a valores, es decir, que te desaparecerá la
> fórmula.
> Finalmente, la macro parte del hecho de que la celda donde se encuentra el
> texto a poner en negrita, se encuentra en la celda adyacente de la
> izquierda. Lógicamente, presupongo que todas las celdas comienzan con =
> "El
> Sr. " etc.
>
> *************************************************************************
> Sub FuenteNegritaParcial()
> '
>
> Dim intLargo As Integer
> Dim i As Long
> Dim rng As Range
> Set rng = Selection
> rng.Select
> rng.Copy
> rng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
> Application.CutCopyMode = False
>
> For i = 1 To rng.Cells.Count
> intLargo = Len(rng.Cells(i).Offset(0, -1).Value)
>
> With rng.Cells(i).Characters(Start:=1, Length:=7).Font
> .FontStyle = "Normal"
> End With
> With rng.Cells(i).Characters(Start:=8, Length:=intLargo).Font
> .FontStyle = "Negrita"
> End With
> With rng.Cells(i).Characters(Start:=8 + intLargo).Font
> .FontStyle = "Normal"
> End With
>
> Next i
> End Sub
>
***********************************************************************************************
> "Peluchon" escribió en el mensaje
> news:
> Tengo una Fómula que dice:
>
> ="El Sr." & B7 & " ha recibido."
>
> Quisiera que el dato que trae de B7 me lo ponga en negrita.
>
> Como se podría hacer.
>
> Gracias de antemano al grupo
>
Hola, tengo la misma inquietud, hice una Macro, que me funciona muy bien,
siempre y cuando el contenido de la celda sea un String completo, es decir se
me
borren las formulas de concatenacion y las referencias a otras celdas. Me
explico mejor:
Sub Cadena_Negrita()
Dim pos As Integer
Dim uf As Long, lon As Long
Dim strB As String, strA As String
strB = Worksheets("Datos de la Empresa").Range("B4")
strA = Worksheets("MODELO").Range("A10")
uf = Len(strA)
pos = InStr(strA, strB)
lon = Len(strB)
If pos > 0 Then
Worksheets("MODELO").Range("A10").Characters(Start:=pos,
Length:=lon).Font.FontStyle = "Negrita"
End Sub
en la celda A10, tengo una funcion parecida a esta
= "XXXXXXXX"&'Datos de la Empresa'!B4&"XXXXXXX"
y en la celda B4 de la hoja "Datos de la Empresa", tengo otro valor de
texto

cuando coloco en la celda A10, el resultado de esta concatenacion, si me
coloca
en negrita "strB", pero si dejo la formula no hace nada, quisiera
saber si hay manera que se ejecute el Modulo, sin perder la formula de
concatenacion.

Mil Gracias!!!