He estado intentando realizar un clon de la función DIAS.LAB
en excel que consiste en calcular la fecha pasados 45 días sin contar fines de semana y días festivos. Pero resulta que mi código si puede funcionar si lo corro como un sub y mandando a llamar a mis funciones, sin embargo si mando a llamar mi función desde excel solo me aparece #valor
no se a que se deba esto.
otro inconveniente que tiene mi código es que al ejecutarlo desde el sub
se modifica el valor de la casilla de donde tomo el valor a calcular.
Sub diasHabiles()
Range("c2") = fechaFinal(Range("b2"), Range("b2"), Range("g2:g58"))
End Sub
Public Function fechaFinal(fechaInicial As Date, fechaRango As Range, diasFeriados As Range) As Date
While diasPasados <> 45
If (Weekday(fechaRango) = 7 Or Weekday(fechaRango) = 1 Or
diaFeriado(fechaRango, diasFeriados)) Then
Else
diasPasados = diasPasados + 1
End If
fechaRango = fechaRango + 1
Wend
fechaFinal = fechaRango
End Function
Public Function diaFeriado(fechaInicia As Range, dias As Range) As Boolean
Dim rngAux As Range
Dim rngValue As Range
Dim Vbuscado As Range
Dim Vreferencia As Range
Set Vbuscado = fechaInicia
Set Vreferencia = dias
For Each rngAux In Vbuscado
Set rngValue = Vreferencia.Find(what:=rngAux.Value, MatchCase:=True, lookAt:=xlWhole)
If rngValue Is Nothing Then
diaFeriado = False
GoTo continue
End If
diaFeriado = True
continue:
Next rngAux
End Function
Lo que he visto yo por mi cuenta es que cuando pasa los valores a evaluarlos en la funcion diaFeriado en el momento que hace el Set rngValue = Vreferencia.Find
el no encuentra el valor y solo pasa un nothing aunque si se encuentre en mi matriz de referencia. ¿sería necesario que pasara mi función a una matriz para después compararla con la fecha evaluada? Alguien podría orientarme o ayudarme a solucionar mi duda. ¡Muchas gracias de antemano!