Anuncios

miércoles, 2 de diciembre de 2020

Como colocar el texto de un comentario en una celda automaticamente en Excel con macros

 ¿Como colocar el texto de un comentario en una celda de excel automaticamente con macros?

Aprenderemos a colocar toda la información que tenemos en un comentario o varios comentarios en diferentes celdas y el texto nos va quedar de forma automática en cada celda de excel.

Como insertar comentarios en excel


CONVERTIR UN TEXTO DE COMENTARIO EN UNA CELDA

Para poder ejecutar la macro nos vamos apoyar del siguiente video y también se explicara el uso en el articulo.


Se debe tener en cuenta que la macro la puedes descargar en la parte inferior del articulo.


como se observa en la siguiente imagen tenemos en la columna B varios comentarios en diferentes celdas y en la columna D vamos a colocar el texto de cada comentario.

insertar comentarios en excel

Importante que para poder utilizar la macro debemos de tener habilitado en el menú de excel la pestaña programador o desarrollador. Dependiendo de la versión de excel puede ser programador o desarrollador pero la funcionalidad es la misma. En este CORTO VIDEO te explico como lo puedes HABILITAR para así poder ejecutar la macro.


Ahora vamos a insertar un boton en la pestaña programador y en la herramienta insertar seleccionamos el comando de boton y lo arrastramos en nuestra hoja de excel

insertar un boton de macros

Luego le asignamos un nombre de comentarios y presionamos clic en nuevo.

Ventana de macros

En la ventana de visual basic copiamos la macro.

Macros en excel

La macro consiste en  lo siguiente


nombramos las variables como integer

Dim ColumnaComent As Integer

Dim FilaComent As Integer

Dim ColumnaPegar As Integer

Dim FilaPegar As Integer

Dim FilaLimite As Integer


Asignamos para cada varible una ventana de texto

ColumnaComent = InputBox("Escribe el # de la columna donde comienza el primer comentario")

FilaComent = InputBox("Escribe el # de la Fila donde comienza el primer comentario")

FilaLimite = InputBox("Escribe el # de la fila donde termina los comentarios")

ColumnaPegar = InputBox("Escribe el # de la columna donde desea pegar el primer comentario")

FilaPegar = InputBox("Escribe el # de la fila donde desea pegar el primer comentario")


Creamos un ciclo que va desde Fila comentario hasta la ultima fila del comentario

For filas = FilaComent To FilaLimite


Para extraer el texto que tenemos en el comentario

Texto = Cells(FilaComent, ColumnaComent).Comment.Text


Pegar el comentario que se extrajo

Cells(FilaPegar, ColumnaPegar) = Texto


Incremente una unidad a la variable FilaComent

FilaComent = FilaComent + 1


Incremente una unidad a la variabel FilaPegar

FilaPegar = FilaPegar + 1

Next


En el momento de ejecutar la macro nos aparece la siguiente ventana para colocar el numero de la columna donde comienza el primer comentario

como colocar el texto de un comentario en una celda automaticamente en excel

Posteriormente nos abre la siguiente ventana para escribir el numero de la fila donde comienza el primer comentario.

como colocar el texto de un comentario en una celda automaticamente en excel

Nos arroja la siguiente ventana para escribir el numero de la fila donde termina los comentarios

como colocar el texto de un comentario en una celda automaticamente en excel

Nos abre la siguiente ventana para escribir el numero de la columna  donde vamos a pegar los comentarios.

como colocar el texto de un comentario en una celda automaticamente en excel

Luego nos abre la ventana para escribir el numero de la fila donde vamos a pegar el primer comentario 

como colocar el texto de un comentario en una celda automaticamente en excel

Obtenemos el siguiente resultado


como colocar el texto de un comentario en una celda automaticamente en excel

En el siguiente ENLACE puedes DESCARGAR la macro.


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


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


Aprende y Enseña Excel.

No hay comentarios:

Publicar un comentario