Vba if then concatenate

[el_jm]

Hello!
I have an issue with this VBA code, can someone have a look at this?
´ trying to get a concatenate (c4 & C8) string starting in B8 based on C8 value
(no big test, it has to be > 0) ...
the code works fine but instead of getting my (c4 & C8) in column, I am getting "error message" in front of cells > 0

Sub test_3()
'NOT OK
'limitS from l. 8 to 48
For i = 8 To 48
' if col 3 values greater than 0
If (Cells(i, 3)) > 0 Then
Cells(i, 2).Value = (C4 & c8)
'col 2 = my err mess
Cells(i, 2).Value = "error message"
End If
Next i
End Sub

 

[wideboydixon]

Totally guessing here since the posted code doesn't seem to make much sense:

Sub test_3()

For i = 8 To 48
    If (Cells(i, 3).Value) > 0 Then
        Cells(i, 2).Value = Cells(4, 3).Value & Cells(i, 3).Value
    Else
        Cells(i, 2).Value = "error message"
    End If
Next i

End Sub

WBD

 

[el_jm]

OK thanks
Finally got it, modifying cells(i, 2).Value to ' 000 (c4 value I wanted to concatenate with C8).

Sub testMRxljm()

For i = 8 To 48
If (Cells(i, 3).Value) > 0 Then
Cells(i, 2).Value = "'000" & Cells(i, 3).Value
Else
Cells(i, 2).Value = "error message"
End If
Next i

End Sub