Excel Avanzado

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

Excel Avanzado

Ejemplo de With aplicado al registro de Horas de Trabajo de Equipos

| 2 comentarios

En las plantas industriales uno de los índices que se utilizan para evaluar la gestión del mantenimiento de los equipos rotativos es la Disponibilidad.

Se define la Disponibilidad por la cantidad de tiempo que el equipo está operativo (y/o en Stand By) entre el tiempo total. No se considera al equipo en estas condiciones si está en mantenimiento preventivo (que implica parada del equipo), mantenimiento correctivo (por alguna falla del mismo) o Fuera de Servicio.

Se ha generado un Formulario en el que se ingresa las Horas detalladas para dos equipos. En ese formulario se ingresa la fecha a la que corresponde la data, se elige el equipo y los datos de las horas según lo indicado líneas arriba.

Se verifica que la fecha sea correcta (en formato), considerando la cantidad de días dependiendo del mes:

Ejemplo de fomulario con with VBA 01

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

Este formulario debe llenarse diariamente, por lo que las Horas indicadas deben sumar 24, se verifica esto:

Ejemplo de fomulario con with VBA 02

Tras ello se corrobora que la data a ingresar corresponda a la fecha siguiente en la tabla de datos. Es decir que si en la tabla de datos se ha ingresado data hasta el 15 de Enero, la fecha en el formulario debe corresponder al 16 de enero:

Ejemplo de fomulario con with VBA 03

Finalmente se puede apreciar el formulario con la Disponibilidad Calculada; tanto la diaria (que corresponde a los datos ingresados en el día) como la Histórica, que es un promedio de la Disponibilidad ingresada hasta la fecha.

Ejemplo de fomulario con with VBA 04

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

Se adjunta el archivo , donde se puede apreciar la data que se ha generado para cada equipo en hojas diferentes

Ejemplo de With aplicado al registro de Horas de Trabajo de Equipos

El ingreso de datos se consigue dando click al botón en la primera hoja. En las hojas Equipo 1 y Equipo 2, se observará el ingreso de los datos de manera automática, dependiendo del equipo que se haya seleccionado.

 

Elaborado por: Christian Prieto

2 comentarios

  1. El mensaje esta muy bueno pero creo que, cuando sale el mensaje de que las horas ingresados deben sumar 24 no debe ejecutar ninguna acción en este caso si lo hace, seria cuestión hacer una condición para que solo verifique la disponibilidad cuando las horas sumes 24.

  2. como hago esta formula en una macro:
    IF(AND(G4>=ENT1,G4<=SAL1)=TRUE,1,2)

    =IF(H4=1,SAL1-G4,MOD(SAL2-G4,1))

Deja una respuesta

Los campos requeridos estan marcados con *.