copying values based on Date and moving to empty columns pls help !

[annamvs2009]

Hi All

I haven't used VBA for 6 years and I completely forgot some basics.

I've got two sheets , one is called Master and another is called Data. I would like my employee to go into the Master Data and put a Date in Cell B2 and input the daily production units and m3 and number of people who were cutting wood (it's a pellet production company).

Basically I'd like this guy to do this on a daily basis so the macro would need to copy and paste data from today's date into the "Data "sheet then once he goes in tomorrow he will overwrite the Master data but then I need my macro to copy this over to "Data" again. The end result will be a huge spreadsheet with 300 or so working days with values in them. I will create a summary table from it but unfortunately I need this to be tracker on a daily basis for now until the Company starts to make profits .


Is this possible as I have just spent 2 hrs of my life on this :D ! Thank you . Much appreciated!

PS I added two buttons for this guy to make it easier, Clear Data could clear Master file from "Date", and values in all columns" and "End" Button could have a macro assigned which is copying the data to "Data" Sheet

Anna

 

[Fluff]

Hi & welcome to MrExcel.
You haven't said where to put the data on the data sheet, so this will put it in cols A:D below any existing data.

Sub annamvs()
   Dim Rng As Range
   
   With Sheets("Master")
      Set Rng = Intersect(.Range("D4:H" & .Range("D" & Rows.Count).End(xlUp).Row), .Range("D:D,F:F,H:H"))
   End With
   With Sheets("Data")
      With .Range("A" & Rows.Count).End(xlUp)
         .Offset(1).Resize(Rng.Rows.Count).Value = Sheets("Master").Range("B2").Value
         Rng.Copy .Offset(1, 1)
      End With
   End With
End Sub