Sub show_values()
Dim rng As Range
Set rng = Range("A2:H2") 'adjust to suit
For Each Cell In rng
Cell.Formula = "=" & Cell.Offset(-1, 0).Value & "*3"
Next Cell
End Sub


Gord Dibben MS Excel MVP


On Sun, 20 Dec 2009 02:54:01 -0800, PL wrote:

Hi

Perhaps I have not been very clear. Let me illustrate with a more concrete eg.

In row 1, I have 1, 2, 5, 100, and other random numbers.

In row 2, I want 1*3, 2*3, 100*3 and so on.

But the difficulty is that I DON'T want only the final value in row 2. I
want to be able to see =1*3, =2*3, .... in the formula box when I click on
each cell.

If I use the below method, I will only be able to obtain the final value. Is
there any way I will be able to obtain what I want?

Thank you.

"????? (????) ?????" wrote:

If I understood you correctly - try this.
* In cell D28 [or any empty cell] type 3 and hit CTRL+C for 'Copy'.
* Select the range of cells of data in row 1.
* Go to 'Edit' 'PasteSpecial' click on 'Multiply' 'OK'
* Delete cell A10
Micky


"PL" wrote:

Using Excel 2003.

I want all the data in a row to take a specific formula, say = X * 3. But
the value of X varies for each of the cell. How do I do so without having to
type in the same formula for each cell?

Furthermore I want the value of X for each cell to be seen. Thus I don't
want to enter all X in row 1 , and in row 2 enter =A1*3. Then copy & paste
the formula onto the entire row. Because by doing this, people can't tell
what is A1, B1,....

Thank you.