Dias Laborables Transcurridos - Excel - VBA

Necesito crear una fórmula que se actualice siempre cuando se ejecutan unos botones de comando cuando un # de consecutivo.

No me deja adjuntar el archivo de para mayor comprensión.

A continuación de los dos (2) escenarios.

Escenario #1: Cálculo de Tiempo de Revisión

  • Para la columna #157 siempre que en la columna 152 haya un dato se debe presentar el dato de días hábiles o días.lab transcurridos.
  • El consecutivo se actualiza cuando se ejecuta el botón de comando Completo a través del userform2.
  • En la hoja de Registro - donde se almacenan los datos - la Fecha de Inicio se obtiene de la columna # 7 y la Fecha Fin de la columna # 66.

Escenario #2 - Cálculo de Tiempo Transcurrido

  • Para la columna #158 siempre que en la columna 152 haya un dato se debe presentar el dato de días hábiles o días.lab transcurridos.
  • El consecutivo se actualiza cuando se ejecuta el botón de comando Completo a través del userform2.
  • En la hoja de Registro - donde se almacenan los datos - la Fecha de Inicio se obtiene de la columna # 66 y la Fecha Fin de la columna # 135 siempre que en la columna #156 el estatus sea Completado.
  • Si el estatus no es Completado la Fecha Fin cambia a la fecha de hoy - fórmula =hoy(). 

2 Respuestas

Respuesta

Este link te puede servir.

http://www.programarexcel.com/2013/04/determina-dias-laborales-entre-fecha-y.html?m=1

Respuesta

¿Quieres realizar para una fila o para todas las filas?

El botón esta en un formulario, lo presionas y dices que actualizas el consecutivo, si tienes la fila del consecutivo entonces puedes hacer esto:

Ejemplo:

Sub Macro5()
'Por.Dante Amor
    f = ActiveCell.Row
    If Cells(f, 156) = "Completado" Then
        Cells(f, 157) = Application.NetworkDays(Cells(f, 66), Cells(f, 135))
    End If
End Sub

espero tus comentarios

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas