Configuration: Windows XP Internet Explorer 6.0
' 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
|
Thanks for your immediate reply. I will go back to my computer on monday and check the code thanks a lot ......
Sneha |
The code worked like a charm... no problem at all... thanks a lot... |
Hi Sneha i am send the Attandence Excel sheet with this attachment so pls keep it this sheet and prepare attandence reports in own circle
Thanks & Regards Lalit Rawat |
Results for
Results for
Results for
Results for
Results for