Publicaciones anteriores hemos hablado de la capacidad del USERFORM o FORMULARIO la cual consiste en recolectar de manera sencilla la información y reducir las tareas repetitivas.

CASO REGISTRO DEL PRECIO DE CAPACITACIÓN PARA EMPLEADOS

En esta ocasión se requiere un registro para las capacitaciones de cada empleado por área de trabajo, además podremos calcular el costo y elegir entre tres horarios para llevar a cabo dicha capacitación. Hay que recordar que para este ejercicio la tarifa única es de dos dólares por minuto.

El diseño del formulario será el siguiente:

Con el cuadro de herramientas insertamos 5 Label, 1 Combobox, 4 CommandButton, 1 Frame, 2 TextBox, 3 OptionButton y un listbox.

A continuación, vamos a mostrar las propiedades de los 17 objetos insertados en el formulario:

CÓDIGO TOTAL DEL FORMULARIO

Para empezar, nombramos nuestra variable general:

Dim Precio As Double

CÓDIGO USERFORM – EVENTO INITIALIZE

Private Sub UserForm_Initialize()

‘Calcular la última fila de la hoja2(«BD»)

ultfila = Hoja2.Range(«A» & Rows.Count).End(xlUp).Row

‘Bucle para cargar los datos al combobox

For i = 2 To ultfila

cboArea.AddItem Hoja2.Cells(i, «A»).Text

Next i

End Sub

CÓDIGO BOTÓN “MOSTRAR RESUMEN”

Private Sub btnMostrar_Click()

‘Bucle para corregir errores en los campos

‘De nombre, DNI, destino y hora de capacitación

If Trim(txtNombre.Text) = Empty Then

MsgBox «Ingresar el nombre»

Exit Sub

End If

If txtDni.Text = Empty Then

MsgBox «Ingresar DNI»

Exit Sub

End If

If Not IsNumeric(txtDni.Text) Then

MsgBox «El DNI debe ser un número»

Exit Sub

End If

If cboArea.ListIndex = -1 Then

MsgBox «Escoger Área»

Exit Sub

End If

If opt9.Value = False And opt2.Value = False And opt7.Value = False Then

MsgBox «Escoger la hora de capacitación»

Exit Sub

End If

‘Capturando el área, nombre y DNI seleccionado

Nombre = txtNombre.Text

DNI = txtDni.Text

Area = cboArea.Text

‘Determinar la duración de la capacitación por área

Select Case Area

Case «Marketing»: Minutos = 30

Case «R.R.H.H.»: Minutos = 40

Case «Ventas»: Minutos = 50

Case «Finanzas»: Minutos = 60

End Select

‘Calcular el precio de las capacitaciones

Tarifa = 2

Precio = Minutos * Tarifa

‘Evaluar la hora de capacitación

If opt9.Value = True Then

HC = opt9.Caption

ElseIf opt2.Value = True Then

HC = opt2.Caption

ElseIf opt7.Value = True Then

HC = opt7.Caption

End If

‘Imprimir en la lista (resumen de capacitación)

lstR.Clear

lstR.AddItem «***RESUMEN CAPACITACIÓN***»

lstR.AddItem «NOMBRE: » & Nombre

lstR.AddItem «DNI: » & DNI

lstR.AddItem «ÁREA: » & Area

lstR.AddItem «HORA DE CAPACITACIÓN: » & HC

lstR.AddItem «MINUTOS: » & Format(Minutos, «0»)

lstR.AddItem «TARIFA POR MINUTO: » & Format(Tarifa, «$#,##0.00»)

lstR.AddItem «PRECIO: » & Format(Precio, «$#,##0.00»)

End Sub

CÓDIGO BOTÓN “ANULAR REGISTRO”

Private Sub btnAnular_Click()

‘Limpiar los cuadros de texto

txtNombre.Text = Empty

txtDni.Text = Empty

‘Limpiando el combobox

cboArea.ListIndex = -1

‘Deshabilitar los botones de opción

opt9.Value = False

opt2.Value = False

opt7.Value = False

‘Limpiar el resumen de la lista

lstR.Clear

End Sub

CÓDIGO BOTON “SALIR”

Private Sub btnSalir_Click()

‘Salir del formulario

Unload Me

End Sub

CÓDIGO BOTÓN “ENVIAR A EXCEL”

Private Sub btnEnviarExcel_Click()

‘Calcular la última fila de la hoja1(registro)

ultfila = Hoja1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

‘Bucle para corregir errores en los campos

‘De nombre, dni, destino y hora de capacitación

If Trim(txtNombre.Text) = Empty Then

MsgBox «Ingresar el nombre»

Exit Sub

End If

If txtDni.Text = Empty Then

MsgBox «Ingresar DNI»

Exit Sub

End If

If Not IsNumeric(txtDni.Text) Then

MsgBox «El DNI debe ser un número»

Exit Sub

End If

If cboArea.ListIndex = -1 Then

MsgBox «Escoger Área»

Exit Sub

End If

If opt9.Value = False And opt2.Value = False And opt7.Value = False Then

MsgBox «Escoger la hora de capacitación»

Exit Sub

End If

‘Enviar los valores del listbox a la hoja

Hoja1.Cells(ultfila, 2).Value = ultfila – 5

Hoja1.Cells(ultfila, 3).Value = txtNombre.Text

Hoja1.Cells(ultfila, 4).Value = txtDni.Text

Hoja1.Cells(ultfila, 5).Value = cboArea.Text

Hoja1.Cells(ultfila, 7).Value = Format(Precio, «$#,##0.00»)

If opt9.Value = True Then Hoja1.Cells(ultfila, 6).Value = opt9.Caption

If opt2.Value = True Then Hoja1.Cells(ultfila, 6).Value = opt2.Caption

If opt7.Value = True Then Hoja1.Cells(ultfila, 6).Value = opt7.Caption

‘Alinear al centro

Hoja1.Cells(ultfila, 2).HorizontalAlignment = xlCenter

Hoja1.Cells(ultfila, 3).HorizontalAlignment = xlCenter

Hoja1.Cells(ultfila, 4).HorizontalAlignment = xlCenter

Hoja1.Cells(ultfila, 5).HorizontalAlignment = xlCenter

Hoja1.Cells(ultfila, 6).HorizontalAlignment = xlCenter

Hoja1.Cells(ultfila, 7).HorizontalAlignment = xlCenter

‘Aplicar bordes a los valores ya insertados en la hoja

Range(Cells(ultfila, 2), Cells(ultfila, 7)).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlcontinous

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

End With

End Sub

MACRO PARA EJECUTAR EL FORMULARIO

Sub ABRIR_FORM()

‘Mostrar el formulario en pantalla

frmCapacitacion.Show

End Sub

Para ejecutar esta macro vamos a insertar un botón – Control de formulario como este:

Para aprender como insertar un botón – Control de Formulario te dejo aquí el enlace.

Hemos logrado crear una herramienta que logre facilitar la tarea de registrar y calcular con ayuda del Userform.