Macro that copy/pastes rows based on a certain condition on SAME sheet.

Solved/Closed
jaime.mmm - Updated on Feb 24, 2021 at 02:09 AM
TrowaD
Posts
2886
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
June 27, 2022
- Feb 25, 2021 at 12:05 PM
Hello,

I am trying to create a macro that will copy a row with 6 columns on the condition that the 6th column is blank. Then it should paste the rows that meet said condition in another part of the SAME sheet.

Any help is greatly appreciated.


System Configuration: Windows / Chrome 88.0.4324.182

1 reply

TrowaD
Posts
2886
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
June 27, 2022
514
Feb 25, 2021 at 12:05 PM
Hi Jaime,

You didn't provide much details.

The 6 columns you mention are columns A to F in the code below. When the 6th column (F) is empty, then that row (columns A to E) are copied to column H at the first available row (occupying columns H to L).

Here is the code:
Sub RunMe()
For Each cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If cell.Offset(0, 5).Value = vbNullString Then
        Range(Cells(cell.Row, "A"), Cells(cell.Row, "E")).Copy Range("H" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next cell
End Sub


Let us know if further assistance is desired.

Best regards,
Trowa

0