Macros en excel

Curso de Macros en Excel Nivel intermedio

Como escribir una macro utilizando el Editor de Visual Basic.


Como ejecutar una Macro
Una Macro escrita por nosotros se ejecuta exactamente igual que si se tratase de cualquier otra Macro.
1.- Abre el libro donde tienes guardada la Macro que creamos en la lección anterior.
2.- Despliega el menú: Herramientas - MacroUna vez allí podrás ver como aparece un pequeño submenú.
3.- Selecciona la opción Macros...
Te aparecerá una nueva ventana en la que podrás ver el nombre que nosotros escribimos detrás del comando Sub.
4.- Haz un clic sobre este nombre y después pulsa el botón Ejecutar.
La Macro se pone en funcionamiento, podemos observar como la hora activa pasa a ser la segunda.Ya hemos visto como crear, guardar y ejecutar Macros creadas utilizando el Editor de Visual Basic.
A partir de esta lección iremos viendo pequeñas Macros que realizarán cosas muy concretas. Estas Macros se podrán ir entrelazando para así poder conseguir lo que nosotros deseamos.
Macros con libros.
Vamos a ver tres Macros que trabajarán directamente con libros. Con ellas podremos abrirun libro existente, activar un libro y por último crear un libro nuevo.
Abrir un libro existente.
Para abrir un libro utilizaremos la siguiente Macro:
Sub AbrirLibro()
Workbooks.Open ("C:\Mis documentos\Ejemplo.xls")
End Sub
Observa como entre paréntesis y comillas dobles hemos escrito el camino y el nombre del archivo que deseamos abrir. Este archivo debe existir, sino fuera así esta Macro nos daría error.
________________________________________
Activar un libro ya abierto.
Con esta Macro podemos cambiar el libro activo. Es muy importante que el libro ya esté abierto, si no fuera así, la Macro daría error.
Sub ACtivarLibro()
Workbooks("Ejemplo.xls").Activate
End Sub
Observa como en esta Macro no indicamos el camino donde seencuentra el archivo, no hace falta ya que este debe estar abierto.
________________________________________
Crear un libro nuevo.
Con la siguiente Macro podremos crear un libro nuevo. Esta Macro es exactamente igual que si activásemos la opción Archivo - Nuevo.
Sub NuevoLibro()
Workbooks.Add
End Sub
Si modificásemos este libro después Excel nos preguntaría sideseamos guardar los cambios.
Los nombres de las Macros no tienen porqué ser necesariamente los mismos que hemos puesto nosotros. Te recomiendo escribas estas MAcros y las ejecutes para ver como funcionan.
Movernos por un libro.
Vamos a ver Macros que nos permitan movernos por las celdas que contiene un libro.
Buscar el final de una lista.
Podemos utilizar esta Macro parapodernos situar al final de una lista de elementos. Interpretaremos que el final de la misma está en el momento en el que encontramos una celda vacía.
Sub Final()
While ActiveCell.Value ""
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
End Sub
Deberemos observar que con esta Macro siempre queda activada la primera celda que está en blanco después de toda la lista.________________________________________
Buscar el final de una lista y situarnos en la última entrada.
Esta Macro es exactamente igual que la anterior pero con la única diferencia que la celda activada es la última entrada de la lista.
Sub FinalLista()
While ActiveCell.Value ""
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
ActiveCell.Offset(-1,0).Range("A1").Select
End Sub
En esta Macro se realiza el bucle hasta que se encuentra la celda vacía y después subimos una posición para situarnos en la última entrada de la tabla.
________________________________________
Buscar una entrada en una lista y borrar toda la fila.
Vamos a imaginar que tenemos una tabla de datos en la cual nos interesa buscar un elemento determinado y...