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

Question

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

Report

jaime.mmm - Updated on Feb 24, 2021 at 02:09 AM
TrowaD

Posts: 2700
Registration date: Sunday September 12, 2010
Status: Moderator
Last seen: February 25, 2021

- 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

Macro that copy/pastes rows based on a certain condition on SAME sheet.
Macro to add/remove rows based on highest # in group of cells ✓ - Forum - Excel
Macro to insert multiple rows in excel based on cell value - How-To - Excel
Macro to copy/paste down X times (where X is the number of rows) ✓ - Forum - Excel
MACRO to copy / paste cell text down various rows ✓ - Forum - Excel
A macro to copy/paste a cell and other cells in the same row ✓ - Forum - Excel

1 reply

Reply Ask a question

TrowaD · Answer 1 · 2021-02-25T12:05:06-0500

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

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

1 reply

Your reply

Subscribe To Our Newsletter!