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

馃搳 Macro en Excel para Usar VLOOKUP (BUSCARV) Autom谩ticamente

Hola amigos, bienvenidos a un nuevo post de nuestro blog de programaci贸n para todos.

La mayor铆a utilizamos Excel en nuestros trabajos y una de las funciones mas utilizadas es el Vlookup o el BuscarV que hace la maravillosa actividad de buscar un dato en una tabla y en base a un indice podemos obtener otra columna de la tabla, esto sirve mucho para cruzar informaci贸n o simplemente para validar si un valor de una tabla esta en otra tabla.
Como siempre buscamos hacer las cosas m谩s r谩pido y ser los mejores en nuestra aldea God铆n, les quiero compartir un ejemplo de una Macro que cuenta con:

La primer hoja tiene una lista de Productos a vender 



En la segunda Hoja tiene los pedidos de los clientes con su c贸digo de cliente y el item del pedido, la cantidad pedida, fecha de la venta


Lo que va hacer nuestra Macro es en la primer hoja nos calcule la cantidad total vendida por cada item y el monto total de venta

Antes de ver el programa, les explico como habilitar la pantalla de desarrollo de software en Excel

Configurar Excel para Macros

  • Habilitar Pesta帽a de Desarrollo
  1. En la pesta帽a archivo , vaya a Opciones> personalizar la cinta de opciones.
  2. En Personalizar la cinta de opciones y Pesta帽as principales, active la casilla Programador.
  • Presionamos las teclas Alt + F11 al mismo tiempo, deben ver una pantalla as铆:


Una vez, teniendo estos requisitos podemos empezar con la magia :) 

C贸digo de la Macro

Private Sub CommandButton1_Click()
Dim Fila As Long
Dim Fila2 As Long
Dim Col As Integer
Col = 3 ' columna C
Fila = 4

 'coloca montos totales en hoja2
Do While Sheet2.Cells(Fila, "B") <> ""
    Call vlookup_data(Sheet2.Cells(Fila, "B").Value, Col, Fila)
    Fila = Fila + 1
Loop

 Fila = 3
'consolidado de venta
Do While Sheet1.Cells(Fila, "A") <> ""
    Fila2 = 4
    Do While Sheet2.Cells(Fila2, "B") <> ""
       If Sheet2.Cells(Fila2, "B") = Sheet1.Cells(Fila, "A") Then
          'sumamos las cantidades vendidas por item
          Sheet1.Cells(Fila, "D") = Sheet1.Cells(Fila, "D") + Sheet2.Cells(Fila2, "C")
          'sumamos lo montos
          Sheet1.Cells(Fila, "E") = Sheet1.Cells(Fila, "E") + Sheet2.Cells(Fila2, "E")
       End If
       Fila2 = Fila2 + 1
    Loop
    
Fila = Fila + 1
Loop
End Sub

 Sub vlookup_data(val_look As String, val_col As Integer, val_fila As Long)
Dim resultado As Long
Dim temp_col As Integer

 resultado = 0

 On Error Resume Next
 resultado = Application.WorksheetFunction.VLookup(val_look, Sheet1.Range("A3:C10"), val_col, False)
 If Err.Number <> 0 Then
 End If

 On Error GoTo 0  ''
If Err.Number = 0 Then
 Sheet2.Cells(val_fila, "E").Value = Sheet2.Cells(val_fila, "C").Value * resultado
End If
End Sub


Ejecuci贸n de la Macro

Para mostrarles como se va ejecutando la Macro, en la pantalla donde esta nuestro programa podemos marcar los renglones donde queremos que se detenga , dando doble click del lado izquierdo sobre la parte izquierda y se coloca un punto rojo 

 En la primera parte busca en cada linea de la hoja 2 y busca el precio que le corresponde en la primer hoja
En el siguiente paso nos va ir sumando por cada item la cantidad total vendida y la el monto total



 Al final en nuestra primer hoja tendremos los datos consolidados 

