Negritas en concatenar

[tinin84]

buenos días compañeros del foro, verán tengo un problema deseo que parte de lo que muestra mi función concatenar se vea con negritas la función es la siguiente:

=SI(BRIGADA!Y25>0;CONCATENAR("ÁREA : ";BRIGADA!Y25;" HAS, ";"SECTOR : ";BRIGADA!O25;" PARROQUIA : ";BRIGADA!D25;", ";" CATÓN : ";BRIGADA!T4;", ";" PROVINCIA : ";BRIGADA!O4);" ")

entonces lo que deseo es que todos los campos que estoy concatenando sean con negritas el texto final debería quedar asi:

ÁREA : 2,7463 HAS, SECTOR : EL GRAN CHAPARRAL PARROQUIA : ROBERTO ASTUDILLO, CATÓN : MILAGRO, PROVINCIA : GUAYAS

pero por lo pronto se presenta asi

ÁREA : 2,7463 HAS, SECTOR : EL GRAN CHAPARRAL PARROQUIA : ROBERTO ASTUDILLO, CATÓN : MILAGRO, PROVINCIA : GUAYAS

pd: todo este texto lo tengo en una celda combinada.

ante todo mil gracias por la persona que se dio tiempo por leer mi pregunta y un millón de gracias por alguna posible solución.

saludos desde ecuador

[Armando Montes]

Ya que esta seccion es para VBA supongo quieres una macro y que podras modificar ligeramente la que aqui incluyo.

Este codigo cambia las palabras seleccionadas a Bold, asi que deberas:

1. Cambiar TODO el texto a BOLD antes de aplicar la macro, puedes hacerlo con VBA

2. Incluir en el array las palabras comunes: area, sector, etc., incluyendo los 2 puntos

3. Modificar en el codigo la propiedad Bold = True a False para que las palabras del array queden "Normales", no Bold.

Public Sub BoldTest2()

' select the cells  to be changed and run this sub

Dim Rng As Range

Dim i As Long

Dim StartPos As Long

Dim Codes  ' defines the text strings you want to  format

Codes = Array("gato", "perro", "ave", "raton")

For Each Rng In Selection.Cells

  For Each Cde In Codes

    StartPos = 0

    Do Until InStr(StartPos + 1, Rng.Value, Cde, vbTextCompare) = 0

      StartPos = InStr(StartPos + 1, Rng.Value, Cde)

      If StartPos > 0 Then Rng.Characters(StartPos, Len(Cde)).Font.Bold = True

    Loop

  Next Cde

Next Rng

End Sub[/CODE]