¿Cómo calcular la asistencia usando Excel? Tales como: horas de retraso, horas de salida anticipada, horas extras.

¿Crear fila auxiliar? Ingrese su horario comercial habitual y su horario libre.

¿Insertar botón de control de formulario? Ingrese el código a continuación.

¿Al presionar el botón se generará automáticamente el tiempo por llegar tarde, salir temprano y trabajar horas extras? Cada momento

A partir de ahora, sólo deberás introducir la fecha en la columna A, el tiempo de trabajo en la columna B y el tiempo libre en la columna C.

Simplemente presione el botón

i = range("a6000"). final (xlArriba). fila

i2 = rango("d6000"). final (xlArriba). Fila + 1

Para n = i2 a I

Si rango(" b " & ampn). valor & gt rango(" i2 ") luego

rango(" d " & ampn). valor = Ronda((Rango(" b " & n). Rango("i2"). Valor) * 24 * 60, 0)

Otro

Si... será fin

Entonces

i = range("a6000"). final (xlArriba). fila

i2 = rango("e6000"). final (xlArriba). Fila + 1

Para n = i2 a I

Si rango(" c " & ampn). valor <Range("j2") y luego

Rango("e"&n). Valor = Redondo((Rango("j2 "). Rango(" c " & ampn). Valor) * 24 * 60, 0)

Otro

Si... terminará

entonces

i = range("a6000"). final (xlArriba). fila

i2 = rango("f6000"). final (xlArriba). Fila + 1

Para n = i2 a I

Si rango(" c " & ampn). valor & gt rango(" j2 ") luego

rango(" f " & ampn). valor = Redondo((Rango(" c " & n). RangoValor("j2").

valor)*24*60,0)

Otro

Terminará si...

Entonces