Ver cómo trabaja nuestra macro

    La ejecución de las macros es muy rápida. A veces nos puede interesar ver paso a paso lo que hace una macro, sobre todo cuando hay algún fallo para localizarlo y corregirlo.

- Vuelve a hacer una copia de la hoja original.

- Accede a Herramientas - Macros - Macro y pulsa el botón Paso a paso. Te encontrarás en la ventana de aplicaciones en Visual Basic. Puedes cambiar el tamaño de las dos ventanas (la de Visual Basic y la de Excel) para poder verlas al mismo tiempo. En la ventana de VB pulsa el botón Continuar de la barra de herramientas y observa en la ventana de Excel como se va ejecutando la macro.
 

Tarea DOS: Añadir columnas de fechas

   Nuestro informe no incluye la fecha en cada fila, así que vamos a añadir una nueva columna para añadir el mes de cada registro. Para ello, deberás ejecutar la macro recién creada y hacer un par de copias de esa hoja. Una copia será para crear la macro y la otra para probar su funcionamiento.
 

- Con la macro anterior ejecutada, sitúa el cursor en la celda A1

- Crea una nueva macro llamada AñadirFecha

- Accede a Insertar - Columnas

- Escribe en la celda A1: Fecha y pulsa Intro

- Sube hasta A1 y coloca los colores de texto (negrita) y fondo (azul claro) como en las celdas de su derecha.

- Selecciona el rango A2:A22, escribe Mar-98 y pulsa Ctrl+Intro

- Pulsa Ctrl+Inicio y finaliza la grabación de la macro.
 

   Evidentemente, el próximo mes no será Marzo, sino Abril (a veces me asombro de mi mismo...). La macro volvería a colocar el mes de Marzo en el informe del próximo mes. Una solución sería cambiar la macro cada mes con la nueva fecha, pero no parece la solución más adecuada. Lo que haremos será que Excel nos pregunte la fecha a introducir.

- Accede al código de la macro.

- Selecciona el texto "Mar-98" y escribe en su lugar: InputBox("Introduce la fecha:")
 

   Lo que hacemos es insertar la función InputBox que nos pedirá mediante un cuadro que le introduzcamos un dato. A continuación, la macro rellenará las celdas con el dato que le introduzcamos.

- Ejecuta la macro y comprueba que el control InputBox funciona correctamente introduciendo por ejemplo el texto: Abril-98
 

Tarea TRES: Añadir columnas calculadas

    Observa que en la hoja tenemos tres precios por diseño: Bajo, Medio y Alto. Si queremos comparar el valor de los pedidos sin descuento con el de los mismos con descuento, precisaremos añadir en cada fila la lista de precios. Una vez que hayamos observado la lista de precios de cada fila, podremos calcular el importe total de los pedidos, multiplicando las unidades por los precios. Finalmente, convertiremos las fórmulas en valores como preparación para añadir los pedididos al archivo histórico permanente.

- Crea una nueva macro llamada: AñadirColumnas

- Ve a la celda H1 e introduce el texto: Tarifa

- Ve a la celda I1 e introduce el texto: Bruto

- Coloca esta última celda con el formato negrita y fondo azul claro

- Ve a la celda H2 e introduce: =BUSCARV(E2;Precios!$A$1:$C$4;SI(C2="Minorista";2;3))

- Copia la fórmula hacia abajo hasta la celda H115
 

    Esta fórmula busca el precio Medio (E2) de la primera columna del rango A1:C4 de la hoja Precios. A continuación devuelve el valor de la columna número 2 de la lista. Así pues, el precio para la venta Minorista de un libro con un precio medio es de 4,5 pts.

- Ve a la celda I2 y escribe: =F2*H2

- Copia la fórmula hacia abajo hasta la celda I115

- Finaliza la grabación de la macro