Forum Discussion

cak980's avatar
cak980
Copper Contributor
May 05, 2022

Using VBA to move a range of data to a different sheet when complete (need the for dummies version)

I'm trying to setup a macro so that when a task is completed (indicated with X), it automatically gets moved to a separate tab and deleted from original location.  I was able to accomplish this but it moved the entire row.  I'm trying to move a range of data, not the entire row.  Thanks!  

    • cak980's avatar
      cak980
      Copper Contributor
      Sub move_rows_to_another_sheet()
      For Each myCell In Selection.Columns(4).Cells
      If myCell.Value = "Closed" Then
      myCell.EntireRow.Copy Worksheets("Sheet2").Range("A" & Rows.Count).End(3)(2)
      myCell.EntireRow.Delete
      End If
      Next
      End Sub
      • cak980 

        Thanks!

        Because you use EntireRow, the entire row gets moved.

        Which column or columns in the row would you like to move?

Resources