Formula going way past Final Row

[CVBASIMON]

Hi ALL,

I am having difficulty wtih an if statement going about 100 rows paste the final row, it seems each time i run the macro it goes further paste the last. Which makes me feel like I have a double of something, any help would be great, below is he current code.

code:
FinalRow = Cells(Rows.Count, "C").End(xlUp).Row
Range("I2:I2" & FinalRow).Formula = "=if(J2>0,""40"",""50"")"
Range("I2").Copy Destination:=Range("I2" & FinalRow)
Range("I2").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

 

[CVBASIMON]

Does anyone have any suggestions?

 

[Jonmo1]

Does column C contain formulas that might be returning "" ?

Make sure this line is reffering to a column that contains constants, not results of formulas.
FinalRow = Cells(Rows.Count, "C").End(xlUp).Row

 

[CVBASIMON]

Does column C contain formulas that might be returning "" ?

Make sure this line is reffering to a column that contains constants, not results of formulas.
FinalRow = Cells(Rows.Count, "C").End(xlUp).Row

That is what makes it even funnier, I am using Column C as another FinalRow = Cells(Rows, Count, "C").End(xlup).row

Do I need to use another one?

 

[kevin lazell]

hello
change to this


Range("I2:I" & FinalRow).Formula = "=if(J2>0,""40"",""50"")"
Range("I2").Copy Destination:=Range("I" & FinalRow)

cheers

 

[CVBASIMON]

hello
change to this


Range("I2:I" & FinalRow).Formula = "=if(J2>0,""40"",""50"")"
Range("I2").Copy Destination:=Range("I" & FinalRow)

cheers

Thank you! Perfect! ....amazing how some of you guys are able to pick this stuff up and see it so quickly.

 

[Jonmo1]

Good eyes, I didn't catch that...

hello
change to this


Range("I2:I" & FinalRow).Formula = "=if(J2>0,""40"",""50"")"
Range("I2").Copy Destination:=Range("I" & FinalRow)
cheers

I'm also wondering why the quotes around 40 and 50..
If you want those to be numerical values, there should not be quotes there.

Perhaps

With Range("I2:I" & FinalRow)
    .Formula = "=if(J2>0,40,50)"
    .Value = .Value
End With