MACROS

Con este ejercicio vamos a aprender a como utilizar macros y como programar, espero les sirva de mucho. 


1.Primero tenemos que realizar una base de datos, en la hoja No.3 como lo muestra la siguiente imagen.Y a esta hoja le colocamos el nombre de "BASE DE DATOS" y colocamos 3 columnas con los nombres de :
-CODIGO
-NOMBRE
-GRADO/CARRERA

luego marcamos desde A2 hasta C11 y le colocamos como nombre "datos"

2. Como segundo paso nos vamos a la hoja No.1 y le colocamos el nombre de "ASISTENCIA" luego en la fila B1 vamos a encontrar el nombre y ala vez el código que esta en la base de datos de la hoja No. 2 y para eso utilizamos la siguiente fórmula =SI(A1="";"";BUSCARV(A1;datos;2;FALSO))  (ver la imagen)

Ahora vamos a encontrar el grado y para eso vamos a utilizar la siguiente fórmula: =SI(A1="";"";BUSCARV(A1;datos;3;FALSO))

Ahora vamos a encontrar lo que es la fecha utilizando la siguiente fórmula =HOY( )

Ahora vamos a encontrar la hora y para eso vamos a utilizar la siguiente fórmula =ahora( )

3. Ahora nos vamos ala fila No.14 y colocamos los siguiente datos:
-CÓDIGO
-NOMBRE
-GRADO
-FECHA
-HORA

4. Ahora lo que vamos a realizar es extra para que se mire mas formal y vamos a realizar lo siguiente, Y colocar las siguientes formulas para cada uno:
-CODIGO    =C5
-NOMBRE   =B1
-GRADO      =C1
-FECHA Y HORA    =D1    =E1

5. Luego ya vamos a empezar a grabar la macro y para esto nos vamos al botoncito de grabar macro (ver la imagen No.1.) luego nos va a aparecer un cuadro donde tenemos que colocar el nombre de la macro en este caso lo vamos a dejar con el nombre que sale ahí que seria el de Macro1, luego aceptar (ver imagen 2)

Luego de haber hecho el paso anterior ya empezó a grabar la macro y realizamos lo siguiente:


6. Marcamos desde A1 hasta E1 luego le damos click derecho y la opción "Copiar" (ver imagen No.1) luego nos vamos a la columna A16 y le damos click derecho y la opción de "Pegado Especial" y luego en valores (ver imagen No.2)

Luego damos un click en A1 y paramos la grabacion de la macro, dandole click en el mismo botón de grabar macro, (ver imagen)

7. Como septimo paso vamos a insertar un botón que nos ayudará a marcar la asistencia y que aparezca registrado en la parte de abajo y para eso realizamos los siguiente:
-nos vamos a programador y Insertar y buscamos el boton que diga boton (control de formulario) 

-Ahora insertados el boton en el lugar que usted desee, al insertar el botón nos va a abrir una ventana automaticamente que dice Asignar macro y seleccionamos macro1 como aparece en la siguiente imagen, luego aceptar.

ahora para programar precionamos Alt+F11 nos vamos ala opcion de Insertar y luego en UserForm, (ver imagen)

luego nos aparecera un cuadro luego le insertamos un cuadro de etiqueta y le colocamos "ASISTENCIA 2012" luego ya lo cambiamos y lo decoramos como quieras, le cambias el color y tipo de letra, etc
luego le insertamos un cuadro de texto que es donde vamos a insertar el código de la persona que esta ingresando. (ver imagen)

luego damos 2 clicks en el cuadro de texto y nos abrirá una ventana y luego nos vamos a modulo 1 y copias todo el módulo, despues de haber copiado el módulo 1 le anteponemos lo siguiente:

If Val(TextBox1) >= 4000 Then
    [C5] = Val(TextBox1)
y al final del módulo copiado le colocamos los siguiente:

TextBox1 = Empty
    TextBox1.SetFocus
    End If

Luego le damos el boton de ejecutar y nos aparecerá el cuadrito en la hoja de excel y en el cuadro de texto que colocamos ingresamos el código y listo.