VBA Help, Please! Rounding In A Data Array Inconsistent

[milwphil]

I'm working with a spreadsheet that is not rounding consistently. If I cut and paste 1.5 it rounds to 2 (which is correct, .5 should round to 1). However, if I cut and paste .5, it rounds to 0.

Any insight....WOULD BE GREATLY APPRECIATED...I'm fresh out of ideas!

If Val(dataArray(tmpRow, tmpCol)) <> Val(WorksheetFunction.Round(Val(dataArray(tmpRow, tmpCol)), 0)) Then
                    cellWarning = True
                    Call updateWarnText(tmpRow, tmpCol, "Number of Levels, was changed from " & dataArray(tmpRow, tmpCol) & " to " & [B][COLOR=red]Round(Val(dataArray(tmpRow, tmpCol)), 0))[/COLOR][/B]
                    dataSheet.Cells(tmpRow, tmpCol).Value = Val(WorksheetFunction.Round(Val(dataArray(tmpRow, tmpCol)), 0))
                    dataSheet.Cells(tmpRow, tmpCol).NumberFormat = "General"
                End If

 

[baitmaster]

2 initial thoughts:

- I notice you are using "worksheetfunction.round" elsewhere, but only "round" on the bit that you've highlighted

- are you using 0.5 or ".5"?

 

[GlennUK]

You are using WorkSheetFunction.Round in one place and the VBA function Round in the other.

 

[milwphil]

Thanks for the quick responses!

So would changing Round to Worksheet.Round potentially resolve the issue or am I about to enter a world of re-engineering this entire code?

I'm hoping replacing Worksheet.Round would resolve the issue.

I'll try it right now....and post my results.

THANKS AGAIN!