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?

 

[NewToTheWorld]

The macro assumes that when you copy/paste data into the Master, the pasting is done into column A.

Pasting into column 'A' on master sheet is resulting in run-time error.

 

[mumps]

Please describe step by step how and what you are copying and how you are pasting the data. It would be easier to help if you could upload a copy of your file to a file sharing site and post a link to the file here.

 

[NewToTheWorld]

1) Copy the data from another spreadsheet that is identical row for row, column for column to the one we are working with.

Link here for one we are working on - https://www.file.io/jzhv/download/HqQQ7A9hFnZ0
Link here for the one I take the data from and paste to Master - https://www.file.io/fKpM/download/cPQ9soohSFX7

 

[jimmygogo]

Hi Mumps
I have a similar issue. When you get time, can you have a look at it ?

Copy name, project number, hours total from all employees timesheets in a directory vba

Hi there, I am looking for help in writing a code where I can copy employee name, project numbers and total hours worked on each project per week from employee directory. Each employee has their own excel file. Each week (separate tab for each week) hundreds of employee fill in their time...

www.mrexcel.com

 

[mumps]

Replace the previous code with the following:

Dim x As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    x = Target.Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim rng As Range
    For Each rng In Target
        Select Case Range("B" & x).Value
            Case "300"
                With Sheets("San Jose")
                    Rows(x).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
                End With
            Case "302"
                With Sheets("Sacramento")
                    Rows(x).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
                End With
            Case "303"
                With Sheets("Fresno")
                    Rows(x).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
                End With
            Case "310"
                With Sheets("Reno")
                    Rows(x).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
                End With
            Case "312"
                With Sheets("North Bay")
                    Rows(x).EntireRow.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
                End With
        End Select
        x = x + 1
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[NewToTheWorld]

No luck, receiving a debug area on the Select Case Range ("B", x).Value section.

 

[mumps]

I tested the macro on the file you posted and it worked properly. Make sure that you have copied/pasted all the lines of code including the first line:

Dim x As Long

which should be at the very top of all the code above this line:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If it still doesn't work, please upload the file you take the data from again.