Formulario de Inscripciones desde Visual Basic:
Ahora crearemos un formulario de inscripciones desde visual basic, el cual tendra una base de datos en excel, en donde se almacenaran los datos ingresados dependiendo del grado que sea, para lo cual utilizaremos un condicional que llevara los datos a una de las diferentes hojas dependiendo de la informacion que se ingrese en un textbox, Aqui les dejo este interesante ejercicio paso por paso: 

Primero abrimos un nuevo documento de excel, en el cual usaremos cuatro hojas, la primera nos tendra un boton que nos mostrara el userform del formulario de inscripcion, la segunda correspondera al grado "primero", la tercera al grado "segundo" y la cuarta al grado "tercero" que es en las que se ira almacenando la informacion que ingresemos en el formulario....

   Para hacer que aparezca el mensaje, primero escribimo el codigo de vb:
Dim mensaje as String
luego utilizamos un condicional If
If textbox4 = "" Or textbox5= "" Or textbox6= "" Then

---->  que quiere decir que si el textbox correspondiente a N_padre o N_Madre o T_emergencia, es igual a nada, entonces:
 mesaje = msgbox ("debe llenar los campos de informacion de los padres y el numero de emergencia" , vbOkOnly, "Bienvenido")

-----> este nos dice que dira el mensaje, para ingresarlo correctamente, msgbox = (" texto de la ventana" , vbOkOnly---> este nos dice que es una ventana a la cual solo se le dara Ok, "el nombre de la ventana")
luego nos situamos en el textbox4 (N_Padre) con el codigo
textbox4.setfocus
 

 Luefo seguimos escribiendo el codigo, continuamos con el condicional else = si no
y luego utilizamos otro condicional if


if textbox2 = "primero" then    -------> si grado es igual a "primero" entonces
sheets("Primero").select           -------> seleccionar la hoja "Primero"
[A4] = TextBox1                         -------> celda A4 = nombre
 [B4] = TextBox2      -------> celda B4 = grado
 [C4] = TextBox3      -------> celda C4 = nivel
 [D4] = TextBox4     -------> celda D4 = N_padre
 [E4] = TextBox5     -------> celda E4 = N_madre
 [F4] = TextBox6      -------> celda F4 = T_emergencia
 ActiveWorkbook.Save      -------> guardar el libro activo 
 Range("A3").Select            -------> seleccionar la celda A3
 Selection.EntireRow.Insert-------> Insertar una fila
 TextBox1 = Empty              -------> limpiar textbox1
 TextBox2 = Empty              -------> limpiar textbox2
 TextBox3 = Empty               ------->limpiar textbox3
 TextBox4 = Empty               -------> limpiar textbox4
 TextBox5 = Empty                -------> limpiar textbox5
 TextBox6 = Empty               -------> limpiar textbox6
 TextBox1.SetFocus                 -------> seleccionar textbox1 (Nombre)
 End If                                     -------> cerrar condicional 
 

 

Para el grado de "segundo" abrimos otro condicional, en el cual ingresamos los casi los mismos datos que en el primero, cambiando unicamente la hoja y el grado....

if textbox2 = "segundo" then    -------> si grado es igual a "segundo" entonces
sheets("segundo").select           -------> seleccionar la hoja "segundo"
[A4] = TextBox1                         -------> celda A4 = nombre
 [B4] = TextBox2      -------> celda B4 = grado
 [C4] = TextBox3      -------> celda C4 = nivel
 [D4] = TextBox4     -------> celda D4 = N_padre
 [E4] = TextBox5     -------> celda E4 = N_madre
 [F4] = TextBox6      -------> celda F4 = T_emergencia
 ActiveWorkbook.Save      -------> guardar el libro activo 
 Range("A3").Select            -------> seleccionar la celda A3
 Selection.EntireRow.Insert-------> Insertar una fila
 TextBox1 = Empty              -------> limpiar textbox1
 TextBox2 = Empty              -------> limpiar textbox2
 TextBox3 = Empty               ------->limpiar textbox3
 TextBox4 = Empty               -------> limpiar textbox4
 TextBox5 = Empty                -------> limpiar textbox5
 TextBox6 = Empty               -------> limpiar textbox6
 TextBox1.SetFocus                 -------> seleccionar textbox1 (Nombre)
 End If                                     -------> cerrar condicional 
 

Y para el tercero, tambien utilizamos los mismos codigos, cambiando unicamente la hoja y el grado....

if textbox2 = "tercero" then    -------> si grado es igual a "tercero" entonces
sheets("Tercero").select           -------> seleccionar la hoja "Tercero"
[A4] = TextBox1                         -------> celda A4 = nombre
 [B4] = TextBox2      -------> celda B4 = grado
 [C4] = TextBox3      -------> celda C4 = nivel
 [D4] = TextBox4     -------> celda D4 = N_padre
 [E4] = TextBox5     -------> celda E4 = N_madre
 [F4] = TextBox6      -------> celda F4 = T_emergencia
 ActiveWorkbook.Save      -------> guardar el libro activo 
 Range("A3").Select            -------> seleccionar la celda A3
 Selection.EntireRow.Insert-------> Insertar una fila
 TextBox1 = Empty              -------> limpiar textbox1
 TextBox2 = Empty              -------> limpiar textbox2
 TextBox3 = Empty               ------->limpiar textbox3
 TextBox4 = Empty               -------> limpiar textbox4
 TextBox5 = Empty                -------> limpiar textbox5
 TextBox6 = Empty               -------> limpiar textbox6
 TextBox1.SetFocus                 -------> seleccionar textbox1 (Nombre)
 End If                                     -------> cerrar condicional 
 

 

Cambiando el Estilo de Una Hoja Con un boton desde VB

Ahora haremos un pequeño formulario en excel, y le agregaremos un boton, con la ficha programador para que cuando le demos clik nos cambie autoaticamente el estilo del formulario por otro que hayasmo hecho. Este ejercicio lo haremos utilizando una macro para grabar nuestros estilos y luego en visual basic los uniremos y los condicionaremos para que cuando seleccionemos nuestro boton, este funcione.

Aqui les dejo el metodo paso por paso....

trabajando con Formularios de VB
Ahora realizaremos un formulario para poder entrar a nuestro ejercicio anterior, utilizando visual basic, ademas agregaremos un saludo de bienvenida, un usuario y contraseña que deben ser correctos para que podamos pasar el formulario final que nos llevara a la factura, el detalle, la cotizacion o el registro, y tambien tendra un boton de ayuda y un boton de salir.

Para este formulario necesitamos crear un nuevo documento desde el cual abriremos en formulario en el cual utilizaremos varias funciones que son muy utilies y aprenderemos como utilizar los UserForm, la funcion If, los textbox messages entre otros.

El primer paso es crear un nuevo documento...