- Primero haremos nuestro esquema:
- Ahora presionaremos ATL+F11
- Ahora damos clic en la opción insertar USEFORM
- Ahora llenamos con NOMBRE, SUELDO, HORAS_EXTRAS, NO. DE HORAS Y BONIFICACION Y LE PONEMOS UN BOTÓN
- Ahora damos doble clic al botón, y escribimos los criterios y coman dos
Private Sub CommandButton1_Click()
[A2] = TextBox1
[b2] = TextBox2
[c2] = TextBox5
[E2] = TextBox3
[g2] = TextBox4
[d2] = Val([E2]) / 30 / 8 * Val([g2])
[f2] = Val([E2]) * 0.0483
[h2] = Val([E2]) + Val([d2]) - Val([f2])
Range("a2").Select
Selection.EntireRow.Insert
Range("a3").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox5 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Y por ultimo le damos clic en EJECUTAR
No hay comentarios:
Publicar un comentario