Automatic Unit Conversions

[bobasfett]

Hi guys....got lots of help here with a cell formula last week and now I have another issue.......

In my pump spreadsheet, I currently have two cells for a user to input a required flow rate, one for l/min and one for gal/min. The user can enter a value in either cell, and the other one automatically converts the value. I am using the following VB program to allow this:

Application.EnableEvents = False
Select Case Target.Address
Case "$G$8": [G9] = [G8] * 0.26417
Case "$G$9": [G8] = [G9] / 0.26417
End Select
Application.EnableEvents = True

Now, I want to give the user a third possible input flow rate cell, m3/hr, and have it adjust the other two cells. Likewise, if either of the first two cells are changed, I want this cell to update. I have an idea on how to do this but I am and excel and VB novice so I figured this was the best place to get help.

Thanks in advance guys!

[bobasfett]

Figured it out.....had to tie the new cell to both prior cells and the conversions. Not sure if there is a more simpler method but this one works:

Application.EnableEvents = False
Select Case Target.Address
Case "$G$8": [G9] = [G8] * 0.26417
Case "$G$9": [G8] = [G9] / 0.26417
End Select
Application.EnableEvents = True
Application.EnableEvents = False
Select Case Target.Address
Case "$G$9": [G10] = [G9] * 0.22713
Case "$G$10": [G9] = [G10] / 0.22713
End Select
Application.EnableEvents = True
Application.EnableEvents = False
Select Case Target.Address
Case "$G$8": [G10] = [G8] * 0.06
Case "$G$10": [G8] = [G10] / 0.06
End Select
Application.EnableEvents = True