Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
UDF #VALUE!
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
UDF #VALUE!
Nevermind. The last Roundit needed to change to a SUMIT and adding an
AS Double behind the function seems to have done the trick on fixing the error. Sorry, 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|