Retornando o cabeçalho da coluna quando a diferença progressiva de valores em uma linha se torna = 0

Question

Eu tenho uma tabela do Excel com o estoque inicial para um item e o consumo projetado com base nas datas correspondentes no cabeçalho. Eu gostaria de recuperar a data em que haverá uma falta calculando a diferença progressiva. Eu estou mostrando apenas uma linha, mas normalmente tenho cerca de 3000 linhas. Eu gostaria de encontrar uma fórmula que retorna a data da falta para cada linha.

Oqueeugostariadealcançaré:

• adicioneumacolunamostrandoadatadeescassez:
• adatacorrespondeaquandoaaçãoficaránegativa(vejaaimagemdecomoeucalculoisso)

Answer 1

Talvez isso possa ser feito com uma fórmula que emprega os tipos SUM, OFFSET e INDEX.
 No entanto, não me incomodo com fórmulas complexas e recorro a ALT + F11 .

Sub DateOfShortage()
    StartLine = 2
    EndLine = 6
    StartColumn = 3
    EndColumn = 7

    For Line = StartLine To EndLine
        Stock = Cells(Line, 2)
        For Column = StartColumn To EndColumn
            Stock = Stock - Cells(Line, Column).Value
            If Stock <= 0 Then
                Cells(Line, EndColumn + 1).Value = Cells(1, Column).Value
                Exit For
            End If
        Next Column
    Next Line
End Sub

Dados e resultados da amostra:

SevocêadicionarumalinhaCálculoparacadaitem,comomostradoemumadesuascapturasdetela,poderáobterfacilmenteadatadesejadacomumafórmuladematriz(aindaparecemuitocomplexaparameugosto):