application user input
need a way to get excell to enter the "application user" name into cell c3 ?
Sub auto_open() Sheets("log").Select Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("B2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("A2").Select Selection.NumberFormat = "dd-mmm-yy" Range("B2").Select Selection.NumberFormat = "h:mm" Range("c2").Select End Sub thanks in advance |
application user input
Hi Rich,
Perhaps there is a hidden subtlety, but try: Sheets("log").Range("C3") = Application.UserName --- Regards, Norman "Rich" wrote in message ... need a way to get excell to enter the "application user" name into cell c3 ? Sub auto_open() Sheets("log").Select Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("B2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("A2").Select Selection.NumberFormat = "dd-mmm-yy" Range("B2").Select Selection.NumberFormat = "h:mm" Range("c2").Select End Sub thanks in advance |
application user input
thanks it worked, thought it would be sommert like imput ,, which is why i
couldnt get it to work "Norman Jones" wrote: Hi Rich, Perhaps there is a hidden subtlety, but try: Sheets("log").Range("C3") = Application.UserName --- Regards, Norman "Rich" wrote in message ... need a way to get excell to enter the "application user" name into cell c3 ? Sub auto_open() Sheets("log").Select Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("B2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("A2").Select Selection.NumberFormat = "dd-mmm-yy" Range("B2").Select Selection.NumberFormat = "h:mm" Range("c2").Select End Sub thanks in advance |
All times are GMT +1. The time now is 03:31 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com