¿COMO COLOCAR NEGRILLA A UN TEXTO CONCATENADO EN EXCEL?
Con esta macro nos va permitir realizar lo siguiente:
- Concatenar varias celdas y colocar negrilla a un texto determinado en excel.
- Colocar negrilla la celda 2 y 4 pero se puede modificar de acuerdo a la necesidad.
Revisa el siguiente video para que aprendas a utilizar la macro y en la parte inferior del articulo se encuentra el enlace para que la puedas descargar
Importante que para utilizar la macro debemos de tener habilitados el menú de programador o desarrollador dependiendo de la versión de excel que tengas. En este CORTO VIDEO te explico como lo puedes HABILITAR
Se recomienda como el ejemplo que vamos a realizar donde tenemos las celdas seguidas donde las vamos a unir y la columna E vamos a colocar el texto concatenado con la negrilla como se muestra en la imagen
Después de que tengamos habilitado las macros debemos de insertar un botón.
![insertar boton en macros como colocar negrilla en un texto contatenado en excel](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdUbojXIrBq6bdHgD-m2D0WfGnAn62pQ2bi7rOmgBPxvqlf9T-ZeDJdhx5Fi4Rs2fGp2UZuxAXzMgVAmAWCEl27Y99bLzhQLdbT6yJGjUeJpIFxWF6X2SzBgG4319jNdCZTTv1w8DI6I8/s16000/image.png)
Entonces presionamos clic en el icono de insertar y posteriormente al icono de botón
![](https://www.blogger.com/img/transparent.gif)
![insertar un boton en excel como colocar negrilla en un texto contatenado en excel](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheqQMIajcyWZGZbuJBRJEcKb5s_g4LtHkg7kt2laHBc8SkulP-Vo7K_FC61pRwfSTvdlH4I8MJdZrwcMdx1kJ7QJTthhnY6uu1QQLb9juCytd0gbPZj_Rf1oAstcNVCLq44k42yySmE6Y/w270-h400/image.png)
![como colocar negrilla en un texto contatenado en excel como colocar negrilla en un texto contatenado en excel](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGOn5YXAJpaktY9xYX2W8DlmBDr6jQx20I-W30DayKZQB_jtyEIVN3j-JEPVf5eN6pvgjfyQQn0v7zjL31dDtKwe9oGZWzSHYgiGxhuoVtaeAgVPClxyONTroLossa2GmbdDhkf2u2WmA/w400-h361/image.png)
Luego copiamos la macro que se encuentra al final de esta pagina.
![como colocar negrilla en un texto contatenado en excel como colocar negrilla en un texto contatenado en excel](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfD7VQQuBmrRv0oTGD2-zO0Tvp1S6fWqC-tWzquhvkiOczPQXmhtPvDZEb-BQV-fgxT6CMUhJnxcef5E1yt4uQqt7OFJL59NN-P4aEz7fSZkgHKO9KSPkgcDJUjWSZTjOvU4WFD1anaQs/s16000/image.png)
En el momento de ejecutar la macro te sale un primer cuadro donde debemos de seleccionar el rango a procesar
Posteriormente nos aparece el siguiente cuadro donde debemos de seleccionar la celda donde vamos a obtener el primer resultado.
En el momento de presionar aceptar, obtener el resultado de todas las celdas concatenadas y la columna b y d en negrilla.
Dim Rango As Range
Dim rango2 As Range
Le asignamos para ambas variables la caja de texto para seleccionar los rangos
Set Rango = Application.InputBox(Prompt:="Elige el rango para concatenar", Type:=8)
Set rango2 = Application.InputBox(Prompt:="Elige la celda donde estará el primer resultado", Type:=8)
Datos Matriz del rango seleccionado
Para detectar la primera fila del rango
fila = Rango.Row
limfila = Rango.Rows.Count + fila - 1
Para definir la primera columna del rango
columna = Rango.Column
Para definir la ultima columna del rango
limcolumna = Rango.Columns.Count + columna - 1
'Datos del rango para concatenar
Para detectar la fila donde colocará el dato concatenado
FilaRes = rango2.Row
para definir la columna donde colocará el dato concatendado
ColumnaRes = rango2.Column
Realizamos un ciclo para que recorra hasta la ultima fila
Do While fila <= limfila
celda1 = Cells(fila, columna) ' Celda 1
celda2 = Cells(fila, columna + 1) ' Celda 2
celda3 = Cells(fila, columna + 2) ' Celda 3
celda4 = Cells(fila, columna + 3) ' Celda 4
Concatenar las celdas
Cells(FilaRes, ColumnaRes) = celda1 & " " & celda2 & " " & celda3 & " " & celda4
Cells(FilaRes, ColumnaRes).Select
With Selection
Para colocar negrilla al segundo texto,aquí puedes cambiar por la celda que desees
.Characters(Len(celda1) + 1, Len(celda2) + 1).Font.Bold = True
Colcocar negrilla al tercer texto, aquí puedes cambiar por la celda que desees
.Characters(Len(celda1) + 1 + Len(celda2) + 1 + Len(celda3) + 1, Len(celda4) + 1).Font.Bold = True
End With
FilaRes = FilaRes + 1
fila = fila + 1
Loop
Canal de YouTube