Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
User name , date and time | Excel Discussion (Misc queries) | |||
Dates - Need to display date one month prior to user-entered date | Excel Worksheet Functions | |||
Current date in the comment instead of the user ID | Excel Worksheet Functions | |||
incrementing a date that the user has entered? | Excel Worksheet Functions | |||
user defined date | Excel Worksheet Functions |