Try this code..
Sub test()
Application.ScreenUpdating = False
Dim sh As Object
Dim i As Integer
Dim nwkb As Object
Dim lrow As Long
Set nwkb = Workbooks.Add
nwkb.Sheets(1).Cells(1, 1).Value = Date
nwkb.Sheets(1).Cells(1, 2).Value = Emp code
nwkb.Sheets(1).Cells(1, 3).Value = Time
Dear Deepak ,
But here the outtime is missing
Warm Regards,
Gawli Anil
Thanks Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd
On Tue, Sep 24, 2013 at 1:33 PM, Deepak Singh dpk85si...@gmail.com wrote:
Try this code..
Sub test()
Application.ScreenUpdating =
Hi Anil,
You did not mention the Outtime in your Output sheet..following heading are
there in that sheet
Date Emp code Time DDMM HHMM Empcd Final output
--
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
Dear Deepak ,
See the Output file outitme is mentioned in the same field of Time field.
Warm Regards,
Gawli Anil
Thanks Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd
On Tue, Sep 24, 2013 at 2:26 PM, Deepak Singh dpk85si...@gmail.com wrote:
Hi Anil,
You
Try this one..
Sub test()
Application.ScreenUpdating = False
Dim sh As Object
Dim i As Integer
Dim nwkb As Object
Dim j As Long
Dim lrow As Long
Set nwkb = Workbooks.Add
nwkb.Sheets(1).Cells(1, 1).Value = Date
nwkb.Sheets(1).Cells(1, 2).Value = Emp code
nwkb.Sheets(1).Cells(1, 3).Value = Time
Thanks Regards,
Gawli Anil Narayan
Software Developer,
Abacus Software Services Pvt Ltd
On Tue, Sep 24, 2013 at 10:01 AM, अनिल नारायण गवली
gawlianil8...@gmail.com wrote:
Dear Friends,
As i had attached two files one is the source file named Attendance
workbook and another is output .
in