VBA for dividing values in range if greater than x

Hi all.

I'm searching for a VBA that looks for values in a range that are greater than a given value, and if found, divides them by 60. I have one that replaces zero's with blank as follows:

Please Login or Register  to view this content.

As such, I was imagining that the following code would work:

Please Login or Register  to view this content.

Now the experts amongst you will already know that doesn't work. Please help the people in the class not noted as 'gifted and talented' to understand why!


Thanks in anticipation,

Frustrated James

It sure looks like it should work. I guess I'm not an expert.

The syntax of your code is fine. Are you trying to do something with time values and not getting the desired result? If yes, please expand.

The code may throw an error if you have any values in the range that are formula error values.

Yeah, I would guess the rng values in the range aren't numbers, like maybe they are text strings or something?

Originally Posted by ThirdFret

Worked fine for me...

Wait! I broke it!

It looks like it doesn't work when there are text values included in the range A1:AK25.

Just add "On Error Resume Next" at the beginning of the macro and it'll happily skip those pesky text-filled cells.

Please Login or Register  to view this content.

Hope that helps!