creating a log sheet
Since you're creating a log, I would think that you would want to include the
date as well as the time. Although, you may not want to include that in the
textbox.
But something like this may work ok:
Option Explicit
Private Sub Workbook_open()
Dim x As Object
Dim u As String
Dim t As Date
Dim LastRow As Long
Set x = CreateObject("WSCRIPT.Network")
With Worksheets("FrontScreen")
.Activate
.Unprotect
u = x.UserName
t = Now
'update text box "Last Updated:"
.TextBoxes("txtLogon").Text _
= "Welcome to IRIS " & u & " - Access Time: " _
& Format(t, "hh:mm:ss")
.Protect
End With
With Worksheets("Log")
LastRow = Worksheets("log").Cells(.Rows.Count, "A").End(xlUp).Row
With .Cells(LastRow + 1, "A")
.Value = u
With .Offset(0, 1)
.Value = t
.NumberFormat = "mm/dd/yyyy hh:mm:ss"
End With
End With
End With
End Sub
I also put the name and date/time in two different columns.
Remember that this log entry will be lost if the workbook is closed without
saving.
sacrum wrote:
"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
see if this will help you. you didn't give too specific of a description,
so hopefully this is what you're looking for
lastRow = Worksheets("log").Cells(Rows.Count, "A").End(xlUp).Row
range("A: & lastrow +1) = "your date/time stamp code"
--
Gary
"sacrum" wrote in message
...
Hi all,
I've created a method to capture current user (network username) and a
date / time stamp. I want this output to be logged on a hidden sheet
called 'log' strangely enough! How does it find the next available line
in log to output to?
tia
Gary thanks - sorry for not being clear - here is the unworking script:
Private Sub Workbook_open()
Worksheets("Frontscreen").Activate
ActiveSheet.Unprotect
Dim x
Set x = CreateObject("WSCRIPT.Network")
Dim u
u = x.UserName
t = Time
'update text box "Last Updated:"
ActiveSheet.TextBoxes("txtLogon").Text = "Welcome to IRIS " & u & " -
Access Time: " & t
ActiveSheet.Protect
lastrow = Worksheets("log").Cells(Rows.Count, "A").End(xlUp).Row
Loglisting = txtLogon.Value
Worksheets("Log").Range("A" & lastrow + 1).Value = Loglisting
End Sub
Basically when workbook opens the current user is identified and displayed
using text box. I want this value to be copied to the next available line
in a log worksheet that is hidden from the user.
--
Dave Peterson
|