En esta oportunidad, se presenta un modelo el cual puede ser utilizado para introducir la información del nuevo personal que llegue a una empresa y desee hacer sus prácticas pre o pro profesionales, o bien optar por un puesto de trabajo. Imaginemos que para quedar registrado en el sistema se hace una entrevista personal donde, aparte de dejar el CV, la personal que atiende debe llenar un pequeño cuadro donde indique la información más importante del interesado a laborar. La idea es que al ir llenando este pequeño cuadro, quede registrado en un archivo para posteriormente leer cuantos serán los entrevistados elegidos; el cuadro podría ser el siguiente:
(Para mayor visualización de la imagen, hacer click en la misma)
Ahora la idea es que al llegar una persona a registrarse se encuentra con el(la) encargado(a) y se procede a llenar el siguiente formulario, que solo contiene (en este caso) la información necesaria y suficiente a registrar.
(Para mayor visualización de la imagen, hacer click en la misma)
Una vez que se van llenando los datos en este cuadro, automáticamente se van añadiendo en una hoja de excel todo lo anteriormente descrito; lo que permitirá guardar la información para luego ser leída por el departamento de Recursos Humanos. Para este cuadro, se creo una aplicación USERFORM y se le añadió cuadros con etiquetas y espacios en blanco para el respectivo llenado de datos; la imagen de fondo solo es un aditivo para hacerlo un poco más presentable. Una vez llenado el cuadro, presionamos "INSERTAR" y la información del entrevistado quedará registrada en la base de datos y se pondrá nuevamente en el primer casillero a llenar para introducir un nuevo registro. El llenado quedará de la siguiente forma:
(Para mayor visualización de la imagen, hacer click en la misma)
El comando eb VBA para la aplicacion del formulario es el siguiente:
Private Sub CommandButton1_Click()
Rem
Selection.EntireRow.Insert
Rem Empty
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
Rem Textbox1.SetFocus
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A5").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B5").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C5").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("D5").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub
Private Sub TextBox5_Change()
Range("E5").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Se adjunta el archivo excel en MACROS, para poder aplicar el formulario esperando que sea de utilidad.
Formulario para Ingreso de Nuevo Personal
Elaborado por: Hugo Fuentes Dávila