Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Ejemplo de do loop

Ejemplo de Do loop aplicado para Rellenos de Información Personal

| 0 comments

En esta oportunidad, se presentará un caso que ayuda a muchos en lo que se conoce como “Completar Datos Personales”, de cualquier tipo de evento, ya sea ésta una lista de alumnos o trabajadores de alguna empresa u otro sector. El fin del siguiente ejemplo es ir llenan un cuadro con la información del personal con el que uno cuenta.

Imaginemos que yo soy el tutor de un salón y trabajo para una Academia, y al conocer a mis nuevos alumnos necesito sus datos personales como especialidad, edad, fecha de cumpleaños, etc.  Para ir teniendo en cuenta sobre cómo puedo orientarlos en su camino del Ingreso a la Universidad. Podríamos tener un cuadro como el siguiente

Ejemplo de do loop 01

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

El trabajo consiste en llenar este cuadro ordenadamente (alumno por alumno) para luego ponerlo en un registro oficial y guardarlo en la base de datos de la Academia por si se desea contar con ellos a futuro, por ejemplo, como docentes. El aplicativo Do Loop nos permite el proceso de ir llenando este cuadro, añadiendo los tópicos que se nos interese tener en cuenta mediante la orden que se le de al MACROS. En nuestro caso, el archivo en VBA es el siguiente

Sub Ejercicio_2()
Dim Nombre As String
Dim Ciudad As String
Dim Edad As Integer
Dim Fecha As Date
Dim Especialidad As String

Worksheets(“Hoja1”).Activate

ActiveSheet.Range(“A2”).Activate
Nombre = InputBox(“Entre el Nombre (Return para Terminar) : “, “Nombre”)

Do While Nombre <> “”
Ciudad = InputBox(“Entre la Ciudad : “, “Ciudad”)
Edad = Val(InputBox(“Entre la Edad : “, “Edad”))
Fecha = CDate(InputBox(“Entra la Fecha : “, “Fecha”))
Especialidad = InputBox(“Entre el Especialidad : “, “Especialidad”)

With ActiveCell
.Value = Nombre
.Offset(0, 1).Value = Ciudad
.Offset(0, 2).Value = Edad
.Offset(0, 3).Value = Fecha
.Offset(0, 4).Value = Especialidad

End With

ActiveCell.Offset(1, 0).Activate
Nombre = InputBox(“Entre el Nombre (Return para Terminar) : “, “Nombre”)
Loop
End Sub

De querer, podría añadirse más tópicos de Datos Personales, pero para este ejemplo es suficiente. En otros casos como el completar planillas, o rellenar un formulario, etc. las preguntas o tópicos a llenar son mayores y quizá más complejos.

Se deja el siguiente archivo como ejemplo para poder probar la aplicación, saldría algo como lo que se presenta a continuación.

Ejemplo de do loop 02

El archivo de prueba es el siguiente:

Aplicacion de Relleno de Informacion Personal

 

Elaborado por: Hugo Fuentes Dávila

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5