VBA to cut and paste or move data from the Master sheet when column D says "Completed" or "Deferred" to either the Completed or Deferred Worksheet

Nathan20

New Member
Joined
Mar 20, 2023
Messages
3
Office Version
  1. 365
Platform
  1. Windows
Hello everyone,

I'm in need of some assistance.
I want to have the data from each row to be cut and pasted or moved (whichever is easier) to the corresponding worksheet based on specific criteria.
When column D (Status) in the Master worksheet reads "Completed" I want it to automatically be cut and pasted or moved to the Completed worksheet. Likewise, if column D (Status) in the Master worksheet reads "Deferred" then it should go to the Deferred worksheet.

Thank you all so much in advance! I've been struggling with this for weeks and have just about given up on the idea.
 

Attachments

  • Completed.png
    Completed.png
    75.1 KB · Views: 37
  • Deferred.png
    Deferred.png
    62 KB · Views: 33
  • Master.png
    Master.png
    93.1 KB · Views: 37

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().
I noticed that "Notes" is located in column G of the Master but in column H of the other two sheets. Is this correct? If so, what, if anything, goes in column G of the other two sheets?
 
Upvote 0
I accidentally added an extra row in the Deferred and Completed worksheets before "Notes". I removed them to make both the Deferred and Completed worksheets the same as the Master worksheet. Great catch! Sorry about that. Thus, "Notes" is in column G. Thank you!
 
Upvote 0
Maybe something like:
VBA Code:
Sub test()
    Dim mTbl As ListObject, dTbl As ListObject, cTbl As ListObject
    Dim NewRow As ListRow, fRng As Range
   
    Set mTbl = Sheets("Master").ListObjects(1)
    Set dTbl = Sheets("Deferred").ListObjects(1)
    Set cTbl = Sheets("Completed").ListObjects(1)
   
    Application.DisplayAlerts = False
   
    mTbl.Range.AutoFilter 3, "Completed"
    On Error Resume Next
        Set fRng = mTbl.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not fRng Is Nothing Then
        Set NewRow = cTbl.ListRows.Add
        fRng.Copy
        Sheets("Completed").Range("A" & NewRow.Index + 2).PasteSpecial xlValues
        mTbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
    End If
    Set fRng = Nothing
   
    mTbl.Range.AutoFilter 3, "Deferred"
    On Error Resume Next
        Set fRng = mTbl.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not fRng Is Nothing Then
        Set NewRow = dTbl.ListRows.Add
        fRng.Copy
        Sheets("Deferred").Range("A" & NewRow.Index + 2).PasteSpecial xlValues
        mTbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
    End If
   
    mTbl.Range.AutoFilter 3
   
    Application.DisplayAlerts = True
End Sub
 
Upvote 0
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in column D of the Master and press the ENTER key. Please note that the STATUS must be the last column completed in any row.
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 4 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Select Case Target.Value
        Case "Completed"
            With Sheets("Completed")
                Range("B" & Target.Row).Resize(, 6).Copy .Cells(.Rows.Count, "B").End(xlUp).Offset(1)
                Range("B" & Target.Row).Resize(, 6).Delete shift:=xlUp
            End With
        Case "Deferred"
            With Sheets("Deferred")
                Range("B" & Target.Row).Resize(, 6).Copy .Cells(.Rows.Count, "B").End(xlUp).Offset(1)
                Range("B" & Target.Row).Resize(, 6).Delete shift:=xlUp
            End With
    End Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
I need something very similar to this. I posted my question and hadn't seen this one. See "Using a button, move data from one worksheet to another based on a text value ("Closed") or ("Archive") in one column". That is my Status column. The difference is my Status column is not the last one and I don't want it to work automatically. I want to choose via button. Thx for help.
 
Upvote 0
@dewy0823
Hi and welcome to the Forum. Please start your own new thread and post a link to this thread if you think it is useful.
 
Upvote 0

Forum statistics

Threads
1,223,229
Messages
6,170,881
Members
452,364
Latest member
springate

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top