Divide a value by a cell

[frade]

Hi,

Thanks for your help. Now, I continue my work but I have a new problem
when I divide a value of cell

Please have a look at my code (sheet2)

In a few word, it looks something like this

Dim valB As Long
    valB = Worksheets("Sheet1").Range("B1").Value
        sFormula = "((H" & i & "/& valB &"))"
        Cells(i, "I").Value = Evaluate(sFormula)

But I receive a synthax error...

What could I do?

Thanks a lot

Best regards,

Fran?ois

[mdmackillop]

sFormula = "(H" & i & "/" & valB & ")"

[Bob Phillips]

Dim valB As Long
valB = Worksheets("Sheet1").Range("B1").Value
sFormula = "((H" & i & "/& valB &"))"
Cells(i, "I").Value = Evaluate(sFormula)

Dim valB As Long
valB = Worksheets("Sheet1").Range("B1").Value
Cells(i, "I").Value = Range("H" & i) / valB

[Zack Barresse]

xld - [uvba]some info 4 u[/uvba] I took the liberty of adjusting your post, hope you don't mind.

[Bob Phillips]

xld - [uvba]some info 4 u[/uvba] I took the liberty of adjusting your post, hope you don't mind.

Not at all. Personally, for 2 or 3 lines the tags seem superfluous to me, but that is just my opiniion. But i wish you had fixed that Italic in the original at the same time.

[Zack Barresse]

But i wish you had fixed that Italic in the original at the same time.

Not italics, just part of the Quote tags byproduct.

[Bob Phillips]

Not italics, just part of the Quote tags byproduct.

Of course, just looked odd with code