Localizar coluna onde soma é condição de reunião?

Question

A ter uma folha com recursos e semana, juntamente com availabilty 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  ?

O horário planejado vem do sistema de projeto / ticket, a semana inicial e final é inserida manualmente. As horas disponíveis e o diff são calculados a partir da primeira tabela.

Resolvi tudo, menos a última coluna em que preciso de ajuda. Como é possível encontrar a semana em que os recursos disponíveis na primeira tabela resumem e são grandes o suficiente para cobrir as horas planejadas. Eu preciso daquela coluna e coloco a semana na coluna realendweek?

    

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) para lhe dar quantas semanas você precisaria. Ele retornará zero se não conseguir encontrar uma resposta