Primero: deberemos crear nuestra base de datos en los cuales incluiremos algunos aspectos para contabilizar algunos pagos que se le hacen al trabajador.
Luego asignaremos una matriz a nuestros datos, denominándola con el nombre de "datos".
Luego en la segunda hoja escribiremos el encabezado de algunos datos que deberemos hallar.
Luego escribiremos algunas fórmulas para hallar nuestros valores, nos basaremos en la fórmula BuscarV que nos ayudara a encontrar valores desde la matriz.
Luego haremos una pequeña suma.
Luego calcularemos el IGGS.
y luego calcularemos el sueldo líquido.
De la misma manera colocaremos los mismos encabezados mas abajo.
Luego grabaremos una macro.
en la cuál copiaremos todos los datos de la fila 5.
generaremos un pegado especial.
y seleccionaremos valores para que no pegue la fórmula.
Luego de haber hecho esto crearemos nuestro formulario en visual basic pulsando Alt + F11
Insertaremos una etiqueta la cual nos permitirá escribir.
Crearemos la etiqueta del título y otras que necesitaremos.
Les asignaremos un nombre a nuestras etiquetas.
Las seleccionaremos y les pondremos un fondo transparente.
Luego podremos editar el tamaño y el tipo de letra.
luego podremos editar el color del texto.
luego insertaremos los cuadros de texto al lado de nuestras etiquetas.
Luego bloquearemos nuestros cuadros de texto para que nadie los pueda editar, excepto el del código.
le asignaremos una imagen de fondo a nuestro formulario para generar una mejor presentación.
Insertaremos 3 botones los cuales programaremos luego.
Y les podremos nombre.
Haremos doble click sobre el cuadro de texto que se encuentra al lado del código en este caso sera el Textbox1.
y luego escribiremos el siguiente código.
If Val(TextBox1) >= 6000 Then
[B5] = Val(TextBox1)
que dira: "si el valor del textbox 1 es mayor o igual que 6000 luego, que la celda B5 sea igual al valor del textbox1.
Luego haremos click sobre el modulo1 para poder ir y copiar la macro.
Luego regresaremos y pegaremos nuestra macro.
y luego escribiremos el siguiente código.
TextBox2= [C9] "el textbox2 tendrá el valor de la celda C9"
TextBox3 = [D9] "el textbox3 tendrá el valor de la celda D9"
TextBox4 = [E9] "el textbox4 tendrá el valor de la celda E9"
TextBox5 = [F9] "el textbox5 tendrá el valor de la celda F9"
TextBox6 = [G9] "el textbox6 tendrá el valor de la celda G9"
TextBox7 = [H9] "el textbox7 tendrá el valor de la celda H9"
End If "cerraremos el primer if que abrimos al inicio".
luego regresaremos al userform1 para programar nuestros botones.
Haremos doble click sobre el botón de Buscar otro.
La fórmula será:
Textbox1 = Empty "que limpiara el contenido del TextBox 1
y así sucesivamente.
Luego sobre el botón de cerrar para programarlo.
La fórmula será:
UserForm1.Hide "que ocultara el formulario.
Luego haremos doble click sobre el botón de salir y le colocaremos esta fórmula:
ActiveWorkbook.Close savechanges:=False "el cual nos sacará de excel".
Luego regresaremos a nuestra hoja 2 de excel para insertar un nuevo botón.
Haremos click sobre el y luego en asignar macro.
Y luego haremos click en nuevo.
Luego escribiremos la siguiente fórmula:
Userform1.Show
Luego podremos regresar a excel y probar que nuestro formulario si funciona.
No hay comentarios:
Publicar un comentario