Sheets("TTD").Range("IQ2").End(xlDown).Offset(1,
0).FormulaR1C1 = Now()
Sheets("TTD").Range("IQ1").End(xlDown).Offset(1, 0).Copy
Sheets("TTD").Range("IQ1").End(xlDown).Offset(1,
0).PasteSpecial Paste:=xlValues
Sheets("TTD).Range("IQ1").End(xlDown).Offset(0,
1).FormulaR1C1 = Application.UserName
Sheets("TTD).Range("A1").select
Worksheets("Main").Activate
End Sub
Opps. three of the above lines wrapped. all lines should
start with sheets or worksheets
We have a similar sub Workbook close that list time out.
problems occur with this when the WB is opened by more
than 1 person at a time and is difficult to analyse.
We are thinking about setting up a seperate file and have
the code log the time in and out in that file so each
possible user can have their own time in and out. no
decision on that yet. no developement either.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.