Change VBA code so partial row to be copied to another sheet if cell not blank

Andreamary,

You vba macro is not even functional. How can you be using it at the moment? Are you sure you have included the full macro with your sample?

Andrea,

If your vba is actually working, you have to change the Line 3 of the following code

Sub InitCopyRow()
    For I = 1 To Sheet1.UsedRange.Rows.Count
        If Sheet1.Cells(I, 24) = "Yes" Then
            CopyRow (I)
        End If
    Next
End Sub

Select allOpen in new window

From:

If Sheet1.Cells(I,24) = "Yes" Then

Select allOpen in new window

To:

If Sheet1.Cells(I,24) <> "" Then

Select allOpen in new window

Hi Harry,

That's odd, as it works on my system. On Worksheet 1, with 4 lines of sample text, if I enter "Yes" in Column X,  a partial row is copied to Worksheet 2. Removing and re-entering "Yes" again in Column X will trigger the row to copy over a second time.

Andrea

Thanks, Harry, works perfectly!

And thanks to you both, since this helped me with a similar problem!