Creating formula within For and Next

[sharky12345]

I've got this which updates a cell with a formula;

If Not IsEmpty(Range("A8").Value) Then
Range("D8").Formula = "=A8 & "" "" & C8 & "" "" & B8"

This code is repeated through to A31 resulting in a lot of code and I'm trying to create a more efficient method of doing this, so have thought about using a For Loop but don't know how the formula would look.

I know how to do this part;

For i = 8 To 31
If Not IsEmpty(Range("A" & i).Value) Then

but don't know how the 'i' part would be written in the next part;

Range("D8").Formula = "=A8 & "" "" & C8 & "" "" & B8"

It's probably very straightforward, but only if you know how to do it!

 

[jorismoerings]

Range("D" & I).Formula = "=A" & I & "" "" & C" & I & "" "" & B" & I

 

[sharky12345]

Thanks,

That doesn't work though - I'm getting an error 'Expected end of statement' and the part that is highlighted is the double speech marks before '& C'.

 

[FormR]

It might be easier to switch to R1C1 style and use..

Range("D" & i).FormulaR1C1 = "=RC[-3]&"" ""&RC[-1]&"" ""&RC[-2]"

But if you really wanted to stick with A1 style..

Range("D" & i).Formula = "=A" & i & "&"" ""&C" & i & "&"" ""&B" & I