Calculo de vacaciones contando desde fecha fin

Quiero saber la fecha de inicio teniendo la fecha de fin y la cantidad de días (no laborables) de mis vacaciones.-

1 respuesta

Respuesta
2

Pon la siguiente función en un módulo.

Function Fecha_Inicio(fecfin As Range, dias As Range)
  Dim i As Long
  Dim fecha As Date
  fecha = fecfin
  If Not IsDate(fecfin) Then
    Fecha_Inicio = "Error fecha fin"
    Exit Function
  End If
  If dias < 1 Then
    Fecha_Inicio = "Error cantidad de dias"
    Exit Function
  End If
  Do While True
    If Weekday(fecha, vbMonday) < 6 Then
      i = i + 1
      If i = dias Then Exit Do
    End If
    fecha = fecha - 1
  Loop
  Fecha_Inicio = fecha
End Function

Sigue las Instrucciones para una Función

  1. Abre tu libro de excel
  2. Para abrir VBa y poder pegar la función, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la función
  5. En cualquier celda utiliza la función, como cualquier otra función de excel

Ejemplo:

En la celda C2 puse la fórmula

=Fecha_Inicio(A2,B2)

Si la fecha final es 15 de abril y los días son 10, entonces la fecha inicial es 2 de abril.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas