Macro to Divide certain numbers on a worksheet by 640

[seanmodj]

I need a macro code to divide select numbers on a worksheet by 640 and then go back and multiply them by 640. I need it to be with a button somehow that gives me the option to click it to do one and click the other option (or unclick) the button to multiply the numbers (which will be referenced in the code) to 640, reverting it back to what it originally was. Please guys, this would be absolutely phenomenal if anyone could at least help steer me in the right direction!

 

[Rick Rothstein]

I need a macro code to divide select numbers on a worksheet by 640 and then go back and multiply them by 640.

What so you mean by "select numbers"? Do you mean the values in cells that you have selected or so you mean certain types of number? If the former, will they still be selected when you execute the macro to restore them? If the latter, what quality makes them "select numbers"?

 

[seanmodj]

Thank you for the response Mr. Rothstein! I am referring to the values in cells that I have selected, they will still be selected when I execute the macro. These are cells that I need to continuously be able to divide by 640 and go back and revert them to original by multiplying by 640. Thank you so much my friend!!

 

[Rick Rothstein]

Thank you for the response Mr. Rothstein! I am referring to the values in cells that I have selected, they will still be selected when I execute the macro. These are cells that I need to continuously be able to divide by 640 and go back and revert them to original by multiplying by 640. Thank you so much my friend!!

You did not answer my second question... will these cells still be selected when you revert them back to their original values?

 

[seanmodj]

Yes they will.

 

[Rick Rothstein]

Yes they will.

Give these macros a try...

Sub DivideBy640()
  Dim Cell As Range
  For Each Cell In Selection
    Cell.Value = Cell.Value / 640
  Next
End Sub

Sub MultiplyBy640()
  Dim Cell As Range
  For Each Cell In Selection
    Cell.Value = Cell.Value * 640
  Next
End Sub