Macro help please

[air23live]

For some reason I cannot attach the file but I have a master with employees info on it as well as date and than a timesheet template that looks like below.

Basically I want to have

• Master sheet w/ date and employees name and craft code generate into individual timesheets

Below is an example, I already have the finished product Timesheet I just need a formula or Macro to generate these from the master list.

---

PERFORMANCE MECHANICAL INC WEEKLY TIME SHEET

<tbody> </tbody>

EMPLOYEE NAME:

Cole, Randy

EMPLOYEE TRADE CODE:

SUPT

WEEK ENDING DATE:

5/15/2016

JOB NUMBER/NAME:

COST CODE:

CHANGE ORDER #:

MONDAY:

TUESDAY

WEDNESDAY:

THURSDAY:

FRIDAY:

SATURDAY:

SUNDAY:

WEEK TOTAL:

ST

OT

DT

ST

OT

DT

ST

OT

DT

ST

OT

DT

ST

OT

<tbody>
</tbody>

 

[rpaulson]

try this,

you will need to adjust the ranges to fit your data

Sub do_it()


Dim ms As Worksheet, ts As Worksheet
Set ms = Worksheets("Master")
Set ts = Worksheets("Template")

For r = 2 To ms.Range("A" & Rows.Count).End(xlUp).Row

'adjust ranges as needed
mName = ms.Cells(r, "A") 'get name from Master Sheet
mDate = ms.Cells(r, "B") 'get Date from Master Sheet
mTcode = ms.Cells(r, "C") 'get Trade Code from Master Sheet


'write to template' adjust ranges as needed.

ts.Range("B4") = mName 'write the name
ts.Range("I4") = mDate 'write the Date
ts.Range("B5") = mTcode 'write the Trade Code

ts.Activate 'activate the Template sheet
ActiveSheet.PrintOut
Next r

End Sub

hth,

Ross

 

[air23live]

Could you give me a call 5624004898

 

[rpaulson]

sure