¿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.
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.
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
Luego le asignamos un nombre de comentarios y presionamos clic en nuevo.
En la ventana de visual basic copiamos la macro.
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
Posteriormente nos abre la siguiente ventana para escribir el numero de la fila donde comienza el primer comentario.
Nos arroja la siguiente ventana para escribir el numero de la fila donde termina los comentarios
Nos abre la siguiente ventana para escribir el numero de la columna donde vamos a pegar los comentarios.
Luego nos abre la ventana para escribir el numero de la fila donde vamos a pegar el primer comentario
Obtenemos el siguiente resultado
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
Comunidad Telegram
Instagram: Aprende y Enseña Excel
Facebook: Aprende Excel Fácil
Twitter: Aprende y Enseña Excel
Hasta una próxima y te deseo el mayor de los EXITOS.
Aprende y Enseña Excel.
