To prepare Attendence Report with Excel sheet

 akshay -
I will describe what I want to do .

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.

Thank You

12 replies

' 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
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2942 users have said thank you to us this month

Jimmy your response to the person from this post seem very close to helping me with my issue. We are creating a "list" using excel. I need to create a macro to do the following:

1. Add a new sheet from an original or master( ideally by pressing a button or key combination). The sheet will be named numerically in sequence.
2. Create cell references on a "Project" page refering to the new sheet created.

example. Create sheet "51" ( or the next number in the sequence),
Copy the information in cell '51'!$B$1 to the next available cell in Column B on the "project" sheet.
Copy hte information in cell '51'!$B$3 to the next available cell in column C on the "project" sheet.

and so forth until you get to column G
Hi Jimmy
Mate I got your code to work and create the named worksheets populate the appropriate values into them however. I have a tempalte say called worksheet1. When I run the macro it creates all of the worksheets from the referenced list in worksheet1. So I have six new worksheets all with the employee name and staff numbers in them and the worksheet named after the corresponding employees. Hw ever it does not take the template across I only have the name where it should go and staff number but not the layout of the tempalte. Can you help
Registration date
Wednesday November 5, 2008
Last seen
November 6, 2008

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
Dear Friend,
can you send mer attendance report in my email I.D

thanks in Advance,
> Nasir Khan
Hope this helps.
could you send me the attendance sheet
> pedo
Hi Pedo do you still need a copy of the spreadsheet if you put your email address here I can send it to you, but I dont subscribe anymore therefore can not see your email address. Still willing to share and help out if I can
please provide the attendance sheet so that I can also use in my office as doing it manually is very tedious and time consuming
The code worked like a charm... no problem at all... thanks a lot...
> Kat
Hi Kat

still can not see your email address mine is then if you send me your address I can attach the file
> Kat
Hi Kat,

It looks like you got the Attendance Template. Could you send the file to my email

Thanks in advance..
> Murugan
Murugan have sent you the file from work cheers

> timeguru
Hi Ron,

Just gone through the 2 excel sheets - of which one worked like a charm and it just puts me on "awe" with the design you mapped. However - I tried to add a new employee following the step 2 process which says "Click on the Create Wages Pay Sheet button. If you have new employees select update team list button", which I dont see its working...Could you help in this regard...

Thank you & Agog :-)
> Murugan
Hi Murugan

It sounds like something is wrong with the sheet. What should happen is that it will create worksheets for employees in the hidden rows. I have set them up as a family named Adams. Unhide the rows from 37 down and add the names of your employees in place of the addams.

This hidden area also has details of work areas you may need or not.

If the create new worksheet button is not creating a sheet for each employee automatically there may be a problem with both sheets I sent. I will need to check my virus check to make sure it is not stripping macros. Let me know if you have created new worksheet tabs once you put your employe names in the hidden fields.
I have not developed macro for adding, deleting employees from hidden field reference yet.

If not I will need to recreate for you and ensure my virus program is not stripping it. Kat is your working

Thanks for your immediate reply. I will go back to my computer on monday and check the code thanks a lot ......
> pavan

send me your email address and I will send you a copy of the sheet I have developed using some of the code from here plus other functions.

> timeguru
Hi, I m amandeep ,,,i dnt know how to work on excel.So plz send the excel file.
> aman
Hi aman I need an email address to send it too. I can not attach file through here. I have never been ble to work it out. Otherwise I would just leave a copy on the site.

> pavan
Hi, how are you hope you ll b fine and great , I m doing job in UAE in accounts I want to know how can I put formula or daily or monthly employee statuse of attendance sheet....leave,sunday.etc..
send me an email addressto send file too. I am unable to attach thru site.

Dear Sneha,
I found my self facing a same interest with you, would you send me the solution from your question?
I'll appreciate it.

Thanks and regards,
Rachmad Hidayat
hi friend,

lease can you send the file at my email id .this will be wonderful for you. sorry for me. so please send the excel file .
Hi mate

Thanks very much for the reply. I have managered to get it all to work now thanks

send me email address to send file I dont seem to be able to attach it
Hi Salma

Sent you the spreadsheet with all of the macros hope it helped out with your problems.

Hi Santhu
I sent you the file the other day I only just realised it may have been a protected copy. Will send you a new copy shortly.
I would love it if someone forwards me this excel sheet.
Thank you!
Hi send me your email address and I will forward to you I can not seem to email from the site.

how to prepare salary sheet in ms-excel
Registration date
Tuesday January 27, 2009
Last seen
October 14, 2009

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.

Registration date
Friday May 29, 2009
Last seen
June 22, 2009
can you please sen attendent sheet to my e-mail also

I can not attach the sheet thru the site unfortunaley. If you have an email address I can send it to please advise address an I will organise. otherwise one of the people who has obtained from me may be able to send it too you.

I can not attach the sheet thru the site unfortunaley. If you have an email address I can send it to please advise address an I will organise. otherwise one of the people who has obtained from me may be able to send it too you.

Alamrew Eyayu