I have 60 residents working in our department. They attend morning report everyday. So I have prepared excel sheet( Named Attendance Table) which has column A1:A60 with names of residents B1:B60 with percentage of attendance for one month.
My job is to prepare Attendance report for each resident.
I have prepared Template for attendance report.
Now I want to run a Macro which will do following things
1. Open a new worksheet from the template in the workbook which has "Attendance Table worksheet"
2. It should bring the data from "Attendance Table" worksheet
a. From First column A1 and put in Name field of template ( new worksheet opened in stage one) ( Always D6)
b. bring data from B1 and put in Percentage field of Template (F10)
c. It should rename the worksheet tab with Data from A1 (i.e. name of the resident)
3. It should repeat the step 2 till it reaches the empty cell
Can anyone help me write the macro.
Advance attendance sheet in excel
Attendance sheet in excel with formula - Best answers
How to calculate average attendance in excel - Best answers
' Attendance Report Subroutine to
' Open New Worksheet called attendance tqable worksheet
' With data from Attendance Table
' Residents name to D6
' Percentage of attendnace for one month to F10
' Rename sheet to residents name and start again
' For all residents in table
Dim cCell As Object, I As Integer 'Two variables cCell (current Cell) object and I (standard counting integer)
Cells(1, "A").Select 'Ensure that we start each time at the top of the worksheet
Application.ScreenUpdating = False 'Turn of screen updates whilst macro is running
For Each cCell In Range(Cells(1, "A"), Cells(1, "A").End(xlDown)) 'Will run our code through each cell with text
Set NewSheet = Sheets.Add(Type:=xlWorksheet) 'Add new worksheet
NewSheet.Name = "Attendance Table Worksheet" 'rename worksheet
Sheets("Attendance Table Worksheet").Cells(6, "D").Value = cCell.Value 'put residents name is cell D6
Sheets("Attendance Table Worksheet").Cells(10, "F").Value = cCell.Offset(0, 1).Value 'put residence attednance into F10
Sheets("Attendance table worksheet").Name = cCell.Value
James I have sent you copy of timesheet. It would be nice if you and others who I have sent the sheet to could send me a copy of the sheet you all now use. This way I can draw together the numerous various and try and combine some of the features for redistribution of an improved timesheet.