RoundDown Function Not Working In My VBA Code

[drmingle]

Objective: to let solver do its thing, but after solver runs to have the value in C5 to be rounded down.

Example: After solver runs ("C5" = $3,012.63); I need it to display as ("C5" = $3,012).

The below code works for with the exception of the my attempt in red:

Sub Calc_SingleServDollar()
 
Application.ScreenUpdating = False
If Error Then GoTo SingleServDollar
''Routine performed on SinglePerDieam tab
    With Worksheets("SinglePerDiem")
''Reset Solver Function
        Application.Run "SolverReset"
''Executing Solver Function without pulling standard user report
        Application.Run "SolverOK", "E5", _
                 3, _
                 Range("E4").Value, _
                 "C5"
''Executing Solver Function without pulling standard user report
        Application.Run "SolverSolve", True
                Range("C2").Formula = "=NOW()"
 
'' Message to user declaring the Target Dollars and Optimized Case Rate
        MsgBox Prompt:=.Range("B2").Value & " " & .Range("C2").Value & vbLf & vbLf & _
                       "Target Dollars: " & Format(.Range("E4").Value, "currency") & vbLf & vbLf & _
                       "Optimized Proposed Rate: " & Format(.Range("C5").Value, "currency"), _
               Buttons:=vbOKOnly, _
               Title:="APS Pricer: Single Per Diem"
    End With
 
[COLOR=red]Range("C5") = Application.RoundDown(C5, 0)[/COLOR]
 
Exit Sub
SingleServDollar:
    MsgBox "Error with Solver Function being used within Single Service Dollar."
 
Application.ScreenUpdating = True
End Sub

I am using excel 2007.

All help is appreciated!

 

[jproffer]

It may be the same thing (same arguments), or may not, but take out the "Application" and it should work.

 

[xenou]

Range("C5") = Application.RoundDown(C5, 0)

Pass a range to the worksheet function, not C5 (which is probably interpreted here as zero or null):

Range("C5") = Application.RoundDown(Range("C5"), 0)

 

[Scott Huish]

Why not just use the VBA function Int?

Range("C5")=Int(Range("C5"))

 

[drmingle]

Wonderful solutions...

Thank you.

 

[jproffer]

I don't know what I was thinking. Disregard my post. Getting my WS functions and VBA functions mixed up.

Maybe I need a vacation

Anyhow, sorry for any trouble I may have caused the OP.

 

[xenou]

^^

I don't know what I was thinking.

I was scratching my head on that one too ...

 

[jproffer]

Long day I guess ...some days I wonder if I do more harm than good (on here I mean)

Hopefully I don't cause any permanent data loss