Encontrar coluna onde a soma atende à condição?

Question

Ter uma planilha com recursos e semana junto com disponibilidade por semana (horas). Assim.

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

Em outra tabela eu tenho os dados dele

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

As horas planejadas vêm do sistema de projeto/ticket de horas, a semana de início e término é inserida manualmente. As horas disponíveis e a diferença são calculadas a partir da primeira tabela.

Resolvi tudo menos a última coluna onde preciso de ajuda. Como encontrar a semana em que os recursos disponíveis na primeira tabela se somam e são grandes o suficiente para cobrir as horas planejadas. Preciso dessa coluna e coloco a semana na coluna actualendweek?

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

O uso seria =LeastFactors(Sheet1!B2:B40,Sheet2!B2)fornecer quantas semanas você precisaria. Ele retornará zero se não conseguir encontrar uma resposta