Question about converting data units

[Vermillion]

This is probably a dumb question but I have a large set of numbers in an excel spreadsheet that are in the wrong format for what I need (ng/ml instead of uM/L).

Is there a simple way to convert all the numbers in the spreadsheet? I know what formula to use, just no how to easily apply it to all cells.

Thanks!

 

[offthelip]

very easy to do this with a macro:

Sub test()
inarr = Range("A1").CurrentRegion
 For i = 1 To (UBound(inarr, 1))
   For j = 1 To UBound(inarr, 2)
    ' put your equation here
    inarr(i, j) = 32 * (inarr(i, j)) / 30
   Next j
  Next i
Range("A1").CurrentRegion = inarr


  
End Sub

 

[Vermillion]

Thanks for the prompt reply! Unfortunately, I'm not sure what to do with that info. I tried to create a macro (using online instructions, but nothing happened. Is the only thing I change in your code the equation or do other parameters need to be altered as well?

 

[offthelip]

You don't need to change anything else in the macro, when you say nothing happened are you sure that you ran the macro?

try adding this msgbox line, this will thorw up a msgbox before running it, you click Ok to run. if you don't get the message box the macro isn't running

Sub test()
Msgbox("macro will change all the numbers")
inarr = Range("A1").CurrentRegion
 For i = 1 To (UBound(inarr, 1))
   For j = 1 To UBound(inarr, 2)
    ' put your equation here
    inarr(i, j) = 32 * (inarr(i, j)) / 30
   Next j
  Next i
Range("A1").CurrentRegion = inarr




  
End Sub

 

[Vermillion]

I got a macro to work, but I must be inputting the equation incorrectly because the new numbers don't make sense. I want each cell to be divided by 1000 and multiplied by 2.45

 

[offthelip]

this should multiply by 2.45 and divide by 1000

Sub test()
Msgbox("macro will change all the numbers")
inarr = Range("A1").CurrentRegion
 For i = 1 To (UBound(inarr, 1))
   For j = 1 To UBound(inarr, 2)
    ' put your equation here
    inarr(i, j) = 2.45 * (inarr(i, j)) / 1000
   Next j
  Next i
Range("A1").CurrentRegion = inarr
  
End Sub

 

[Vermillion]

Thanks so much, offthelip. You are a lifesaver (or, at the very least, a time saver!)