Stok Yeterlilik Hesaplama - Excel Ya Da Vba

[hmtstc]

Merhaba,

Ekteki dosyada anlatmaya çalıştım ancak burada da açıklamak istiyorum.
Yeterlilik satırında mevcut stok değerimin kaç haftayı kapattığını görmek istiyorum. VBA ya da formülasyon ikisinden birine razıyım.

Tablonun yeterlilik satırında gördüğünüz değerleri ben manuel hesapladım. İşte bu manuel hesaplanan değerlerin formülasyon ile gelmesi konusunda desteğinizi rica ederim.

 

[Korhan Ayhan]

Hesaplamaların mantığını açıklarsanız destek almanız kolaylaşır.

 

[ÖmerBey]

Merhaba,
31. haftadan itibaren sizin hesapla farklılık oluşuyor, deneyiniz...

Sub kod()
Dim stk As Long, stk1 As Long
Dim say As Double
Dim a As Integer, b As Integer

stk = Range("B2").Value
For a = 2 To Cells(4, Columns.Count).End(1).Column
    stk1 = stk
    say = 0
    b = a
    Do       
        If Cells(5, b) < stk1 Then
            say = say + 1
            stk1 = stk1 - Cells(5, b)
            b = b + 1
        Else
            say = say + stk1 / Cells(5, b)
            Exit Do
        End If
    Loop Until Cells(4, b) = ""
    Cells(7, a) = say
    stk = stk - Cells(5, a) + Cells(6, a)
Next
End Sub