Poner en negrita parte de una cadena

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!!!