Anuncios

miércoles, 27 de marzo de 2019

Como colocar negrilla en un texto concatenado en Excel con macros

Aprende a colocar negrilla o negrita en la parte de un texto concatenado en excel con macros o concatenar textos con macros en excel. 
como colocar negrilla en un texto contatenado en excel


¿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



como colocar negrilla en un texto contatenado en excel

Después de que tengamos habilitado las macros debemos de insertar un botón.


como colocar negrilla en un texto contatenado en excel

Entonces presionamos clic en el icono de insertar y posteriormente al icono de botón


como colocar negrilla en un texto contatenado en excel


y arrastramos con el mouse el tamaño como queremos el botón.


como colocar negrilla en un texto contatenado en excel

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


como colocar negrilla en un texto contatenado en excel

Luego copiamos la macro que se encuentra al final de esta pagina.


como colocar negrilla en un texto contatenado en excel

En el momento de ejecutar la macro te sale un primer cuadro donde debemos de seleccionar el rango a procesar 


como colocar negrilla en un texto contatenado en excel

Posteriormente nos aparece el siguiente cuadro donde debemos de seleccionar la celda donde vamos a obtener el primer resultado.


como colocar negrilla en un texto contatenado en excel


En el momento de presionar aceptar, obtener el resultado de todas las celdas concatenadas y la columna b y d en negrilla.


como colocar negrilla en un texto contatenado en excel

La macro consiste en lo siguiente.

Se nombra las variables Rango y rango2 como tipo rango
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 

Para definir la ultima fila del rango
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

En el siguiente ENLACE puedes DESCARGAR la macro para colocar negrilla en un texto concatenado



Seguramente quieres sabes más acerca de Excel, no te olvides darte una vuelta por las siguientes secciones disponibles para ti de manera gratuita

Canal de
 YouTube
Comunidad Telegram

Hasta una próxima y te deseo el mayor de los EXITOS.

Aprende y Enseña Excel.