Solved: RowCount

[Nicolaf]

Hi,

I am getting a Run-Time error message when I run this code.

Private Sub CommandButton1_Click()
FinalRow = Cells(Rows.Count, 1).End(x1Up).Row
For I = 2 To FinalRow
If Cells(I, 6).Value > 0 Then
Cells(I, 7).Value = "Profit"
End If
Next I
End Sub

Can someone fix it?
Thanks,
Nix

[Bob Phillips]

It should be xlUp not x1Up

[Kenneth Hobs]

Always use Option Explicit as the first line of code. I use Range rather than Cell as Range will allow Intellisense to work for you. When that happens, you can see that you used x1Up rather than xLUp.

[vba]Private Sub CommandButton1_Click()
Dim FinalRow As Long, I As Long
FinalRow = Range("A" & Rows.Count).End(xlUp).Row
If FinalRow < 2 Then Exit Sub
For I = 2 To FinalRow
If Range("F" & I).Value2 > 0 Then Range("G" & I).Value2 = "Profit"
Next I
End Sub[/vba]
Had you compiled the program, you would have seen the syntax error. I put a Compile button on the toolbar.

Please use VBA code tags rather than quotes or codes.

I posted this just after XLD's response.

[Nicolaf]

Great thanks!

Will do!
Nix