To prepare Attendence Report with Excel sheet

Solved/Closed
Report
-
 akshay -
Hello,
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
sneha

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
35
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
0
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
0
Posts
2
Registration date
Wednesday November 5, 2008
Status
Member
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
25
Dear Friend,
can you send mer attendance report in my email I.D


thanks in Advance,
0
> Nasir Khan
Hope this helps.
0
could you send me the attendance sheet
0
> 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
0
please provide the attendance sheet so that I can also use in my office as doing it manually is very tedious and time consuming
0
The code worked like a charm... no problem at all... thanks a lot...
7
Hi
looks like 2009 is the year of timesheets. I have a similar issue in that I haveused some of the code above to recreate the new worksheets but wondered how one goes about getting the template worksheet to populate the newly named worksheets. If you could see your way clear to send a copy of your worksheet I will try and adjust it to my circumstances. Cheers and thanks
0
Hi friend,

Could you please send me a copy of the excel file. I am urgently in need of help in this type questions.

Much appreciated!

Kat
0
> Kat
Hi Kat need the email address to send it
0
> Timeguru
Thanks a lot for your prompt reply!

Wishes!

Kat
0
> Kat
Hi Kat

still can not see your email address mine is drwhoandk9@gmail.com then if you send me your address I can attach the file
0
Thanks for your immediate reply. I will go back to my computer on monday and check the code thanks a lot ......
Sneha
5
Hi,
Could you please send me the excel sheet...
0
hi sneha I am pavan from aberdeen I m doing project on automatic attendence sheet I have no idea what to do actually im mechanical engg graduate and doing masters in cs in uk if u have any spread sheets can u pls send me so dat I can get an idea abt dat





thanking u
pavan
0
> pavan
Hi

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.


Ron
0
> timeguru
Hi, I m amandeep ,,,i dnt know how to work on excel.So plz send the excel file.
0
> 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.

Ron
0
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
4
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 .
2
Hi mate

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


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

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

Ron
2
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.
ron
0
I would love it if someone forwards me this excel sheet.
Thank you!
2
Hi send me your email address and I will forward to you I can not seem to email from the site.



Ron
0
how to prepare salary sheet in ms-excel
2
Posts
2
Registration date
Tuesday January 27, 2009
Status
Member
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.

Ron
1
Posts
6
Registration date
Friday May 29, 2009
Status
Member
Last seen
June 22, 2009
1
can you please sen attendent sheet to my e-mail also

thanks
0
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.


Ron
0
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.


Ron
0
Alamrew Eyayu
0