Toplam Kalori Al, Yemek Adına ve Gramaja Göre

[1Al2Ver]

Merhaba,

B2:B2000 aralığındaki yemeklere ait ;

O2:2000 aralığında gramaj kalorileri var,

F2:F2000 aralığında gramajlar var,

Her yemeğin toplam kalorisini, yemeğin ilk satırına ( K2, K10, K18 gibi ) almak istiyorum.

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

-- MAKRO:

Sub KALORI()
Range("K2:K" & Cells(Rows.Count, 2).End(3).Row).ClearContents
For sat = 2 To Cells(Rows.Count, 2).End(3).Row
    If Evaluate("=B" & sat - 1 & "<>B" & sat) Then
    For satt = sat To Cells(Rows.Count, 2).End(3).Row
        If Evaluate("=B" & sat & ":B" & sat & "=B" & satt & ":B" & satt) Then
            Cells(sat, "K") = Cells(sat, "K") + Cells(satt, "N") * Cells(satt, "F") / 100
        Else
            sat = satt - 1: Exit For
        End If
    Next
    End If
    If sat = Cells(Rows.Count, 2).End(3).Row Then Exit For
Next
End Sub

-- FORMÜL:

=EĞER(EĞERSAY($B$2:B2;B2)=1;ETOPLA($B$2:$B$28;B2;$O$2:$O$28);"")

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Çok teşekkür ederim, hem makro hem formül için.

Sağ olun.

Saygılarımla.

 

[Ömer BARAN]

Kolay gelsin.