J
jlclyde
This function returns numbers when entered into the appropriate
cells. Then when other calculations are ran on other sheets, it bugs
out and changes to #VALUE! Can any one tell me why?
Thanks,
Jay
Function ThisThing(ItemNum As Range)
Dim InnerPack As Range, Pkgs As Range
Dim Match As Double, SumIt As Double
Set InnerPack = Sheet1.Range("W5", Sheet1.Range("W5").End(xlDown))
Set Pkgs = Sheet1.Range("D5", Sheet1.Range("D5").End(xlDown))
Match = InnerPack.Find(ItemNum.Value).Offset(0, -8).Value
SumIt = Application.SumIf(InnerPack, ItemNum, Pkgs)
ThisThing = Application.WorksheetFunction.RoundUp(RoundIt / Match,
0)
End Function
cells. Then when other calculations are ran on other sheets, it bugs
out and changes to #VALUE! Can any one tell me why?
Thanks,
Jay
Function ThisThing(ItemNum As Range)
Dim InnerPack As Range, Pkgs As Range
Dim Match As Double, SumIt As Double
Set InnerPack = Sheet1.Range("W5", Sheet1.Range("W5").End(xlDown))
Set Pkgs = Sheet1.Range("D5", Sheet1.Range("D5").End(xlDown))
Match = InnerPack.Find(ItemNum.Value).Offset(0, -8).Value
SumIt = Application.SumIf(InnerPack, ItemNum, Pkgs)
ThisThing = Application.WorksheetFunction.RoundUp(RoundIt / Match,
0)
End Function