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
- Abre tu libro de excel
- Para abrir VBa y poder pegar la función, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la función
- 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.