Comments on: Inventory Freight Calculation

By: Simon

Simon — Sat, 06 Feb 2010 04:21:00 +0000

This is very handy , I plan to utilise in my excel planning for freight Cheers Simon Australia

By: Ian Brown

Ian Brown — Wed, 28 Oct 2009 18:08:00 +0000

Unfortunately the formulae given can result in rounding errors. Consider 3 line items each for 100 and freight of 10. A formula of C3 =IF(ISBLANK(B4),0,ROUND(Freight*(SUM($B$3:B3)/SUM(LineItems)),2)-SUM($C$2:C2)) will return freight amounts of 3.33, 3.34 and 3.33. Arbitrary, but everything balances!

By: Paul Hollinger

Paul Hollinger — Sat, 18 Apr 2009 13:52:00 +0000

I do this kind of allocation often enough and in enough varied situations that I've added an array function to my addins to do it. That lets me select the output range and type a single formula directly into whatever sheet I'm working on. In many cases I'll immediately copy and paste values to eliminate the formula. In your application, you'd still need to add the distributed freight to the line items (or modify the function to do it).

Public Function Dist(dTotal As Double, baseDist As Variant, Optional rDigits As Integer = 2) As Variant
' Array function, select destination range first, end with Ctrl-Shft-Enter
' Distributes 1st argument (scalar) like 2nd argument (column range) into
' selected column range, rounding to rDigits digits.

Dim baseArray As Variant
Dim dRatio As Double
Dim i As Long

baseArray = Application.Transpose(baseDist)
dRatio = dTotal / Application.Sum(baseArray)

For i = 1 To UBound(baseArray)
baseArray(i) = round(baseArray(i) * dRatio, rDigits)
Next i

Dist = Application.Transpose(baseArray)

End Function

By: DaveP

DaveP — Sat, 18 Apr 2009 02:51:00 +0000

Alternatives
a)
C3 =(B4>0)*(LOOKUP(BigNum,$B:$B)/(SUM(B:B)-LOOKUP(BigNum,$B:$B))*B3)

or with a Named Range "Freight" =LOOKUP(BigNum,Sheet1!$B:$B)

C3 =Freight/(SUM(B:B)-Freight)*B3

b)
The Freight Column is not required:

Without separating the freight the formula is

=(B4>0)*(1+Freight/(SUM(B:B)-Freight))*B3