Excel Avanzado

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

Excel Avanzado

UDF para hallar la cantidad de horas trabajadas

| 1 comentario

La siguiente UDF  nos permite obtener la cantidad de horas por metro cuadrado de cada personal o equipo para realizar las actividades de la partida.

Partida: Es el nombre del trabajo que se va ha realizar.

Ejemplo: Partida: Perfilado de terreno con tractor

Variable cuadrilla: La cuadrilla es el grupo de recursos que se utiliza para realizar los trabajos dentro de la partida.

Por ejemplo: Esta partida utilizará los siguiente cuadrilla.

Un (01) Capataz Un(01) Peón Un(01) Vigía Un(01) Operador de equipo pesado (01) Tractor sobre Orugas

Variable jornada: La jornada es la cantidad de horas trabajadas al día. En este caso utilizaremos 10 horas de trabajo.

Varibale Rendimiento: El rendimiento es el metrado o cantidad de trabajo que se realiza en una jornada laboral utilizando una cuadrilla especifica.

Función cantidad: Relaciona las siguientes variables: el valor de la cuadrilla, jornada y rendimiento de la siguiente manera.

cant = cuadrilla x jornada /rendimiento

Función Cantidad

Función Cantidad

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

Function cant(arg1, arg2, arg3)
resultado = ((arg1 * arg2) / arg3)
cant = resultado
End Function

Por consiguiente con este resultado multiplicado por el precio unitario o precio por hora puedo obtener el costo por unidad de la partida y sumadondo todos los costos obtengo como resltado final el precio por unidad de la partida.  Macros Analisis Precios Unitarios1

Un comentario

  1. Una aplicación adicional de esta función es que podrá utilizarse para determinar el rendimiento de los trabajadores según el estándar que maneje la empresa por actividad solo se tendría que agregar lo siguiente el siguiente código:

    Function cant(arg1, arg2, arg3)

    resultado = ((arg1 * arg2) / arg3)
    cant = resultado
    End Function

    Function parcial(arg1, arg2)
    resultado = arg1 * arg2
    parcial = resultado
    End Function

    Function EFICIENCIA(arg1, arg2)

    If arg1 < arg2 Then
    estado = "NO EFICIENTE"
    Else
    estado = "EFICIENTE"
    End If

    EFICIENCIA = estado
    End Function

Deja una respuesta

Los campos requeridos estan marcados con *.