Move entries from one sheet to another

[NewToTheWorld]

Hey folks,

Looking to see if you guys can help me get this figured out, I'm hoping that there is a way to get data that is entered on one sheet to automatically move to another sheet based on a Yes/No in a column.

Screenshot below, if column O = Yes, then move the data from A through N to the sheet titled "master" which is identical looking to this sheet. Then I'm assuming I duplicate this for all of the other sheets below also?

 

[mumps]

Will all the data from column A to column N be inserted before "Yes" or "No" is entered in column O? I assume you want to copy the data to the "Master" only if "Yes" is entered. You want to do this for all the sheets. Is this correct? Do you want to move the data or copy it?

 

[NewToTheWorld]

Will all the data from column A to column N be inserted before "Yes" or "No" is entered in column O? I assume you want to copy the data to the "Master" only if "Yes" is entered. You want to do this for all the sheets. Is this correct? Do you want to move the data or copy it?

I actually moved it to be the first drop-down list in Column A, followed by the data. Essentially, I would like the data in the row to be moved to the sheet 'Master' if any of the drop downs are selected. For example, if someone selects "Missed" it will be pulled to the Master sheet. The drop downs are "Missed, Overage, Short" I attempted to split the code into those three but It wont run as I thought it would.

Here is what I was using.. I need the target value to be either of the three values in the drop down.

Private Sub Worksheet_Missed(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row + 1

If Target.Value = "Missed" Then Rows(Target.Row).Copy Destination:=Sheets("Master").Rows(Lastrow)
End If
End Sub

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your San Jose 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. This macro will copy the row when you make a selection in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Select Case Target.Value
        Case "Missed", "Overage", "Short"
            With Sheets("Master")
                Target.EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
            End With
    End Select
End Sub

If you want to row moved, the macro will have to be modified. Please let me know.

 

[NewToTheWorld]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your San Jose 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. This macro will copy the row when you make a selection in column A:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Select Case Target.Value
        Case "Missed", "Overage", "Short"
            With Sheets("Master")
                Target.EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
            End With
    End Select
End Sub

If you want to row moved, the macro will have to be modified. Please let me know.

It's generating an error "Invalid outside procedure".

 

[NewToTheWorld]

It's generating an error "Invalid outside procedure".

My mistake. It's good! Thank you.

 

[mumps]

You are very welcome.

 

[NewToTheWorld]

You are very welcome.

Is there a certain function to use to get this to run on pasted data?

 

[mumps]

run on pasted data

What do you mean by this?

 

[NewToTheWorld]

What do you mean by this?

I have a spreadsheet that I copy and paste into the one I'm referencing, the columns are already pre-populated with the Missing/Overage/Short data. However, it won't automatically move the columns with the referenced action over to the Master automatically. If I go in and delete the line, then re-select Overage it will move. Even though it said it previously.