¿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.
Entonces presionamos clic en el icono de insertar y posteriormente al icono de botón
y arrastramos con el mouse el tamaño como queremos el botón.
Luego cambiamos el nombre de la macro y le ponemos para el ejemplo el nombre que desees y posteriormente nos vamos para el botón de nuevo
Luego copiamos la macro que se encuentra al final de esta pagina.
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
