Moving Entire Row to Another Sheet Based on Progress Column Value

[SUNRAY1984]

Hello,

I'm very new to the forum and am by no means an excel VBA pro. I have been asked to update our task tracking sheet for the office and could really use some help!

My boss has asked me to create a macro that, when run (not automatically), will cut and move the entire row of a completed tasks fom the "CURRENT" sheet to a second sheet called "COMPLETED." Completed tasks are indicated in the "progress" column (Column I) as "100%". In so doing, I am hoping there will not be a blank row left on the "CURRENT" sheet.

Essentially, the goal is to create two lists where the macro will be run weekly to display which tasks are ongoing (CURRENT) and which tasks have been finished (COMPLETED).

I have tried many of the codes on the forum that worked for others, but have been stonewalled by errors after errors. Any help would be greatly appreciated! Thank you so much!

 

[mumps]

Make sure that column I (progress) is formatted as a percent. Try this macro:

Sub CopyRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Range("I" & Rows.Count).End(xlUp).Row
    Dim x As Long
    For x = LastRow To 2 Step -1
        If Cells(x, "I") = 1 Then
            Rows(x).EntireRow.Copy Sheets("COMPLETED").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            Rows(x).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = True
End Sub