$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid, I have time entry at given in the attached document. 1) I want first in and last out for a days – All the associates 2) I want the know how many hours they had spent inside the bay (you have to look for each in and out) 3) If there are any discrepancy on the IN and OUT time, I want that exception report with date, resource name and discrepancy details. Could you please share me the suggestions for 2nd and 3rd requirement. Regards, Nadiya On Wednesday, December 19, 2012 at 4:17:43 PM UTC+5:30, prkhan56 wrote: > > Hello All > > I am using excel 2007 > > I have data in the Master Sheet for various Employees > > I want to create separate sheet for each employee viz A, B, C and so on > (see sample > sheet attached) > > I got the macro from the Group which create separate sheet for each name (it > is in the attached shet) > > > > I wish to amend the macro so that it gives the output as shown in sample > sheets A, B and C > > My requirements are > > 1 It should check the date/ time of each Employee and then > put the values (shown in Red Color) against each date Time-In / Time-Out > on individual sheets > > 2 The macro should take the first entry and the last entry > for each day for each Name > > 3 It should do this till the last employee is reached > > 4 There are some unauthorized entry in Col D with no Names > in Col A. These entries should be ignored > > 5 The macro should put formulas in Col G and H (highlighted > in Green Color) > > 6 Everything in Red Color Font would be done the by the > macro…viz the Month, Name, Date, Time In and Time Out > > > > Thanks in advance > Rashid Khan > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at https://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
hi, shared only example format data like that On Saturday, November 21, 2015 at 9:30:37 PM UTC+5:30, pramodb35 wrote: > > Akash. > Kinldy Share Excel File > > On Sat, Nov 21, 2015 at 9:01 PM, Akash Singh > wrote: > >> Hi, > > > > Can anyone guide who write a code in VBA in excel to find the employee > > attendance record or check whether employee working more than 6 day in a > > week > > > > akash > > > > -- > > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? > It’s > > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > > https://www.facebook.com/discussexcel > > > > FORUM RULES > > > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will > > not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Jobs posting is not allowed. > > 6) Sharing copyrighted material and their links is not allowed. > > > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > > members are not responsible for any loss. > > --- > > You received this message because you are subscribed to the Google > Groups > > "MS EXCEL AND VBA MACROS" group. > > To unsubscribe from this group and stop receiving emails from it, send > an > > email to excel-macros...@googlegroups.com . > > To post to this group, send email to excel-...@googlegroups.com > . > > Visit this group at http://groups.google.com/group/excel-macros. > > For more options, visit https://groups.google.com/d/optout. > > > > -- > PramodSingh > -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. code.xlsx Description: MS-Excel 2007 spreadsheet
Re: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Akash. Kinldy Share Excel File On Sat, Nov 21, 2015 at 9:01 PM, Akash Singh wrote: >> Hi, > > Can anyone guide who write a code in VBA in excel to find the employee > attendance record or check whether employee working more than 6 day in a > week > > akash > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will > not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. -- PramodSingh -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
> > Hi, Can anyone guide who write a code in VBA in excel to find the employee attendance record or check whether employee working more than 6 day in a week akash -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
WOW! Suupe! Works like a magician wand. Thanks thanks thanks a lot. Regards Rashid Khan On Friday, January 4, 2013 8:38:18 AM UTC+4, Lalit Mohan Pandey wrote: > Hi Rashid, > > Paste below code in the same module where the previous procedure is saved > and assign this procedure to the shape. > > *Sub StartProcess()* > * > * > *Dim varData() As Variant* > *Dim rngRangeAs Range* > * > * > *Const strRawDataShtName As String = "Master"* > *Const intNameColNo As Integer = 2* > *Const intDateTimeColNo As Integer = 1* > *Const strNameColCellAs String = "B1"* > *Const strNameColHeading As String = "Name"* > *Const strDateTimeColHeading As String = "Date/ Time"* > ** > *ReDim varData(0)* > *If Application.ScreenUpdating Then Application.ScreenUpdating = False > * > *With ThisWorkbook.Worksheets(strRawDataShtName)* > *If .Cells(1, intNameColNo).Value = strNameColHeading Then* > *.Cells(1, intNameColNo).EntireColumn.Cut* > *.Cells(1, intDateTimeColNo).EntireRow.Insert* > *End If* > *Call GetEmployeeAttendance* > *If .Cells(1, intDateTimeColNo).Value = strNameColHeading Then* > *.Cells(1, intNameColNo).EntireColumn.Cut* > *.Cells(1, intDateTimeColNo).EntireRow.Insert* > *End If* > *End With* > *If Not Application.ScreenUpdating Then Application.ScreenUpdating = > True* > * > * > *End Sub* > > Regards, > Lalit Mohan > > On Friday, 4 January 2013 01:48:16 UTC+5:30, prkhan56 wrote: >> >> **Thanks Lalit >> I can see the sample sheet and the code works fine. >> As I requested in my previous post, can you please amend your code to >> look for >> >> *Col A - Date/Time* (the present code looks for Date/Time in Col B) >> *Col B - Name* (the present code looks for Name in Col A) >> If you can please amend it to suit my requirement, I would be really >> really grateful. >> >> Thanks a million for all your help and time. >> Regards >> Rashid Khan >> >> On Thursday, January 3, 2013 2:56:46 PM UTC+4, Lalit Mohan Pandey wrote: >> >>> Hi Rashid, >>> >>> There is a sheet to make it visible just press alt + f11 in left side >>> there is a sheet named sample goto its properties visible and select visible >>> >>> Regards, >>> Lalit Mohan >>> Sent from BlackBerry® on Airtel >>> -- >>> *From: *prkhan56 >>> *Sender: *excel-...@googlegroups.com >>> *Date: *Thu, 3 Jan 2013 02:31:17 -0800 (PST) >>> *To: * >>> *ReplyTo: *excel-...@googlegroups.com >>> *Subject: *$$Excel-Macros$$ Re: Macro to create attendance Sheet for >>> each Employee >>> >>> Hello Lalit >>> Thanks for your response. >>> There is no sheet *Sample* in the file you sent me. >>> However, can you also please the amend the code to take >>> Col A - Date/Time >>> Col B - Name >>> Your code looks for name in Col A and Date/Time and Col B >>> Thanks a lot once again for your time and help >>> Regards >>> Rashid Khan >>> On Thursday, January 3, 2013 10:08:24 AM UTC+4, Lalit Mohan Pandey wrote: >>> >>>> Hi Rashid, >>>> >>>> The file which i have sent you contains a sheet named *Sample *so if >>>> you have copied only the code then it will give you an error because the >>>> sheet is not available. Please check the same. >>>> >>>> Reagrds, >>>> Lalit Mohan >>>> >>>> On Thursday, 3 January 2013 00:57:11 UTC+5:30, prkhan56 wrote: >>>>> >>>>> Hello Lalit, >>>>> I tried the macro and it works perfectly on the sample data I uploaded >>>>> in my first post. >>>>> >>>>> But very very sorry, I missed to say that Col A has date/Time ad Col B >>>>> has the Name and not the other way round. >>>>> >>>>> Can the code be amended accordingly please. >>>>> >>>>> However, if I run your code by interchanging Col A and Col B; I get an >>>>> error as follows: >>>>> >>>>> Run time error '9' - Subscript out of range and it highlights the >>>>> following line in the code >>>&g
Re: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid, Paste below code in the same module where the previous procedure is saved and assign this procedure to the shape. *Sub StartProcess()* * * *Dim varData() As Variant* *Dim rngRangeAs Range* * * *Const strRawDataShtName As String = "Master"* *Const intNameColNo As Integer = 2* *Const intDateTimeColNo As Integer = 1* *Const strNameColCellAs String = "B1"* *Const strNameColHeading As String = "Name"* *Const strDateTimeColHeading As String = "Date/ Time"* ** *ReDim varData(0)* *If Application.ScreenUpdating Then Application.ScreenUpdating = False* *With ThisWorkbook.Worksheets(strRawDataShtName)* *If .Cells(1, intNameColNo).Value = strNameColHeading Then* *.Cells(1, intNameColNo).EntireColumn.Cut* *.Cells(1, intDateTimeColNo).EntireRow.Insert* *End If* *Call GetEmployeeAttendance* *If .Cells(1, intDateTimeColNo).Value = strNameColHeading Then* *.Cells(1, intNameColNo).EntireColumn.Cut* *.Cells(1, intDateTimeColNo).EntireRow.Insert* *End If* *End With* *If Not Application.ScreenUpdating Then Application.ScreenUpdating = True* * * *End Sub* Regards, Lalit Mohan On Friday, 4 January 2013 01:48:16 UTC+5:30, prkhan56 wrote: > > **Thanks Lalit > I can see the sample sheet and the code works fine. > As I requested in my previous post, can you please amend your code to look > for > > *Col A - Date/Time* (the present code looks for Date/Time in Col B) > *Col B - Name* (the present code looks for Name in Col A) > If you can please amend it to suit my requirement, I would be really > really grateful. > > Thanks a million for all your help and time. > Regards > Rashid Khan > > On Thursday, January 3, 2013 2:56:46 PM UTC+4, Lalit Mohan Pandey wrote: > >> Hi Rashid, >> >> There is a sheet to make it visible just press alt + f11 in left side >> there is a sheet named sample goto its properties visible and select visible >> >> Regards, >> Lalit Mohan >> Sent from BlackBerry® on Airtel >> -- >> *From: * prkhan56 >> *Sender: * excel-...@googlegroups.com >> *Date: *Thu, 3 Jan 2013 02:31:17 -0800 (PST) >> *To: * >> *ReplyTo: * excel-...@googlegroups.com >> *Subject: *$$Excel-Macros$$ Re: Macro to create attendance Sheet for >> each Employee >> >> Hello Lalit >> Thanks for your response. >> There is no sheet *Sample* in the file you sent me. >> However, can you also please the amend the code to take >> Col A - Date/Time >> Col B - Name >> Your code looks for name in Col A and Date/Time and Col B >> Thanks a lot once again for your time and help >> Regards >> Rashid Khan >> On Thursday, January 3, 2013 10:08:24 AM UTC+4, Lalit Mohan Pandey wrote: >> >>> Hi Rashid, >>> >>> The file which i have sent you contains a sheet named *Sample *so if >>> you have copied only the code then it will give you an error because the >>> sheet is not available. Please check the same. >>> >>> Reagrds, >>> Lalit Mohan >>> >>> On Thursday, 3 January 2013 00:57:11 UTC+5:30, prkhan56 wrote: >>>> >>>> Hello Lalit, >>>> I tried the macro and it works perfectly on the sample data I uploaded >>>> in my first post. >>>> >>>> But very very sorry, I missed to say that Col A has date/Time ad Col B >>>> has the Name and not the other way round. >>>> >>>> Can the code be amended accordingly please. >>>> >>>> However, if I run your code by interchanging Col A and Col B; I get an >>>> error as follows: >>>> >>>> Run time error '9' - Subscript out of range and it highlights the >>>> following line in the code >>>> *Worksheets(strSampleFileName).Visible = True* >>>> >>>> Can you please rectify this problem >>>> and thanks a million for all your time and help >>>> sorry for my error. >>>> >>>> Regards >>>> Rashid Khan >>>> >>>> I >>>> On Tuesday, January 1, 2013 8:07:35 PM UTC+4, Lalit Mohan Pandey wrote: >>>> >>>>> Hi Rashid, >>>>> >>>>> PFA. >>>>> >>>>> Regards, >>>>> Lalit Mohan >>>>> >>>>> On Tuesday, 1 January 2013 15:16:42
Re: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
**Thanks Lalit I can see the sample sheet and the code works fine. As I requested in my previous post, can you please amend your code to look for *Col A - Date/Time* (the present code looks for Date/Time in Col B) *Col B - Name* (the present code looks for Name in Col A) If you can please amend it to suit my requirement, I would be really really grateful. Thanks a million for all your help and time. Regards Rashid Khan On Thursday, January 3, 2013 2:56:46 PM UTC+4, Lalit Mohan Pandey wrote: > Hi Rashid, > > There is a sheet to make it visible just press alt + f11 in left side > there is a sheet named sample goto its properties visible and select visible > > Regards, > Lalit Mohan > Sent from BlackBerry® on Airtel > -- > *From: * prkhan56 > > *Sender: * excel-...@googlegroups.com > *Date: *Thu, 3 Jan 2013 02:31:17 -0800 (PST) > *To: *> > *ReplyTo: * excel-...@googlegroups.com > *Subject: *$$Excel-Macros$$ Re: Macro to create attendance Sheet for each > Employee > > Hello Lalit > Thanks for your response. > There is no sheet *Sample* in the file you sent me. > However, can you also please the amend the code to take > Col A - Date/Time > Col B - Name > Your code looks for name in Col A and Date/Time and Col B > Thanks a lot once again for your time and help > Regards > Rashid Khan > On Thursday, January 3, 2013 10:08:24 AM UTC+4, Lalit Mohan Pandey wrote: > >> Hi Rashid, >> >> The file which i have sent you contains a sheet named *Sample *so if you >> have copied only the code then it will give you an error because the sheet >> is not available. Please check the same. >> >> Reagrds, >> Lalit Mohan >> >> On Thursday, 3 January 2013 00:57:11 UTC+5:30, prkhan56 wrote: >>> >>> Hello Lalit, >>> I tried the macro and it works perfectly on the sample data I uploaded >>> in my first post. >>> >>> But very very sorry, I missed to say that Col A has date/Time ad Col B >>> has the Name and not the other way round. >>> >>> Can the code be amended accordingly please. >>> >>> However, if I run your code by interchanging Col A and Col B; I get an >>> error as follows: >>> >>> Run time error '9' - Subscript out of range and it highlights the >>> following line in the code >>> *Worksheets(strSampleFileName).Visible = True* >>> >>> Can you please rectify this problem >>> and thanks a million for all your time and help >>> sorry for my error. >>> >>> Regards >>> Rashid Khan >>> >>> I >>> On Tuesday, January 1, 2013 8:07:35 PM UTC+4, Lalit Mohan Pandey wrote: >>> >>>> Hi Rashid, >>>> >>>> PFA. >>>> >>>> Regards, >>>> Lalit Mohan >>>> >>>> On Tuesday, 1 January 2013 15:16:42 UTC+5:30, Lalit Mohan Pandey wrote: >>>>> >>>>> Hi Rashid, >>>>> >>>>> Sorry for that i will send you the file by today evening itself >>>>> >>>>> Regards, >>>>> Lalit Mohan >>>>> >>>>> On Tuesday, 1 January 2013 13:37:21 UTC+5:30, prkhan56 wrote: >>>>>> >>>>>> Hello Lalit >>>>>> I cannot see the complete code. If I go and check the original and >>>>>> paste the code I get lot of unwanted characters in the code >>>>>> If you cannot send me in a file then can you please send the code to >>>>>> me as a text file. >>>>>> thanks for your time and help >>>>>> Rashid Khan >>>>>> >>>>>> >>>>>> On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey >>>>>> wrote: >>>>>> >>>>>>> Hi Rashid, >>>>>>> >>>>>>> Sorry i can't upload file so please follow the given steps: >>>>>>> >>>>>>> *Step 1:- First create a sample sheet for output report with all >>>>>>> the formatting and formula and please make sure it should be for 31 >>>>>>> rows as >>>>>>>* >>>>>>> *max day in a month is 31.* >>>>>>> *Step 2:- Press Alt + F11 and Alt + I + M and paste below code * >>>>>>> * >>>>>>> * >>>>>>> *Option Explicit >>>>>>> >
Re: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid, There is a sheet to make it visible just press alt + f11 in left side there is a sheet named sample goto its properties visible and select visible Regards, Lalit Mohan Sent from BlackBerry® on Airtel -Original Message- From: prkhan56 Sender: excel-macros@googlegroups.com Date: Thu, 3 Jan 2013 02:31:17 To: Reply-To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee Hello Lalit Thanks for your response. There is no sheet *Sample* in the file you sent me. However, can you also please the amend the code to take Col A - Date/Time Col B - Name Your code looks for name in Col A and Date/Time and Col B Thanks a lot once again for your time and help Regards Rashid Khan On Thursday, January 3, 2013 10:08:24 AM UTC+4, Lalit Mohan Pandey wrote: > Hi Rashid, > > The file which i have sent you contains a sheet named *Sample *so if you > have copied only the code then it will give you an error because the sheet > is not available. Please check the same. > > Reagrds, > Lalit Mohan > > On Thursday, 3 January 2013 00:57:11 UTC+5:30, prkhan56 wrote: >> >> Hello Lalit, >> I tried the macro and it works perfectly on the sample data I uploaded in >> my first post. >> >> But very very sorry, I missed to say that Col A has date/Time ad Col B >> has the Name and not the other way round. >> >> Can the code be amended accordingly please. >> >> However, if I run your code by interchanging Col A and Col B; I get an >> error as follows: >> >> Run time error '9' - Subscript out of range and it highlights the >> following line in the code >> *Worksheets(strSampleFileName).Visible = True* >> >> Can you please rectify this problem >> and thanks a million for all your time and help >> sorry for my error. >> >> Regards >> Rashid Khan >> >> I >> On Tuesday, January 1, 2013 8:07:35 PM UTC+4, Lalit Mohan Pandey wrote: >> >>> Hi Rashid, >>> >>> PFA. >>> >>> Regards, >>> Lalit Mohan >>> >>> On Tuesday, 1 January 2013 15:16:42 UTC+5:30, Lalit Mohan Pandey wrote: >>>> >>>> Hi Rashid, >>>> >>>> Sorry for that i will send you the file by today evening itself >>>> >>>> Regards, >>>> Lalit Mohan >>>> >>>> On Tuesday, 1 January 2013 13:37:21 UTC+5:30, prkhan56 wrote: >>>>> >>>>> Hello Lalit >>>>> I cannot see the complete code. If I go and check the original and >>>>> paste the code I get lot of unwanted characters in the code >>>>> If you cannot send me in a file then can you please send the code to >>>>> me as a text file. >>>>> thanks for your time and help >>>>> Rashid Khan >>>>> >>>>> >>>>> On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey >>>>> wrote: >>>>> >>>>>> Hi Rashid, >>>>>> >>>>>> Sorry i can't upload file so please follow the given steps: >>>>>> >>>>>> *Step 1:- First create a sample sheet for output report with all >>>>>> the formatting and formula and please make sure it should be for 31 rows >>>>>> as >>>>>>* >>>>>> *max day in a month is 31.* >>>>>> *Step 2:- Press Alt + F11 and Alt + I + M and paste below code * >>>>>> * >>>>>> * >>>>>> *Option Explicit >>>>>> >>>>>> Sub GetEmployeeAttendance() >>>>>> >>>>>> Dim wksSht As Worksheet >>>>>> Dim wksReport As Worksheet >>>>>> Dim rngRangeAs Range >>>>>> Dim varData() As Variant >>>>>> Dim varName() As Variant >>>>>> Dim varDate() As Variant >>>>>> Dim varFinal() As Variant >>>>>> Dim lngLoopName As Long >>>>>> Dim lngLoopDate As Long >>>>>> Dim lngCountAs Long >>>>>> Const strFormulaAs String = "=A1 & ""|"" & >>>>>> TEXT(B1,""m/d/"")&
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello Lalit
Thanks for your response.
There is no sheet *Sample* in the file you sent me.
However, can you also please the amend the code to take
Col A - Date/Time
Col B - Name
Your code looks for name in Col A and Date/Time and Col B
Thanks a lot once again for your time and help
Regards
Rashid Khan
On Thursday, January 3, 2013 10:08:24 AM UTC+4, Lalit Mohan Pandey wrote:
> Hi Rashid,
>
> The file which i have sent you contains a sheet named *Sample *so if you
> have copied only the code then it will give you an error because the sheet
> is not available. Please check the same.
>
> Reagrds,
> Lalit Mohan
>
> On Thursday, 3 January 2013 00:57:11 UTC+5:30, prkhan56 wrote:
>>
>> Hello Lalit,
>> I tried the macro and it works perfectly on the sample data I uploaded in
>> my first post.
>>
>> But very very sorry, I missed to say that Col A has date/Time ad Col B
>> has the Name and not the other way round.
>>
>> Can the code be amended accordingly please.
>>
>> However, if I run your code by interchanging Col A and Col B; I get an
>> error as follows:
>>
>> Run time error '9' - Subscript out of range and it highlights the
>> following line in the code
>> *Worksheets(strSampleFileName).Visible = True*
>>
>> Can you please rectify this problem
>> and thanks a million for all your time and help
>> sorry for my error.
>>
>> Regards
>> Rashid Khan
>>
>> I
>> On Tuesday, January 1, 2013 8:07:35 PM UTC+4, Lalit Mohan Pandey wrote:
>>
>>> Hi Rashid,
>>>
>>> PFA.
>>>
>>> Regards,
>>> Lalit Mohan
>>>
>>> On Tuesday, 1 January 2013 15:16:42 UTC+5:30, Lalit Mohan Pandey wrote:
Hi Rashid,
Sorry for that i will send you the file by today evening itself
Regards,
Lalit Mohan
On Tuesday, 1 January 2013 13:37:21 UTC+5:30, prkhan56 wrote:
>
> Hello Lalit
> I cannot see the complete code. If I go and check the original and
> paste the code I get lot of unwanted characters in the code
> If you cannot send me in a file then can you please send the code to
> me as a text file.
> thanks for your time and help
> Rashid Khan
>
>
> On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey
> wrote:
>
>> Hi Rashid,
>>
>> Sorry i can't upload file so please follow the given steps:
>>
>> *Step 1:- First create a sample sheet for output report with all
>> the formatting and formula and please make sure it should be for 31 rows
>> as
>>*
>> *max day in a month is 31.*
>> *Step 2:- Press Alt + F11 and Alt + I + M and paste below code *
>> *
>> *
>> *Option Explicit
>>
>> Sub GetEmployeeAttendance()
>>
>> Dim wksSht As Worksheet
>> Dim wksReport As Worksheet
>> Dim rngRangeAs Range
>> Dim varData() As Variant
>> Dim varName() As Variant
>> Dim varDate() As Variant
>> Dim varFinal() As Variant
>> Dim lngLoopName As Long
>> Dim lngLoopDate As Long
>> Dim lngCountAs Long
>> Const strFormulaAs String = "=A1 & ""|"" &
>> TEXT(B1,""m/d/"")"
>> Const strTmpSht As String = "Temp_Sht"
>> Const strDataStartCell As String = "A1"
>> Const strFinalDataStartCell As String = "D8"
>> Const strReportMonthCellAs String = "C2"
>> Const strEmpNameCellAs String = "C5"
>> Const strSampleFileName As String = "Sample"
>>
>> ReDim varData(0)
>>
>> With ThisWorkbook.Worksheets("Master")
>> Set rngRange =
>> .Range(strDataStartCell).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
>> varData = rngRange.Value
>> End With
>>
>> If UBound(varData) > 0 Then
>>
>> Application.DisplayAlerts = False
>>
>> On Error Resume Next
>> Worksheets(strTmpSht).Delete
>> On Error GoTo 0: Err.Clear
>>
>> Set wksSht = Worksheets.Add
>> With wksSht
>> .Name = strTmpSht
>> With .Range(strDataStartCell)
>> .Resize(UBound(varData), UBound(varData, 2)).Value =
>> varData
>> .Resize(UBound(varData), 1).RemoveDuplicates
>> Columns:=1, Header:=xlYes
>> End With
>> varName = Intersect(.Range(strDataStartCell,
>> .Cells(.Rows.Count, 1).End(xlUp)), .Range(strDataStartCell,
>> .Cells(.Rows.Count, 1).End(xlUp)).Offset(1)).Value
>> varName = Application.Transpose(varName)
>> With .Range(s
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid,
The file which i have sent you contains a sheet named *Sample *so if you
have copied only the code then it will give you an error because the sheet
is not available. Please check the same.
Reagrds,
Lalit Mohan
On Thursday, 3 January 2013 00:57:11 UTC+5:30, prkhan56 wrote:
>
> Hello Lalit,
> I tried the macro and it works perfectly on the sample data I uploaded in
> my first post.
>
> But very very sorry, I missed to say that Col A has date/Time ad Col B has
> the Name and not the other way round.
>
> Can the code be amended accordingly please.
>
> However, if I run your code by interchanging Col A and Col B; I get an
> error as follows:
>
> Run time error '9' - Subscript out of range and it highlights the
> following line in the code
> *Worksheets(strSampleFileName).Visible = True*
>
> Can you please rectify this problem
> and thanks a million for all your time and help
> sorry for my error.
>
> Regards
> Rashid Khan
>
> I
> On Tuesday, January 1, 2013 8:07:35 PM UTC+4, Lalit Mohan Pandey wrote:
>
>> Hi Rashid,
>>
>> PFA.
>>
>> Regards,
>> Lalit Mohan
>>
>> On Tuesday, 1 January 2013 15:16:42 UTC+5:30, Lalit Mohan Pandey wrote:
>>>
>>> Hi Rashid,
>>>
>>> Sorry for that i will send you the file by today evening itself
>>>
>>> Regards,
>>> Lalit Mohan
>>>
>>> On Tuesday, 1 January 2013 13:37:21 UTC+5:30, prkhan56 wrote:
Hello Lalit
I cannot see the complete code. If I go and check the original and
paste the code I get lot of unwanted characters in the code
If you cannot send me in a file then can you please send the code to me
as a text file.
thanks for your time and help
Rashid Khan
On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey wrote:
> Hi Rashid,
>
> Sorry i can't upload file so please follow the given steps:
>
> *Step 1:- First create a sample sheet for output report with all
> the formatting and formula and please make sure it should be for 31 rows
> as
>*
> *max day in a month is 31.*
> *Step 2:- Press Alt + F11 and Alt + I + M and paste below code *
> *
> *
> *Option Explicit
>
> Sub GetEmployeeAttendance()
>
> Dim wksSht As Worksheet
> Dim wksReport As Worksheet
> Dim rngRangeAs Range
> Dim varData() As Variant
> Dim varName() As Variant
> Dim varDate() As Variant
> Dim varFinal() As Variant
> Dim lngLoopName As Long
> Dim lngLoopDate As Long
> Dim lngCountAs Long
> Const strFormulaAs String = "=A1 & ""|"" &
> TEXT(B1,""m/d/"")"
> Const strTmpSht As String = "Temp_Sht"
> Const strDataStartCell As String = "A1"
> Const strFinalDataStartCell As String = "D8"
> Const strReportMonthCellAs String = "C2"
> Const strEmpNameCellAs String = "C5"
> Const strSampleFileName As String = "Sample"
>
> ReDim varData(0)
>
> With ThisWorkbook.Worksheets("Master")
> Set rngRange =
> .Range(strDataStartCell).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
> varData = rngRange.Value
> End With
>
> If UBound(varData) > 0 Then
>
> Application.DisplayAlerts = False
>
> On Error Resume Next
> Worksheets(strTmpSht).Delete
> On Error GoTo 0: Err.Clear
>
> Set wksSht = Worksheets.Add
> With wksSht
> .Name = strTmpSht
> With .Range(strDataStartCell)
> .Resize(UBound(varData), UBound(varData, 2)).Value =
> varData
> .Resize(UBound(varData), 1).RemoveDuplicates
> Columns:=1, Header:=xlYes
> End With
> varName = Intersect(.Range(strDataStartCell,
> .Cells(.Rows.Count, 1).End(xlUp)), .Range(strDataStartCell,
> .Cells(.Rows.Count, 1).End(xlUp)).Offset(1)).Value
> varName = Application.Transpose(varName)
> With .Range(strDataStartCell)
> .Resize(UBound(varData), UBound(varData, 2)).Value =
> varData
> .Resize(UBound(varData), 1).Offset(, UBound(varData,
> 2)).Formula = strFormula
> .Resize(UBound(varData), 1).Offset(, UBound(varData,
> 2)).Value = .Resize(UBound(varData), 1).Offset(, UBound(varData, 2)).Value
> .Resize(UBound(varData), 1).Offset(, UBound(varData,
> 2)).RemoveDuplicates Columns:=1, Header:=xlYes
> End Wi
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello Lalit,
I tried the macro and it works perfectly on the sample data I uploaded in
my first post.
But very very sorry, I missed to say that Col A has date/Time ad Col B has
the Name and not the other way round.
Can the code be amended accordingly please.
However, if I run your code by interchanging Col A and Col B; I get an
error as follows:
Run time error '9' - Subscript out of range and it highlights the following
line in the code
*Worksheets(strSampleFileName).Visible = True*
Can you please rectify this problem
and thanks a million for all your time and help
sorry for my error.
Regards
Rashid Khan
I
On Tuesday, January 1, 2013 8:07:35 PM UTC+4, Lalit Mohan Pandey wrote:
> Hi Rashid,
>
> PFA.
>
> Regards,
> Lalit Mohan
>
> On Tuesday, 1 January 2013 15:16:42 UTC+5:30, Lalit Mohan Pandey wrote:
>>
>> Hi Rashid,
>>
>> Sorry for that i will send you the file by today evening itself
>>
>> Regards,
>> Lalit Mohan
>>
>> On Tuesday, 1 January 2013 13:37:21 UTC+5:30, prkhan56 wrote:
>>>
>>> Hello Lalit
>>> I cannot see the complete code. If I go and check the original and paste
>>> the code I get lot of unwanted characters in the code
>>> If you cannot send me in a file then can you please send the code to me
>>> as a text file.
>>> thanks for your time and help
>>> Rashid Khan
>>>
>>>
>>> On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey wrote:
>>>
Hi Rashid,
Sorry i can't upload file so please follow the given steps:
*Step 1:- First create a sample sheet for output report with all the
formatting and formula and please make sure it should be for 31 rows as
*
*max day in a month is 31.*
*Step 2:- Press Alt + F11 and Alt + I + M and paste below code *
*
*
*Option Explicit
Sub GetEmployeeAttendance()
Dim wksSht As Worksheet
Dim wksReport As Worksheet
Dim rngRangeAs Range
Dim varData() As Variant
Dim varName() As Variant
Dim varDate() As Variant
Dim varFinal() As Variant
Dim lngLoopName As Long
Dim lngLoopDate As Long
Dim lngCountAs Long
Const strFormulaAs String = "=A1 & ""|"" &
TEXT(B1,""m/d/"")"
Const strTmpSht As String = "Temp_Sht"
Const strDataStartCell As String = "A1"
Const strFinalDataStartCell As String = "D8"
Const strReportMonthCellAs String = "C2"
Const strEmpNameCellAs String = "C5"
Const strSampleFileName As String = "Sample"
ReDim varData(0)
With ThisWorkbook.Worksheets("Master")
Set rngRange =
.Range(strDataStartCell).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
varData = rngRange.Value
End With
If UBound(varData) > 0 Then
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(strTmpSht).Delete
On Error GoTo 0: Err.Clear
Set wksSht = Worksheets.Add
With wksSht
.Name = strTmpSht
With .Range(strDataStartCell)
.Resize(UBound(varData), UBound(varData, 2)).Value =
varData
.Resize(UBound(varData), 1).RemoveDuplicates
Columns:=1, Header:=xlYes
End With
varName = Intersect(.Range(strDataStartCell,
.Cells(.Rows.Count, 1).End(xlUp)), .Range(strDataStartCell,
.Cells(.Rows.Count, 1).End(xlUp)).Offset(1)).Value
varName = Application.Transpose(varName)
With .Range(strDataStartCell)
.Resize(UBound(varData), UBound(varData, 2)).Value =
varData
.Resize(UBound(varData), 1).Offset(, UBound(varData,
2)).Formula = strFormula
.Resize(UBound(varData), 1).Offset(, UBound(varData,
2)).Value = .Resize(UBound(varData), 1).Offset(, UBound(varData, 2)).Value
.Resize(UBound(varData), 1).Offset(, UBound(varData,
2)).RemoveDuplicates Columns:=1, Header:=xlYes
End With
varDate = .Range(.Range(strDataStartCell).Offset(1,
UBound(varData, 2)), .Cells(.Rows.Count, UBound(varData, 2) +
1).End(xlUp)).Value
varDate = Application.Transpose(varDate)
.Cells.Clear
With .Range(strDataStartCell)
.Resize(UBound(varData), UBound(varData, 2)).Value =
varData
End With
End With
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid,
Sorry for that i will send you the file by today evening itself
Regards,
Lalit Mohan
On Tuesday, 1 January 2013 13:37:21 UTC+5:30, prkhan56 wrote:
>
> Hello Lalit
> I cannot see the complete code. If I go and check the original and paste
> the code I get lot of unwanted characters in the code
> If you cannot send me in a file then can you please send the code to me as
> a text file.
> thanks for your time and help
> Rashid Khan
>
>
> On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey wrote:
>
>> Hi Rashid,
>>
>> Sorry i can't upload file so please follow the given steps:
>>
>> *Step 1:- First create a sample sheet for output report with all the
>> formatting and formula and please make sure it should be for 31 rows as
>> *
>> *max day in a month is 31.*
>> *Step 2:- Press Alt + F11 and Alt + I + M and paste below code *
>> *
>> *
>> *Option Explicit
>>
>> Sub GetEmployeeAttendance()
>>
>> Dim wksSht As Worksheet
>> Dim wksReport As Worksheet
>> Dim rngRangeAs Range
>> Dim varData() As Variant
>> Dim varName() As Variant
>> Dim varDate() As Variant
>> Dim varFinal() As Variant
>> Dim lngLoopName As Long
>> Dim lngLoopDate As Long
>> Dim lngCountAs Long
>> Const strFormulaAs String = "=A1 & ""|"" &
>> TEXT(B1,""m/d/"")"
>> Const strTmpSht As String = "Temp_Sht"
>> Const strDataStartCell As String = "A1"
>> Const strFinalDataStartCell As String = "D8"
>> Const strReportMonthCellAs String = "C2"
>> Const strEmpNameCellAs String = "C5"
>> Const strSampleFileName As String = "Sample"
>>
>> ReDim varData(0)
>>
>> With ThisWorkbook.Worksheets("Master")
>> Set rngRange =
>> .Range(strDataStartCell).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
>> varData = rngRange.Value
>> End With
>>
>> If UBound(varData) > 0 Then
>>
>> Application.DisplayAlerts = False
>>
>> On Error Resume Next
>> Worksheets(strTmpSht).Delete
>> On Error GoTo 0: Err.Clear
>>
>> Set wksSht = Worksheets.Add
>> With wksSht
>> .Name = strTmpSht
>> With .Range(strDataStartCell)
>> .Resize(UBound(varData), UBound(varData, 2)).Value =
>> varData
>> .Resize(UBound(varData), 1).RemoveDuplicates Columns:=1,
>> Header:=xlYes
>> End With
>> varName = Intersect(.Range(strDataStartCell,
>> .Cells(.Rows.Count, 1).End(xlUp)), .Range(strDataStartCell,
>> .Cells(.Rows.Count, 1).End(xlUp)).Offset(1)).Value
>> varName = Application.Transpose(varName)
>> With .Range(strDataStartCell)
>> .Resize(UBound(varData), UBound(varData, 2)).Value =
>> varData
>> .Resize(UBound(varData), 1).Offset(, UBound(varData,
>> 2)).Formula = strFormula
>> .Resize(UBound(varData), 1).Offset(, UBound(varData,
>> 2)).Value = .Resize(UBound(varData), 1).Offset(, UBound(varData, 2)).Value
>> .Resize(UBound(varData), 1).Offset(, UBound(varData,
>> 2)).RemoveDuplicates Columns:=1, Header:=xlYes
>> End With
>> varDate = .Range(.Range(strDataStartCell).Offset(1,
>> UBound(varData, 2)), .Cells(.Rows.Count, UBound(varData, 2) +
>> 1).End(xlUp)).Value
>> varDate = Application.Transpose(varDate)
>> .Cells.Clear
>> With .Range(strDataStartCell)
>> .Resize(UBound(varData), UBound(varData, 2)).Value =
>> varData
>> End With
>> End With
>>
>> With wksSht
>> Set rngRange = .Range(strDataStartCell).CurrentRegion
>> rngRange.Resize(1, 1).Offset(, 7).Formula =
>> "=IFERROR(TEXT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(,
>> , , 1) & "),""""), )" 'Year
>> rngRange.Resize(1, 1).Offset(, 8).Formula =
>> "=IFERROR(TEXT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(,
>> , , 1) & "),""""), )" 'Month
>> rngRange.Resize(1, 1).Offset(, 9).Formula =
>> "=IFERROR(INT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(, ,
>> , 1) & ")), )" 'Date
>> rngRange.Resize(1, 1).Offset(, 10).Formula =
>> "=IFERROR(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(, , ,
>> 1) & "), )" 'Min
>> rngRange.Resize(1, 1).Offset(, 11).Formula =
>> "=IFERROR(SUBTotal(104," & rngRange.Resize(, 1).Offset(, 1).Address(, , ,
>> 1) & "), )" 'Max
>> With rngRange.Resize(1, 2)
>> .AutoFilter
>> For lngLoopName
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello Lalit
I cannot see the complete code. If I go and check the original and paste
the code I get lot of unwanted characters in the code
If you cannot send me in a file then can you please send the code to me as
a text file.
thanks for your time and help
Rashid Khan
On Monday, December 31, 2012 3:09:26 PM UTC+4, Lalit Mohan Pandey wrote:
> Hi Rashid,
>
> Sorry i can't upload file so please follow the given steps:
>
> *Step 1:- First create a sample sheet for output report with all the
> formatting and formula and please make sure it should be for 31 rows as
> *
> *max day in a month is 31.*
> *Step 2:- Press Alt + F11 and Alt + I + M and paste below code *
> *
> *
> *Option Explicit
>
> Sub GetEmployeeAttendance()
>
> Dim wksSht As Worksheet
> Dim wksReport As Worksheet
> Dim rngRangeAs Range
> Dim varData() As Variant
> Dim varName() As Variant
> Dim varDate() As Variant
> Dim varFinal() As Variant
> Dim lngLoopName As Long
> Dim lngLoopDate As Long
> Dim lngCountAs Long
> Const strFormulaAs String = "=A1 & ""|"" &
> TEXT(B1,""m/d/"")"
> Const strTmpSht As String = "Temp_Sht"
> Const strDataStartCell As String = "A1"
> Const strFinalDataStartCell As String = "D8"
> Const strReportMonthCellAs String = "C2"
> Const strEmpNameCellAs String = "C5"
> Const strSampleFileName As String = "Sample"
>
> ReDim varData(0)
>
> With ThisWorkbook.Worksheets("Master")
> Set rngRange =
> .Range(strDataStartCell).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)
> varData = rngRange.Value
> End With
>
> If UBound(varData) > 0 Then
>
> Application.DisplayAlerts = False
>
> On Error Resume Next
> Worksheets(strTmpSht).Delete
> On Error GoTo 0: Err.Clear
>
> Set wksSht = Worksheets.Add
> With wksSht
> .Name = strTmpSht
> With .Range(strDataStartCell)
> .Resize(UBound(varData), UBound(varData, 2)).Value =
> varData
> .Resize(UBound(varData), 1).RemoveDuplicates Columns:=1,
> Header:=xlYes
> End With
> varName = Intersect(.Range(strDataStartCell,
> .Cells(.Rows.Count, 1).End(xlUp)), .Range(strDataStartCell,
> .Cells(.Rows.Count, 1).End(xlUp)).Offset(1)).Value
> varName = Application.Transpose(varName)
> With .Range(strDataStartCell)
> .Resize(UBound(varData), UBound(varData, 2)).Value =
> varData
> .Resize(UBound(varData), 1).Offset(, UBound(varData,
> 2)).Formula = strFormula
> .Resize(UBound(varData), 1).Offset(, UBound(varData,
> 2)).Value = .Resize(UBound(varData), 1).Offset(, UBound(varData, 2)).Value
> .Resize(UBound(varData), 1).Offset(, UBound(varData,
> 2)).RemoveDuplicates Columns:=1, Header:=xlYes
> End With
> varDate = .Range(.Range(strDataStartCell).Offset(1,
> UBound(varData, 2)), .Cells(.Rows.Count, UBound(varData, 2) +
> 1).End(xlUp)).Value
> varDate = Application.Transpose(varDate)
> .Cells.Clear
> With .Range(strDataStartCell)
> .Resize(UBound(varData), UBound(varData, 2)).Value =
> varData
> End With
> End With
>
> With wksSht
> Set rngRange = .Range(strDataStartCell).CurrentRegion
> rngRange.Resize(1, 1).Offset(, 7).Formula =
> "=IFERROR(TEXT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(,
> , , 1) & "),""""), )" 'Year
> rngRange.Resize(1, 1).Offset(, 8).Formula =
> "=IFERROR(TEXT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(,
> , , 1) & "),""""), )" 'Month
> rngRange.Resize(1, 1).Offset(, 9).Formula =
> "=IFERROR(INT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(, ,
> , 1) & ")), )" 'Date
> rngRange.Resize(1, 1).Offset(, 10).Formula =
> "=IFERROR(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(, , ,
> 1) & "), )" 'Min
> rngRange.Resize(1, 1).Offset(, 11).Formula =
> "=IFERROR(SUBTotal(104," & rngRange.Resize(, 1).Offset(, 1).Address(, , ,
> 1) & "), )" 'Max
> With rngRange.Resize(1, 2)
> .AutoFilter
> For lngLoopName = LBound(varName) To UBound(varName)
> ReDim varFinal(1 To 31, 1 To 3)
> lngCount = 0
> rngRange.AutoFilter Field:=1,
> Criteria1:=varName(lngLoopName)
> For lngLoopDate = LBound(varDate) To UBound(varDate)
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid,
Sorry i can't upload file so please follow the given steps:
*Step 1:- First create a sample sheet for output report with all the
formatting and formula and please make sure it should be for 31 rows as*
*max day in a month is 31.*
*Step 2:- Press Alt + F11 and Alt + I + M and paste below code *
*
*
*Option Explicit
Sub GetEmployeeAttendance()
Dim wksSht As Worksheet
Dim wksReport As Worksheet
Dim rngRangeAs Range
Dim varData() As Variant
Dim varName() As Variant
Dim varDate() As Variant
Dim varFinal() As Variant
Dim lngLoopName As Long
Dim lngLoopDate As Long
Dim lngCountAs Long
Const strFormulaAs String = "=A1 & ""|"" &
TEXT(B1,""m/d/"")"
Const strTmpSht As String = "Temp_Sht"
Const strDataStartCell As String = "A1"
Const strFinalDataStartCell As String = "D8"
Const strReportMonthCellAs String = "C2"
Const strEmpNameCellAs String = "C5"
Const strSampleFileName As String = "Sample"
ReDim varData(0)
With ThisWorkbook.Worksheets("Master")
Set rngRange = .Range(strDataStartCell).Resize(.Cells(.Rows.Count,
1).End(xlUp).Row, 2)
varData = rngRange.Value
End With
If UBound(varData) > 0 Then
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(strTmpSht).Delete
On Error GoTo 0: Err.Clear
Set wksSht = Worksheets.Add
With wksSht
.Name = strTmpSht
With .Range(strDataStartCell)
.Resize(UBound(varData), UBound(varData, 2)).Value = varData
.Resize(UBound(varData), 1).RemoveDuplicates Columns:=1,
Header:=xlYes
End With
varName = Intersect(.Range(strDataStartCell,
.Cells(.Rows.Count, 1).End(xlUp)), .Range(strDataStartCell,
.Cells(.Rows.Count, 1).End(xlUp)).Offset(1)).Value
varName = Application.Transpose(varName)
With .Range(strDataStartCell)
.Resize(UBound(varData), UBound(varData, 2)).Value = varData
.Resize(UBound(varData), 1).Offset(, UBound(varData,
2)).Formula = strFormula
.Resize(UBound(varData), 1).Offset(, UBound(varData,
2)).Value = .Resize(UBound(varData), 1).Offset(, UBound(varData, 2)).Value
.Resize(UBound(varData), 1).Offset(, UBound(varData,
2)).RemoveDuplicates Columns:=1, Header:=xlYes
End With
varDate = .Range(.Range(strDataStartCell).Offset(1,
UBound(varData, 2)), .Cells(.Rows.Count, UBound(varData, 2) +
1).End(xlUp)).Value
varDate = Application.Transpose(varDate)
.Cells.Clear
With .Range(strDataStartCell)
.Resize(UBound(varData), UBound(varData, 2)).Value = varData
End With
End With
With wksSht
Set rngRange = .Range(strDataStartCell).CurrentRegion
rngRange.Resize(1, 1).Offset(, 7).Formula =
"=IFERROR(TEXT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(,
, , 1) & "),""""), )" 'Year
rngRange.Resize(1, 1).Offset(, 8).Formula =
"=IFERROR(TEXT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(,
, , 1) & "),""""), )" 'Month
rngRange.Resize(1, 1).Offset(, 9).Formula =
"=IFERROR(INT(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(, ,
, 1) & ")), )" 'Date
rngRange.Resize(1, 1).Offset(, 10).Formula =
"=IFERROR(SUBTotal(105," & rngRange.Resize(, 1).Offset(, 1).Address(, , ,
1) & "), )" 'Min
rngRange.Resize(1, 1).Offset(, 11).Formula =
"=IFERROR(SUBTotal(104," & rngRange.Resize(, 1).Offset(, 1).Address(, , ,
1) & "), )" 'Max
With rngRange.Resize(1, 2)
.AutoFilter
For lngLoopName = LBound(varName) To UBound(varName)
ReDim varFinal(1 To 31, 1 To 3)
lngCount = 0
rngRange.AutoFilter Field:=1,
Criteria1:=varName(lngLoopName)
For lngLoopDate = LBound(varDate) To UBound(varDate)
If varDate(lngLoopDate) Like varName(lngLoopName) &
"|*" Then
rngRange.AutoFilter Field:=2,
Operator:=xlFilterValues, Criteria2:=Array(2, Split(varDate(lngLoopDate),
"|")(1))
If rngRange.Resize(1, 1).Offset(, 9).Value <> 0
Then
lngCount = lngCount + 1
varFinal(lngCount, 1) = rngRange.Resize(1,
1).Offset(, 9).Value
varFinal(lngCount, 2) = rngRange.Resize(1,
1).Offset(, 10).Value
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid, I didn't find any employe name in the master sheet there is only two column No and Action and please tell me from where i will take in/out time. Didn't understand the data you provided. Please check. Regards, Lalit Mohan On Sunday, 30 December 2012 14:16:09 UTC+5:30, prkhan56 wrote: > > Hello Experts, > Is this possible or not? > I am reposting my query once again > Regards > Rashid Khan > On Monday, December 24, 2012 10:58:15 AM UTC+4, prkhan56 wrote: > >> Hello Lalit >> Thanks for the reply. >> Please see the sample sheet which I have attached with my first post. >> >> The names of the employees are in excel sheet and the time in / time out >> details are shown against each employee name >> >> I want to run the macro to run on Master sheet and create time sheet each >> employee showing their Time In/ Time Out >> >> Is this clear? >> Thanks >> Regards >> Rashid Khan >> >> On Monday, December 24, 2012 8:41:35 AM UTC+4, Lalit Mohan Pandey wrote: >> >>> Hi Rashid, >>> >>> Could you please explain when you want to run this process to capture >>> InTime and OutTime of an Employee and how we know who are the employees. Is >>> there any list of employee? >>> >>> Regards, >>> Lalit Mohan >>> >>> On Wednesday, 19 December 2012 16:17:43 UTC+5:30, prkhan56 wrote: Hello All I am using excel 2007 I have data in the Master Sheet for various Employees I want to create separate sheet for each employee viz A, B, C and so on (see sample sheet attached) I got the macro from the Group which create separate sheet for each name (it is in the attached shet) I wish to amend the macro so that it gives the output as shown in sample sheets A, B and C My requirements are 1 It should check the date/ time of each Employee and then put the values (shown in Red Color) against each date Time-In / Time-Out on individual sheets 2 The macro should take the first entry and the last entry for each day for each Name 3 It should do this till the last employee is reached 4 There are some unauthorized entry in Col D with no Names in Col A. These entries should be ignored 5 The macro should put formulas in Col G and H (highlighted in Green Color) 6 Everything in Red Color Font would be done the by the macro…viz the Month, Name, Date, Time In and Time Out Thanks in advance Rashid Khan >>> -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello Experts, Is this possible or not? I am reposting my query once again Regards Rashid Khan On Monday, December 24, 2012 10:58:15 AM UTC+4, prkhan56 wrote: > Hello Lalit > Thanks for the reply. > Please see the sample sheet which I have attached with my first post. > > The names of the employees are in excel sheet and the time in / time out > details are shown against each employee name > > I want to run the macro to run on Master sheet and create time sheet each > employee showing their Time In/ Time Out > > Is this clear? > Thanks > Regards > Rashid Khan > > On Monday, December 24, 2012 8:41:35 AM UTC+4, Lalit Mohan Pandey wrote: > >> Hi Rashid, >> >> Could you please explain when you want to run this process to capture >> InTime and OutTime of an Employee and how we know who are the employees. Is >> there any list of employee? >> >> Regards, >> Lalit Mohan >> >> On Wednesday, 19 December 2012 16:17:43 UTC+5:30, prkhan56 wrote: >>> >>> Hello All >>> >>> I am using excel 2007 >>> >>> I have data in the Master Sheet for various Employees >>> >>> I want to create separate sheet for each employee viz A, B, C and so on >>> (see sample >>> sheet attached) >>> >>> I got the macro from the Group which create separate sheet for each name >>> (it >>> is in the attached shet) >>> >>> >>> >>> I wish to amend the macro so that it gives the output as shown in sample >>> sheets A, B and C >>> >>> My requirements are >>> >>> 1 It should check the date/ time of each Employee and then >>> put the values (shown in Red Color) against each date Time-In / >>> Time-Out on individual sheets >>> >>> 2 The macro should take the first entry and the last entry >>> for each day for each Name >>> >>> 3 It should do this till the last employee is reached >>> >>> 4 There are some unauthorized entry in Col D with no Names >>> in Col A. These entries should be ignored >>> >>> 5 The macro should put formulas in Col G and H >>> (highlighted in Green Color) >>> >>> 6 Everything in Red Color Font would be done the by the >>> macro…viz the Month, Name, Date, Time In and Time Out >>> >>> >>> >>> Thanks in advance >>> Rashid Khan >>> >> -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello Lalit Thanks for the reply. Please see the sample sheet which I have attached with my first post. The names of the employees are in excel sheet and the time in / time out details are shown against each employee name I want to run the macro to run on Master sheet and create time sheet each employee showing their Time In/ Time Out Is this clear? Thanks Regards Rashid Khan On Monday, December 24, 2012 8:41:35 AM UTC+4, Lalit Mohan Pandey wrote: > Hi Rashid, > > Could you please explain when you want to run this process to capture > InTime and OutTime of an Employee and how we know who are the employees. Is > there any list of employee? > > Regards, > Lalit Mohan > > On Wednesday, 19 December 2012 16:17:43 UTC+5:30, prkhan56 wrote: >> >> Hello All >> >> I am using excel 2007 >> >> I have data in the Master Sheet for various Employees >> >> I want to create separate sheet for each employee viz A, B, C and so on >> (see sample >> sheet attached) >> >> I got the macro from the Group which create separate sheet for each name >> (it >> is in the attached shet) >> >> >> >> I wish to amend the macro so that it gives the output as shown in sample >> sheets A, B and C >> >> My requirements are >> >> 1 It should check the date/ time of each Employee and then >> put the values (shown in Red Color) against each date Time-In / >> Time-Out on individual sheets >> >> 2 The macro should take the first entry and the last entry >> for each day for each Name >> >> 3 It should do this till the last employee is reached >> >> 4 There are some unauthorized entry in Col D with no Names >> in Col A. These entries should be ignored >> >> 5 The macro should put formulas in Col G and H (highlighted >> in Green Color) >> >> 6 Everything in Red Color Font would be done the by the >> macro…viz the Month, Name, Date, Time In and Time Out >> >> >> >> Thanks in advance >> Rashid Khan >> > -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid, Could you please explain when you want to run this process to capture InTime and OutTime of an Employee and how we know who are the employees. Is there any list of employee? Regards, Lalit Mohan On Wednesday, 19 December 2012 16:17:43 UTC+5:30, prkhan56 wrote: > > Hello All > > I am using excel 2007 > > I have data in the Master Sheet for various Employees > > I want to create separate sheet for each employee viz A, B, C and so on > (see sample > sheet attached) > > I got the macro from the Group which create separate sheet for each name (it > is in the attached shet) > > > > I wish to amend the macro so that it gives the output as shown in sample > sheets A, B and C > > My requirements are > > 1 It should check the date/ time of each Employee and then > put the values (shown in Red Color) against each date Time-In / Time-Out > on individual sheets > > 2 The macro should take the first entry and the last entry > for each day for each Name > > 3 It should do this till the last employee is reached > > 4 There are some unauthorized entry in Col D with no Names > in Col A. These entries should be ignored > > 5 The macro should put formulas in Col G and H (highlighted > in Green Color) > > 6 Everything in Red Color Font would be done the by the > macro…viz the Month, Name, Date, Time In and Time Out > > > > Thanks in advance > Rashid Khan > -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello all experts Any help on my problem please Rashid On Saturday, December 22, 2012 12:15:33 AM UTC+4, prkhan56 wrote: > Hello Prince > I posted the reply yesterday but I cannot see it posted. So posting again. > > *Where is the out time of the employees.* > Please see this sample data of employee A for 1st Nov only. Data for the > same employee is also there in my previous sample sheet in Col B against > his name. > > Name A11/1/2012 8:13 *IN TIME* > > Name A11/1/2012 8:13 > > Name A11/1/2012 19:52 > > Name A11/1/2012 19:52 > > Name A11/1/2012 19:52 > > Name A11/1/2012 19:52 *OUT TIME* > > > *and if there are 100 emplyees then do you want 100 sheets in the workbook > * > Yes. Newly created sheet would be as per the number of employees > > Thanks for your time. > Regards > Rashid Khan > > > > > On Wednesday, December 19, 2012 2:47:43 PM UTC+4, prkhan56 wrote: > >> Hello All >> >> I am using excel 2007 >> >> I have data in the Master Sheet for various Employees >> >> I want to create separate sheet for each employee viz A, B, C and so on >> (see sample >> sheet attached) >> >> I got the macro from the Group which create separate sheet for each name >> (it >> is in the attached shet) >> >> >> >> I wish to amend the macro so that it gives the output as shown in sample >> sheets A, B and C >> >> My requirements are >> >> 1 It should check the date/ time of each Employee and then >> put the values (shown in Red Color) against each date Time-In / >> Time-Out on individual sheets >> >> 2 The macro should take the first entry and the last entry >> for each day for each Name >> >> 3 It should do this till the last employee is reached >> >> 4 There are some unauthorized entry in Col D with no Names >> in Col A. These entries should be ignored >> >> 5 The macro should put formulas in Col G and H (highlighted >> in Green Color) >> >> 6 Everything in Red Color Font would be done the by the >> macro…viz the Month, Name, Date, Time In and Time Out >> >> >> >> Thanks in advance >> Rashid Khan >> > -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hello Prince I posted the reply yesterday but I cannot see it posted. So posting again. *Where is the out time of the employees.* Please see this sample data of employee A for 1st Nov only. Data for the same employee is also there in my previous sample sheet in Col B against his name. Name A11/1/2012 8:13 *IN TIME* Name A11/1/2012 8:13 Name A11/1/2012 19:52 Name A11/1/2012 19:52 Name A11/1/2012 19:52 Name A11/1/2012 19:52 *OUT TIME* *and if there are 100 emplyees then do you want 100 sheets in the workbook* Yes. Newly created sheet would be as per the number of employees Thanks for your time. Regards Rashid Khan On Wednesday, December 19, 2012 2:47:43 PM UTC+4, prkhan56 wrote: > Hello All > > I am using excel 2007 > > I have data in the Master Sheet for various Employees > > I want to create separate sheet for each employee viz A, B, C and so on > (see sample > sheet attached) > > I got the macro from the Group which create separate sheet for each name (it > is in the attached shet) > > > > I wish to amend the macro so that it gives the output as shown in sample > sheets A, B and C > > My requirements are > > 1 It should check the date/ time of each Employee and then > put the values (shown in Red Color) against each date Time-In / Time-Out > on individual sheets > > 2 The macro should take the first entry and the last entry > for each day for each Name > > 3 It should do this till the last employee is reached > > 4 There are some unauthorized entry in Col D with no Names > in Col A. These entries should be ignored > > 5 The macro should put formulas in Col G and H (highlighted > in Green Color) > > 6 Everything in Red Color Font would be done the by the > macro…viz the Month, Name, Date, Time In and Time Out > > > > Thanks in advance > Rashid Khan > -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
On Wednesday, December 19, 2012 2:47:43 PM UTC+4, prkhan56 wrote: > > Hello All > > I am using excel 2007 > > I have data in the Master Sheet for various Employees > > I want to create separate sheet for each employee viz A, B, C and so on > (see sample > sheet attached) > > I got the macro from the Group which create separate sheet for each name (it > is in the attached shet) > > > > I wish to amend the macro so that it gives the output as shown in sample > sheets A, B and C > > My requirements are > > 1 It should check the date/ time of each Employee and then > put the values (shown in Red Color) against each date Time-In / Time-Out > on individual sheets > > 2 The macro should take the first entry and the last entry > for each day for each Name > > 3 It should do this till the last employee is reached > > 4 There are some unauthorized entry in Col D with no Names > in Col A. These entries should be ignored > > 5 The macro should put formulas in Col G and H (highlighted > in Green Color) > > 6 Everything in Red Color Font would be done the by the > macro…viz the Month, Name, Date, Time In and Time Out > > > > Thanks in advance > Rashid Khan > -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
$$Excel-Macros$$ Re: Macro to create attendance Sheet for each Employee
Hi Rashid Where is the out time of the employees. and if there are 100 emplyees then do you want 100 sheets in the workbook. Regards Prince On Wednesday, December 19, 2012 4:17:43 PM UTC+5:30, prkhan56 wrote: > > Hello All > > I am using excel 2007 > > I have data in the Master Sheet for various Employees > > I want to create separate sheet for each employee viz A, B, C and so on > (see sample > sheet attached) > > I got the macro from the Group which create separate sheet for each name (it > is in the attached shet) > > > > I wish to amend the macro so that it gives the output as shown in sample > sheets A, B and C > > My requirements are > > 1 It should check the date/ time of each Employee and then > put the values (shown in Red Color) against each date Time-In / Time-Out > on individual sheets > > 2 The macro should take the first entry and the last entry > for each day for each Name > > 3 It should do this till the last employee is reached > > 4 There are some unauthorized entry in Col D with no Names > in Col A. These entries should be ignored > > 5 The macro should put formulas in Col G and H (highlighted > in Green Color) > > 6 Everything in Red Color Font would be done the by the > macro…viz the Month, Name, Date, Time In and Time Out > > > > Thanks in advance > Rashid Khan > -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