Este es un ejemplo pero puede utilizar o ajustar el programa a sus necesidades, espero les haya gustado este post y nos compartan. Recuerden si no saben que es Vlookup  o quieren aprender nuevas funciones de Excel, contacten a Debite


Les dejo las ligas de otras macros en nuestro blog

No olvide compartirnos y seguirnos en este blog o en Facebook.

Comentarios

Publicar un comentario

Dejanos tus dudas y comentarios

馃殌 Mantener este blog funcionando requiere tiempo y caf茅. ¡Puedes contribuir con uno aqu铆!

Entradas m谩s populares de este blog

Gu铆a Pr谩ctica: Ejemplo Completo de ASPX para Desarrolladores Web

Imagen
Bienvenidos a programacionparatodos.com Esta semana vamos a conocer otro lenguaje de programaci贸n que es ASP ( Active Server Pages  )  que es de la familia de Microsoft es plataforma Cliente/Servidor y que permite crear p谩ginas WEB din谩micas, utiliza un servicio conocido como IIS o  (Internet Information Services) fue creado en 1996. Cuando ven paginas WEB que terminan en .aspx es que est谩n desarrolladas con este lenguaje. P谩ginas  que por ejemplo utilizan ASP https://www.cfe.mx/Pages/Index.aspx https://www.interfactura.com/Index.aspx https://www.canadainternational.gc.ca/mexico-mexique/index.aspx?lang=spa Igual hay mucho trabajo para este software por ejemplo les dej贸 las siguientes vacantes  Desarrollador .NET .NET Developer NET LEAD Para seguir con el formato del blog, les quiero compartir un programa de ejemplo, pero he de decirles que es la primera vez que programo en ASP , ya que no lo hab铆a hecho antes, me tomo...
Leer m谩s

馃搳 Automatiza tu trabajo: Convierte tablas de Word a Excel con una macro

Imagen
 Si trabajas en una oficina, seguro te enfrentas a tareas repetitivas que consumen mucho tiempo, como copiar datos de una tabla en Word a una hoja de Excel.   Afortunadamente, existe una forma de automatizar este proceso mediante macros en Word, lo que te permitir谩 ahorrar tiempo y esfuerzo, y enfocarte en tareas m谩s importantes. ¿Qu茅 es una macro? Una macro es una secuencia de instrucciones que te permite automatizar tareas repetitivas en aplicaciones como Word y Excel. Utilizando el lenguaje VBA (Visual Basic for Applications), puedes escribir c贸digos que realicen tareas como copiar tablas de un documento de Word y pegarlas en una hoja de Excel con solo hacer clic en un bot贸n. ¿Por qu茅 deber铆a usar una macro para convertir tablas de Word a Excel? Ahorra tiempo : Si trabajas con grandes cantidades de datos, una macro puede copiar todo de una tabla a Excel de forma r谩pida y precisa. Minimiza errores : El proceso manual de copiar y pegar puede dar lugar a errores humanos, ...
Leer m谩s

Macro de Excel para abrir archivo csv

Imagen
Hay veces que quieres abrir un archivo de Excel pero est谩 separado por comas, punto y coma o por un pipe. Hay formas de hacerlos desde Excel. Les quiero compartir algunas opciones de como hacerlo y espero que les sean de utilidad. 1.Es abrir el archivo en Excel y utilizar la funci贸n de separar por columnas y seleccionar el delimitador, por ejemplo ";" 2. Es colocar "sep=;" en el primer rengl贸n del archivo que quieres abrir y guardar en formato CSV y abrirlo en Excel y te lo abrir谩 separado en columnas. 3. Otra forma es con una macro, est茅 en mi gusto es la que m谩s me funciona porque si hay alguna coma en la descripci贸n o en alguna columna, si lo abres desde Excel te va a desacomodar las columnas.  Este bot贸n te abrir谩 un pantalla para abrir el archivo que quieres separar y te lo abrir谩 en una hoja de excel ya separado. El c贸digo de la macro es el siguiente  Private Sub CommandButton1_Click() Dim sht As Worksheet Dim fnd As Variant Dim rplc ...
Leer m谩s