Formulario II

Muy buen día tenga cada uno de ustedes en esta ocasión tengo el gusto de publicar de nueva cuenta un nuevo ejercicio el cual consiste en la aplicación de un formulario para ejecutar un Control de Asistencia, para su efecto trabajaremos con Microsoft Excel, Visual Basic y varias fórmulas así como macros.
Para dar inicio a este ejercicio primero debemos contar con los campos siguientes y asi mismo copiarlos en la fila 10 para poseer nuestro formato de trabajo, en nuestra hoja número 1:

Como siguiente paso nos colocaremos en lo que es nuestra hoja dos en la cual deberemos de colocar los siguientes campos:

• Código
• Nombre
• Grado
• Carrera

Y anotar los datos que serán indispensables para la elaboración de este formulario a los cuales los utilizaremos como una matriz la cual nombraremos como "Datos", en esta ocasión únicamente utilizare a modo de ejemplo diez datos:

Como siguiente paso en nuestra hoja no. 1 nos colocaremos en la Fila 2 y comenzaremos a anotar los siguientes códigos en su columna correspondiente, pero lo haremos utilizando una macro así que deberán de tener mucho cuidado puesto que cada error sera grabado, a nuestra macro la nombraremos como "Registrar", podemos encontrar la opción Macros en la ficha Vista al final de la misma o con el método abreviado "Alt+F8":

puesto que ahora ya hemos utilizado la opción grabar macro y la hemos nombrado tenemos que hacer lo siguiente:

• Celda "A2": =VALOR(G2)
• Celda "B2": =BUSCARV(A2,DATOS,2,FALSO)
• Celda "C2": =BUSCARV(A2,DATOS.3,FALSO)
• Celda "D2": =BUSCARV(A2,DATOS,4, FALSO)
• Celda "E2": =HOY(), se debe modificar el formato
• Celda "F2": =AHORA(), se debe modificar el formato

Ahora copiamos este código y lo pegamos en la fila 11 con pegado especial, valores y listo lo único que se debe realizar es cambiar de nuevo el formato de la fecha y la hora luego seleccionamos toda la fila e insertamos una fila entera y nos colocamos en la celda "G2".

Como siguiente paso buscamos la aplicación Visual Basic y de nuevo tenemos que insertar un UserForm:

Ahora lo que haremos será insertar dos Etiquetas que serán:

1. Asistencia
2. Ingrese Código

Como próximo paso ingresaremos un Cuadro de Texto:

Para continuar debemos darle doble click a nuestro Cuadro de Texto y anotar el siguiente código que sera un condicional:

If Val ( TextBox1 ) > =5050 then

[G2] = TextBox1

Copiamos el código de nuestra macro que se encuentra en el módulo

Range ("A2").Select

End If

TextBox1= Empty

TextBox1.SetFocus

Ahora ya terminamos de trabajar con Visual Basic regresamos a Excel y en la fila 7 hacemos lo siguiente:

• Celda B7= Colocamos Nombre
• Celda C7= La vamos a combinar y centrar con las celdas D7 y E7 y colocaremos el código =B2

Luego de haber realizado esto nos vamos a la fila 8 y aplicamos lo siguiente:

• Celda B8= Colocamos Grado y Carrera
• Celda C8= La combinamos y centramos con D8 y E8 y colocamos la función =CONCATENAR(celda donde se encuentra grado, celda donde se encuentra carrera).

Como ultimo paso nos colocamos en la fila 9 y haremos lo siguiente:

• Celda B9= Colocamos Fecha y Hora
• Celda C9= La combinaremos y centraremos con D9 y E9 y colocaremos el código =E9

Aplicamos bordes y unos cuantos colores y listo.

Y culmina de la siguiente forma: 

Gracias y muchos exitos. ;D