PC User Name and date in cells
 

Hi,

When the user opens the file for the first time - I need Excel to input the
User name of the PC in A1, and in B1 I need to put todays date. When I open
the file tomorrow I still need it to show "yesterdays" date - so is there
away I can keep it static?

Thanks in advance,

AW

PC User Name and date in cells
 

You will need a VBA macro here is a quick sample:

Here is some sample code for the Workbook_Open procedu

Private Sub Workbook_Open()
myInfo = InputBox("Enter your ID")
If myInfo < "" Then
'your code
End If
End Sub

This code goes into the thisWorkbook object in the VBE. Press Alt+F11,
double-click the thisWorkbook object, for your workbook, in the Project
explorer near the top left of the screen.


--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"ArcticWolf" wrote:

Hi,

When the user opens the file for the first time - I need Excel to input the
User name of the PC in A1, and in B1 I need to put todays date. When I open
the file tomorrow I still need it to show "yesterdays" date - so is there
away I can keep it static?

Thanks in advance,

AW

PC User Name and date in cells
 

As an alternate to an InputBox you could use Application.UserName, but you
need to make sure that the individuals have entered thier user name in the
Excel
Tools:Options:General area.

Private Sub Workbook_Open()
If Sheets("SheetName").range("A1") = Empty then
Sheets("SheetName").range=("A1")=Application.UserN ame
Sheets("SheetName").range=("B1")=Date
End if

End Sub


"Shane Devenshire" wrote:

You will need a VBA macro here is a quick sample:

Here is some sample code for the Workbook_Open procedu

Private Sub Workbook_Open()
myInfo = InputBox("Enter your ID")
If myInfo < "" Then
'your code
End If
End Sub

This code goes into the thisWorkbook object in the VBE. Press Alt+F11,
double-click the thisWorkbook object, for your workbook, in the Project
explorer near the top left of the screen.


--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"ArcticWolf" wrote:

Hi,

When the user opens the file for the first time - I need Excel to input the
User name of the PC in A1, and in B1 I need to put todays date. When I open
the file tomorrow I still need it to show "yesterdays" date - so is there
away I can keep it static?

Thanks in advance,

AW

PC User Name and date in cells
 

You may want to get the user's login name rather than Application username,
which could be anything or nothing.

Environ("UserName")


Gord Dibben MS Excel MVP

On Thu, 29 Jan 2009 10:16:01 -0800, Paul C
wrote:

As an alternate to an InputBox you could use Application.UserName, but you
need to make sure that the individuals have entered thier user name in the
Excel
Tools:Options:General area.

Private Sub Workbook_Open()
If Sheets("SheetName").range("A1") = Empty then
Sheets("SheetName").range=("A1")=Application.UserN ame
Sheets("SheetName").range=("B1")=Date
End if

End Sub


"Shane Devenshire" wrote:

You will need a VBA macro here is a quick sample:

Here is some sample code for the Workbook_Open procedu

Private Sub Workbook_Open()
myInfo = InputBox("Enter your ID")
If myInfo < "" Then
'your code
End If
End Sub

This code goes into the thisWorkbook object in the VBE. Press Alt+F11,
double-click the thisWorkbook object, for your workbook, in the Project
explorer near the top left of the screen.


--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"ArcticWolf" wrote:

Hi,

When the user opens the file for the first time - I need Excel to input the
User name of the PC in A1, and in B1 I need to put todays date. When I open
the file tomorrow I still need it to show "yesterdays" date - so is there
away I can keep it static?

Thanks in advance,

AW