Actualmente me encuentro realizando mi tercera práctica profesional en la cual me han dado como tarea la de realizar un resumen anual de unos servicios de enlaces de internet y telefonía IP. Al ser anual estamos hablando de al menos unos 4000, si cuatro mil, datos en Excel, los cuales se deben filtrar, ordenar y hacer cálculos respectivos.
Para que este proceso no se haga tan tedioso es que he recurrido a una herramienta que muchos han escuchado pero creo estar en la razón al decir que pocos saben utilizar.
Estamos hablando de las Macros.
Cuando hablamos de una Macro en Excel nos referimos a un lenguaje de programación orientado a aplicaciones. En este caso particular, se utiliza VBA (Visual Basic for Applications) el cual es un lenguaje de programación desarrollado por Microsoft. Excel, al igual que los otros programas de Microsoft Office incluyen el lenguaje VBA.
Imaginen un Robot que conoce todo sobre Excel. Este robot puede leer instrucciones y operar sobre Excel de manera rápida y precisa. Simplemente escribimos un lenguaje que este robot comprenda, para que luego el robot haga el trabajo sucio mientras nos relajamos y tomamos una limonada. Eso es justamente VBA. Un lenguaje en código para robots. Pero Ojo, Excel no viene ni con un robot ni con la limonada. =)
La combinación entre la generación de un código VBA y su posterior ejecución en Excel es lo que se llama una Macro. A fin de cuentas una Macro es un programa el cual contiene un trozo de código de manera que podemos automatizar procesos que el realizarlos a mano nos pueden tomar mucho tiempo.
La palabra Macro proviene del griego makros que significa grande-lo cual podría describir el tipo de pago que podrías recibir por convertirte en un experto en programación de Macros.
Otra cosa que se debe tener en cuenta es que VBA no es lo mismo que VB (Visual Basic), ya que VB es un lenguaje de programación que permite crear programas auto ejecutables (conocidos como archivos EXE). A pesar de que VBA y VB tienen mucho en común, son dos cosas distintas.
La idea de crear una Macro es la de automatizar tareas que son repetitivas o que deben ser desarrollas con frecuencia. Por ejemplo, preparar reportes mensuales de manera que todos los meses podrás presentarle a tu jefe reportes con un mismo formato. Él quedará impresionado por tu consistencia y la gran calidad de tu trabajo, e incluso te promoverá a un nuevo cargo al cual no estás capacitado!!
Lo primero a realizar es hacer visible la lengüeta de “Programador”. Por defecto esta lengüeta viene oculta en Excel 2007. Iremos a Inicio y daremos click en “Opciones de Excel”.
La primera opción es “Más Frecuente” y dentro de ella debemos marcar la opción de “Mostrar Ficha Programador en la cinta de Opciones”. Acá podemos observar como la hemos marcado, que en este caso es la tercera opción. Con ello la lengüeta “Programador” está visible y podemos comenzar a utilizar Macros en nuestro libro de Excel.
Lo que cubriremos en este instructivo es la grabación de Macros. Esto es muy parecido a la grabación de acciones que alguna vez cubrimos en un tutorial de Photoshop.
Con ello nos aparece la ventana “Grabar Macro”.
En “Nombre de la macro” pondremos un nombre representativo (Ojo no puede llevar espacios por lo que si desean pueden usar guión bajo “_” para poner espacios entre palabras), en “método abreviado” pondremos una combinación de teclas como acceso directo (por defecto es CTRL +”algo ”, en mi caso utilizá la tecla Shift o Mayúscula más la tecla N), en “Guardar macro en: ” dejamos igual como está, y en “Descripción” anotamos justamente una descripción de lo que hará la macro.
Damos click en “Aceptar ”. Con ello la grabación de la Macro comienza, por lo tanto todos los movimientos que realicemos dentro del libro de Excel serán grabados.
Esta fórmula muestra la fecha y hora actual.
Esto convierte la fórmula a su valor correspondiente.
¡Felicitaciones! Acabas de grabar tu primera Macro. Esta es una buena oportunidad para llamar a tu madre y contarle las buenas noticias.
Ahora solo nos falta correr la Macro y ver los resultados. Para ello iremos a una nueva hoja de cálculo. Seleccionamos la celda A1.
En la lengüeta de Programador hacemos click en Macros con lo cual se nos abre la ventana que administra las Macros.
Elegimos nuestra Macro, que en este caso es única y le damos click al botón ejecutar. También si prefieren pueden seleccionar la celda A1 y simplemente utilizar la combinación de teclas que configuramos, en este caso Ctrl+Shift+N.
Como observarán se ha pegado la información y se le ha dado el formato de letra en negrita y tamaño 16. Con un simple click o combinación de teclas sin necesidad de anotar el nombre, aplicar una fórmula, copiarla, pegarla, seleccionar ambas celdas y darles formato.
Ahora analicemos el código o lenguaje que se ha grabado.
Para ello podemos dar click en el botón “Visual Basic” de la lengüeta Programador o utilizar la combinación de teclas ALT+F11.
Con ello se nos abre el editor de VBA.
Damos click en el símbolo “+” de “Módulos” de manera de ampliar el árbol de módulos y con ello nos aparecerá “módulo 1” tal como se observa en la fotografía.
Con ello se abre el módulo y podemos obsevar el código que se ha generado.
Los comentarios se pueden anotar anteponiendo el símbolo de apóstrofe (’).
En este caso para explicar el código dejaré comentarios en cada línea.
Sub NombreyTiempo() ‘ NombreyTiempo Macro ‘ Esta Macro anota mi nombre y el tiempo ‘ Acceso directo: Ctrl+Mayús+N Range(“A1”).Select ‘Se selecciona la celda A1 ActiveCell.FormulaR1C1 = “Dexter” ‘En ella se insertará Dexter Range(“A2”).Select ‘Se selecciona la celda A2 ActiveCell.FormulaR1C1 = “=NOW()” ‘Se aplica la fórmula Ahora() que en VBA se anota por su nombre en inglés NOW() Range(“A2”).Select ‘Nuevamente seleccionamos la celda A2 Selection.Copy ‘La selección se copia Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ‘Se vuelve a pegar pero como pegado especial, en este caso como Valor Range(“A1:A2”).Select ‘Tomamos el Rango desde la celda A1 a la A2 Application.CutCopyMode = False ‘Esta linea no hace nada en particular ya que no estamos ni copiando ni pegando With Selection.Font ‘Con la seleccion antes hecha, entramos a la configuracion de fuentes .Name = “Calibri” ‘Se selecciona el tipo de fuente, en este caso Calibri .Size = 16 ‘Se selecciona el tamaño de fuente, en este caso 16 .Strikethrough = False ‘los siguientes códigos representan otros parámetros que no son necesarios analizar .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Selection.Font.Bold = True ‘Con la misma seleccion anterior (celdas A1 y A2), aplicamos el formato de Negrita End Sub
Este código lo pueden copiar y pegar en el editor de Macros de Excel, correrlo y funcionará correctamente.
Bueno con esto me despido, espero que les haya gustado.
Y como siempre, este tutorial ha sido
Felices proyectos!!!!!
Para cualquier consulta no duden en escribirnos.
Estaremos felices de responderles y ayudarles en todo lo posible.
Cómo Lo Hago, si se puede, te lo enseñamos.
3:11:28 pm
saludos dexter soy archivologo y trabajo con tablas en excel para controlar todo lo relacionado controles documentales, ademas de manejar los controles en la unidad de transporte y para todo ello genro fichas elaboradas en excel
6:03:07 pm
Hola Dexter, soy pracante de la carrera de mecatronica, y realizo un proyecto con unas asculas contadoras las cuales me mandan el peso a un arcivo texto (bloc de notas), ya encontre como pasar el dato a excel, ahora quiero que se actualize automaticamente cada que se pese algo y ese valor se obtenga del archivo texto y se posicione en la celda 2 y se este actualizando cada que pesen algo…
me podrias ayudar a crear una macro que me pueda realizar esto ?? ..
por tu tiempo y ayuda muchas Gracias !!
nota: no se mucho de programacion pues soy de la especialidad de manufactura 😀
5:26:58 pm
Excelente. Me robé tu comentario, sólo que no sería Dexter. Chuck Norris. Será posible hacer un programa en visual c++ y pasarlo a excell…Creo que eso es para usuarios avanzados, en fin. Gracias por el aporte….
4:00:20 pm
Hola!!! quisiera saber como puedo poner la misma información(superior e inferior) en todas las hojas de trabajo sin necesidad de copiar y pegar, algo así como una plantilla que lo tengan las hojas donde estoy trabajando, puesto que estoy realizando unos procedimientos documentales y deben llevar todos la misma información. Gracias.
2:24:36 pm
buenas toy haciendo mi proyecto de simulacion en excel… pero me qde trancado … al genera una series de nuemeros pseudoalearotios.. com podria llevar todos ese numeros haciendo clic a otra hoja de excel para realizar las pruebas de independencia con macro
8:14:12 am
no tendras un manual de macros que me puedas mandar??? te lo agradeceria bastante.
8:45:15 pm
la neta te la rifas mi trabajo me quedo excelente gracias a tu ayuda.muchisimas gracias
1:53:06 am
ERES UN BUEN CHICO PARA LA SOCIEDAD
8:37:06 pm
Tengo esta instrucion que me guarda el archivo
especificado de acuerdo al criterio de “I7” en el directorio especificado
pero ahora tengo otro criterio en otra celda “I8” para especificar el directorio
he provado algunas alternativas paro no me salen
porfa necesito ayuda
e-mail edgarivan6@hotmail.com
directorios alternos
ChDir “C:\Users\edgar\Documents\2012\” ´se guarda en este si el criterio es 0
ChDir “C:\Users\edgar\Documents\2012\1” ´se guarda en este si el criterio es 1
chDir “C:\Users\edgar\Documents\2012\2” ´se guarda en este si el criterio es 2
esta es mi instruccion original
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = “C4” Then
‘La que tu tengas definida—
Dim NombreFichero As String
NombreFichero = Range(“I7”).Value ‘I7 corresponde a la celda con el nombre de fichero
ChDir “C:\Users\edgar\Documents\2012\”
ActiveWorkbook.SaveAs Filename:=NombreFichero
End If
End Sub
11:21:55 pm
Amigo necesito un favor, necesito crear un botón para poder gráficar distintas columnas. Me explico, en la columna si en la hoja 1 tengo una serie de columnas. Voy a la hoja 2 y aprieto el botón X y me grafique esa columna, si aprieto otro botón que me grafique la otra, etc.