¿Encontrar la columna donde la suma cumple la condición?

Question

A tener una hoja con recursos y semana junto con disponibilidad por semana (horas). Como esto.

Resource 1225 1226 1227 ... 1252
.NET     30   30   15   ... 30
Java     40   40   40   ... 40

En otra tabla tengo sus datos.

Resource PlannedHours StartWeek EndWeek AvailableHours Diff ActualEndWeek
.NET     326          1225      1242    400            76   ?    
Java     100          1225      1242    400            300  ?

Las horas planificadas provienen del sistema de tickets/proyecto de horas, la semana de inicio y fin se ingresan manualmente. Las horas disponibles y la diferencia se calculan a partir de la primera tabla.

He solucionado todo menos la última columna donde necesito ayuda. ¿Cómo se puede encontrar la semana en la que los recursos disponibles en la primera tabla se suman y son lo suficientemente grandes como para cubrir las horas planificadas? ¿Necesito esa columna y poner la semana en la columna de fin de semana real?

Answer 1

Function LeastFactors(MyArray As Range, Goal As Double) As Integer
Dim RunningTotal As Double
Dim i As Integer

For i = 1 To MyArray.Count
    RunningTotal = RunningTotal + WorksheetFunction.Large(MyArray, i)
    If RunningTotal >= Goal Then
        LeastFactors = i
        Exit For
    Else
        LeastFactors = 0
    End If
Next i
End Function

El uso sería =LeastFactors(Sheet1!B2:B40,Sheet2!B2)darle cuántas semanas necesitaría. Devolverá cero si no puede encontrar una respuesta.