Formulario en VBA Aplicado al Registro de Nuevos Trabajadores

El uso de Formularios en el Excel nos permite llevar un registro claro de información histórica para cualquier tipo de negocio,empresa o tema en especifico que querramos aplicarlo. También nos permite realizar cálculos o transformaciones de un tipo de unidad a otra por tanto utilizar los formularios en VBA es muy útil ya que nos ayudara para cualquier tema de registro de información o cálculos especializados que necesitemos realizar y así lograr bases de datos muy importantes o encontrarle alguna utilidad matemática.

En este Caso desarrollaremos un Formulario el cual nos permita registrar nuevos trabajadores ingresantes a la empresa y así logremos llevar una base de datos del total del personal de la empresa esta es una herramienta muy útil que cualquier empresa,negocio o institución necesita para su día a día y para lograr procesos mas eficientes. Un área que siempre necesita este tipo de programación es el área de recursos humanos de una empresa. A continuación veamos como sale nuestro Formulario:

:

(Para mayor visualización de la imagen, hacer click en la misma)

En el Formulario se pueden llenar todos los datos correspondientes al trabajador y luego se presiona la opción Guardar registro para que pase a almacenarse a la hoja de registro de trabajadores en la cual toda la información quedara almacenada de esta manera:

(Para mayor visualización de la imagen, hacer click en la misma)

Así podremos almacenar toda la Información de los nuevos trabajadores para la empresa. Los códigos utilizados en el VBA son los SGTS:

Private Sub CommandButton1_Click()

If IsNumeric(TextBox3.Text) Then
GrabaRegistro
Else
MsgBox "Edad Invalida"
End If

End Sub

Private Sub CommandButton2_Click()
Sheets("Registro").Select
UserForm1.Hide
End Sub

Private Sub UserForm_Activate()

ComboBox1.AddItem ("Indeterminado")

ComboBox1.AddItem ("2 años")
ComboBox1.AddItem ("1 año")
ComboBox1.AddItem ("6 meses")

ComboBox2.AddItem ("Universitario Completo")

ComboBox2.AddItem ("Universitario Incompleto")
ComboBox2.AddItem ("Bachiller")
ComboBox2.AddItem ("Tecnico")

End Sub

Sub GrabaRegistro()
Sheets("Relacion de Trabajadores").Select
ult = Cells(Rows.Count, 5).End(xlUp).Row
Cells(ult + 1, 2) = TextBox1.Text
Cells(ult + 1, 3) = TextBox2.Text
Cells(ult + 1, 4) = TextBox3.Text
Cells(ult + 1, 5) = ComboBox1.Text
Cells(ult + 1, 6) = ComboBox2.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""

End Sub

 

Con estos códigos podemos lograr crear este útil formulario espero les sea de mucha utilidad la publicación aquí encontraran el link correspondiente.

 

Saludos

 

Elaborado por : César Alfredo Valencia Doig.

Formulario VBA Aplicado al Registro de Nuevos Trabajadores