Entradas

Mostrando las entradas con la etiqueta VBA para macer macro de Excel

Macro en Word para numerar y resaltar preguntas automáticamente

Imagen
 ¿Tienes un cuestionario lleno de preguntas y quieres darles un formato profesional sin hacerlo a mano? En esta publicación te comparto una macro en Word que detecta automáticamente las preguntas , las numera y además las resalta en negrita . Esta herramienta es especialmente útil si trabajas en educación o si necesitas generar evaluaciones, encuestas o formularios con frecuencia. 💡 ¿Qué hace esta macro? Detecta cualquier párrafo que contenga un signo de pregunta ( ¿ o ? ). Añade un número al inicio del párrafo. Aplica negrita a toda la pregunta. Evita numerar dos veces si ya habías corrido la macro antes. Sub NumerarYFormatearPreguntas()     Dim parrafo As Paragraph     Dim texto As String     Dim contador As Integer     contador = 1     For Each parrafo In ActiveDocument.Paragraphs         texto = Trim(parrafo.Range.Text)         ' Verifica si contiene "¿" o "?" y que aún no...
Publicar un comentario
Leer más

Macro en Excel para remover filas duplicadas.VBA programación para todos.

Imagen
 En ocasiones necesitamos remover datos duplicados en nuestros datos de salida de alguna hoja de Excel. En esta ocasión les comparto una función en VBA para poder hacerlo. En mi caso tengo una Macro que válida datos y va escribiendo el análisis en la hoja4 y necesito que remueva resultados duplicados para ello utilizo la siguiente función . En esta macro la pueden ajustar para que no sea la hoja4 y sea otra celda para eliminar duplicados. Sub EliminarDuplicadosColumna()     ' Especifica la hoja donde quieres trabajar     Dim ws As Worksheet     Set ws = ThisWorkbook.Sheets( "Hoja4" )     ' Encuentra la última fila con datos en la columna Q de la hoja especificada     Dim LastRow As Long 'columna q la cual puedes cambiar por cualquier otra     LastRow = ws.Cells(ws.Rows.Count, "Q" ).End(xlUp).Row     ' Define el rango a evaluar en la hoja especificada     Dim rng As Range     Set rng = ws.Range...
Publicar un comentario
Leer más

🚀 Mantener este blog funcionando requiere tiempo y café. ¡Puedes contribuir con uno aquí!