Te doy la bienvenida a este material del día 10 del Reto40Excel, en este día te voy a enseñar cómo insertar comentarios en Excel con macros en Excel. A partir de una Macro en Excel vamos a desarrollar el código correcto con el fin de que la Macro recorra las filas de una columna específica y vaya realizando una serie de validaciones y con base al cumplimiento de una o varias condiciones le aplique los comentarios en Excel.
Para lo que te voy a mostrar en este día previamente te voy a indicar cómo se declaran determinadas variables, cómo le asignamos valor a una variable, también implementaremos lo que son los ciclos en este caso vamos a utilizar el ciclo For y también vamos utilizar una serie condicionales, es decir, se aplicaran condiciones con el fin de que se cumpla y cuando se cumpla se inserta los comentarios en Excel con macros en Excel. Este es un paso a paso que te voy a explicar con el fin de que comprendas muy bien lo que se Está realizando Y qué resultado esperas obtener después de que te haya explicado el paso a paso.
En Excel tú puedes agregar, modificar o eliminar comentarios sin necesidad de hacerlo a través de una macro, lo que te voy a enseñar es cómo insertar comentarios en Excel a través de macros en Excel con el fin de que no tengas que aplicar comentarios celda por celda, si no que si tienes una condición específica que necesitas que cumplen determinadas filas, puedes aplicarle un comentario a nivel de código VBA y está Macro en Excel va recorriendo fila por fila y así te evitas hacer un trabajo Manuel obviamente esto cuando ya tiene las condiciones que quieres que apliquen para cada condición, te doy la bienvenida a este material que hemos preparado para ti con el fin de explicarte cómo insertar comentarios en Excel con macros en Excel.
A continuación se especifican las herramientas utilizadas en el material de este día:
– Comentarios en Excel
– Declaración de variables en VBA
– Asignación a una variable en VBA
– Capturar la última fila con datos en VBA
– Msgbox en VBA
– Macros en Excel
Para no perderte nada de lo que compartimos en las redes sociales, puedes seguirnos a través de los siguientes medios:
Youtube: https://goo.gl/FrswaC
Facebook: https://goo.gl/W5dIsa
Twitter: https://twitter.com/ee_excel
Instagram: https://goo.gl/xadGB5
Linkedin: https://goo.gl/Os1boH
A continuación el material de hoy:
Click >> Aquí << para descargar ejercicio del día
1) Recibe estos vídeos GRATIS >> https://goo.gl/FrswaC
2) Suscríbete a este curso gratuito para aumentar tu productividad en Excel un 80% y obtén 4 regalos adicionales al suscribirte a este curso: http://goo.gl/zNqh0o
Artículos anteriores:
- Día 9 – Ingresos y Egresos en Excel con Macro en Excel #Reto40Excel 2016
- Día 8 – Comodines en Excel #Reto40Excel 2016
- Día 7 – Macro en Excel para extraer datos con condiciones #Reto40Excel 2016
- Día 6 – Macro en Excel para abrir archivos externos con condición IF – Reto40Excel v.2016
- Día 5 – Sumar últimas celdas en Excel – Reto40Excel v.2016
- Día 4 – Formato condicional para mostrar repeticiones a partir de una variable – Reto40Excel v.2016
- Día 3 – Ordenar con letras y números en Excel – Reto40Excel v.2016
- Día 2 – Definir cálculo con Función SI y lista desplegable en Excel – Reto40Excel v.2016
- Día 1 – Validación de datos en Excel para limitar cantidad y contenido en una celda – Reto40Excel v.2016
- Lanzamiento de Reto40Excel v.2016
- Función SUBTOTALES en Excel
- Sumar en Excel con condiciones – Parte 3 de 4 – Excluyendo mes
- Sumar en Excel con condiciones – Parte 2 de 4 por período
Muy práctico. Excelente
Hola Alfonso, gracias a ti por participar, saludos
Pingback: Emitir sonido Beep en Excel con macro VBA
Saludos Alfonso,
Cada día se pone más interesante el reto. Mi aporte:
Sub asignarComentEjerc()
Dim ultFila As Long
Dim cont As Long
Dim venta As Double
Dim fecha As Date
ultFila = Sheets(“Ejercicio”).Range(“E” & Rows.Count).End(xlUp).Row
For cont = 8 To ultFila
Cells(cont, 7).ClearComments
venta = Cells(cont, 7)
If venta >= 40000 And venta = 15000 And venta <= 18000 Then
Cells(cont, 7).AddComment Text:="Revisar"
End If
Next cont
ultFila = Sheets("Ejercicio").Range("E" & Rows.Count).End(xlUp).Row
For cont = 8 To ultFila
Cells(cont, 6).ClearComments
fecha = Cells(cont, 6)
If Year(fecha) = 2015 Then
Cells(cont, 6).AddComment Text:="Información del año pasado"
End If
Next cont
End Sub
Gracias por esta iniciativa.
Hola Juan, es un gusto ver tu interés en éste proyecto. Gracias
Excelente exposición
Hola Alberto, gracias por comentar y compartir. Saludos
Pingback: Cómo importar hojas de Excel a Excel
Pingback: Consultar Tabla Access desde Macro Excel VBA
Me gustaría que alguien me eche una manito con los macros ya que no manejo tanto el lenguaje para ver en que me falta por considerar. Gracias y sobre todo es mas que interesante que alguien con tanta experiencia y capacidad pueda aportar su tiempo y conocimiento para lograr desarrollar personas mas competente.
Hola Luis, te recomendamos ver alguno de estos vídeos, te ayudarán a fortalecer tus conocmientos en Macros de Excel. Gracias por comentar saludos
Buenas noches, de verdad es excelente el trabajo que hace usted, explicación clara, toca temas muy interesantes, y es muy motivante, actualmente estoy haciendo el reto fuera de los días, tratando de nivelarme estudiando varios videos al día pero poniéndole ganas para aprender cada vez mas de Excel.
Muchas gracias por su interés de que las personas aprendan a manejar esta herramienta tan importante en las empresas y tan sub-utilizadas por los empleados.
Hola José, gracias por tu comentario y por hacer parte de este proyecto, no olvides compartir lo que aprendes, saludos.
Pingback: Actualizar y eliminar en Access desde Excel
Pingback: Formularios en Excel: Ingresar datos sin duplicados para hacer una base de datos en Excel
Pingback: Formularios en Excel VBA: Consultar datos de una base de datos en Excel
Pingback: Formularios en Excel VBA: Actualizar datos de una base de datos en Excel
Pingback: Formularios en Excel: Mostrar imágenes de base de datos en Excel
Pingback: Encontrar los Valores más altos en Excel sin repetirlos