Create an Attendance Report with Excel sheet

Issue

• 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

Solution

' 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 

Sub AttendanceReport() 
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 
Next cCell 
End Sub