Moving Data from Workbook to another daily by shift x3

[FunTimez]

I am asking for help in figuring out a way that I can move data from 3 sheets my supervisors use to track downtime, scrap, overtime etc. to a single DATA sheet. Currently we have someone who takes the sheets and manually types in the results. I'd like something that will either automatically pull the information from the shift supervisor sheets and place in the data sheet along the corresponding date or setup a macro that once they have their information placed in their sheets they can press the command button which will look at the date on their sheet, find the matching date in the DATA sheet and then fill in the cells accordingly. I did not create the initial sheet and am just trying to work with what they have been using, but make it easier. My pictures I am adding show a simple version of what I am looking at. 1st shift enters information and then based on the date on their sheet, this information can get sent over to the correct cells on the DATA sheet. Using a formula won't move the data between the dates on the DATA sheet so I was thinking a macro to do this. Hoping someone has some thoughts or has done something like this in the past.

 

[FunTimez]

So looking at the pictures this is 2nd shifts worksheet, I'd like to be able to look at the date on this sheet and then the information they enter into the downtime hours, scrap and overtime hours to be sent to the DATA sheet with all the dates listed in the column, match the date and then pull the numbers over. Then the next day the supervisor would change the date on the 2nd shift sheet and then it would go to the next day on the DATA sheet.

I may be making this more difficult than it needs to be, but like I said I am trying to work with the sheets they already have in place.

Thank you for any help or ideas you can offer.

 

[FunTimez]

I was able to make it work by adding another sheet and a transfer ActiveX control that the supervisors will click and pass all data in to their respective "Data" worksheets. Then all the data is fed up to the master DATA sheet via Vlookup. Here is the code that I used.

Private Sub CommandButton1_Click()
response = MsgBox("Are You Sure You Are Ready To Transfer?", vbYesNo)

If response = vbNo Then
MsgBox ("Finish Entering Data and Transfer")
Exit Sub
End If

Dim Overtime As String, Downtime As String, K As String, S As String, E As String, P As String, Absences As String, Late As String, LeaveEarly As String, Vacation As String, Suspension As String, QuitTerm As String, Holds As String, ScrapK As String, ScrapS As String, ScrapE As String, ScrapP As String, LaborHours As String, Notes As String
Worksheets("3rd Shift").Select
Today = Range("P1")
Overtime = Range("r36")
Downtime = Range("G36")
K = Range("I23")
S = Range("L23")
E = Range("O23")
P = Range("R23")
Absences = Range("R44")
Late = Range("R45")
LeaveEarly = Range("R46")
Vacation = Range("R47")
Suspension = Range("R48")
QuitTerm = Range("R49")
Holds = Range("G22")
ScrapK = Range("c7")
ScrapS = Range("C8")
ScrapE = Range("C9")
ScrapP = Range("C10")
LaborHours = Range("R54")
Notes = Range("I3")
Worksheets("3rd Shift Data").Select
Worksheets("3rd Shift Data").Range("B1").Select
If Worksheets("3rd Shift Data").Range("B1").Offset(1, 0) <> "" Then
Worksheets("3rd Shift Data").Range("B1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Today
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Overtime
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Downtime
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = K
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = S
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = E
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = P
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Absences
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Late
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = LeaveEarly
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vacation
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Suspension
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = QuitTerm
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Holds
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ScrapK
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ScrapS
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ScrapE
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ScrapP
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = LaborHours
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Notes
End Sub