User Name

[RebekahK20_pontiac via OfficeKB.com]

I've seen some posts on how to obtain the computer name, but how can i get
the username to display instead and tie it to a specific cell?

 

[Bob Phillips]

Environ("UserName")

You could create a UDF to return that value and call that from the
worksheet.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Incidental]

Hi

MsgBox (Application.UserName)

should do the trick

S

 

[Guest]

You need this in order to use the Environ function:

Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function





--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.

Environ("UserName")

You could create a UDF to return that value and call that from the
worksheet.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[RebekahK20_pontiac via OfficeKB.com]

Forgive my ignorance, but now I'm getting an undefined variable?
And this goes in under the workbook, but how do i tell it where to put the
username?

You need this in order to use the Environ function:

Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function

Environ("UserName")

[quoted text clipped - 3 lines]

 

[Guest]

The UserName variable is undefined. Code the UDF this way:

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

and, place it inside a code module. Then, in your worksheet, use it just
like a built-in function. For example, in A1, enter the formula:

=UserNameWindows()




--
Hope that helps.

Vergel Adriano

Forgive my ignorance, but now I'm getting an undefined variable?
And this goes in under the workbook, but how do i tell it where to put the
username?

You need this in order to use the Environ function:

Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function

Environ("UserName")

[quoted text clipped - 3 lines]

I've seen some posts on how to obtain the computer name, but how can i get
the username to display instead and tie it to a specific cell?

 

[RebekahK20_pontiac via OfficeKB.com]

Thanks - but I'm still getting the error #Name? in the cell in Excel

I found a reference to the following code:


Public Function GetUsername() As String

On Error Resume Next


Dim objScript As Object
Set objScript = CreateObject("WScript.NetWork")
If Not objScript Is Nothing Then
GetUsername = objScript.UserName
End If
Set objScript = Nothing


End Function
Public Function GetUserDisplayName() As String
'--------------------8<----------------------
Set oADSystemInfo = CreateObject("ADSystemInfo")
' get user object
Set oADsUser = GetObject("LDAP://" & oADSystemInfo.UserName)
' get full name of the current user
GetUserDisplayName = oADsUser.displayname
'--------------------8<----------------------
End Function


I get an error when it gets to Set oADSystemInfo

Any clue? Some odd reason I think I'm making this much more difficult than it
should be.

The UserName variable is undefined. Code the UDF this way:

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

and, place it inside a code module. Then, in your worksheet, use it just
like a built-in function. For example, in A1, enter the formula:

=UserNameWindows()

Forgive my ignorance, but now I'm getting an undefined variable?
And this goes in under the workbook, but how do i tell it where to put the

[quoted text clipped - 11 lines]

 

[Guest]

Are you sure you placed this function in a code module?

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

Then, in excel you use it like this:

=UserNameWindows()

Note the open and close parentheses at the end...if you don't include those,
you'll get the #NAME? error.


--
Hope that helps.

Vergel Adriano

Thanks - but I'm still getting the error #Name? in the cell in Excel

I found a reference to the following code:


Public Function GetUsername() As String

On Error Resume Next


Dim objScript As Object
Set objScript = CreateObject("WScript.NetWork")
If Not objScript Is Nothing Then
GetUsername = objScript.UserName
End If
Set objScript = Nothing


End Function
Public Function GetUserDisplayName() As String
'--------------------8<----------------------
Set oADSystemInfo = CreateObject("ADSystemInfo")
' get user object
Set oADsUser = GetObject("LDAP://" & oADSystemInfo.UserName)
' get full name of the current user
GetUserDisplayName = oADsUser.displayname
'--------------------8<----------------------
End Function


I get an error when it gets to Set oADSystemInfo

Any clue? Some odd reason I think I'm making this much more difficult than it
should be.

The UserName variable is undefined. Code the UDF this way:

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

and, place it inside a code module. Then, in your worksheet, use it just
like a built-in function. For example, in A1, enter the formula:

=UserNameWindows()

Forgive my ignorance, but now I'm getting an undefined variable?
And this goes in under the workbook, but how do i tell it where to put the

[quoted text clipped - 11 lines]

I've seen some posts on how to obtain the computer name, but how can i get
the username to display instead and tie it to a specific cell?

 

[Guest]

If you want to display the Username in a cell you can do the following

Function UserNameWindows() As String
UserName = Environ("USERNAME")
Range("A1").Value = UserName

End Function

And all you have to do is execute the formula

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.

Thanks - but I'm still getting the error #Name? in the cell in Excel

I found a reference to the following code:


Public Function GetUsername() As String

On Error Resume Next


Dim objScript As Object
Set objScript = CreateObject("WScript.NetWork")
If Not objScript Is Nothing Then
GetUsername = objScript.UserName
End If
Set objScript = Nothing


End Function
Public Function GetUserDisplayName() As String
'--------------------8<----------------------
Set oADSystemInfo = CreateObject("ADSystemInfo")
' get user object
Set oADsUser = GetObject("LDAP://" & oADSystemInfo.UserName)
' get full name of the current user
GetUserDisplayName = oADsUser.displayname
'--------------------8<----------------------
End Function


I get an error when it gets to Set oADSystemInfo

Any clue? Some odd reason I think I'm making this much more difficult than it
should be.

The UserName variable is undefined. Code the UDF this way:

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

and, place it inside a code module. Then, in your worksheet, use it just
like a built-in function. For example, in A1, enter the formula:

=UserNameWindows()

Forgive my ignorance, but now I'm getting an undefined variable?
And this goes in under the workbook, but how do i tell it where to put the

[quoted text clipped - 11 lines]

I've seen some posts on how to obtain the computer name, but how can i get
the username to display instead and tie it to a specific cell?

 

[RebekahK20_pontiac via OfficeKB.com]

Thank You Thank You!!

I had been putting it into a code module, but it didn't work till I created a
2nd module.

Do I need to create individual modules for most functions?

Thank you for all of your help - this could actully be fun...

Are you sure you placed this function in a code module?

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

Then, in excel you use it like this:

=UserNameWindows()

Note the open and close parentheses at the end...if you don't include those,
you'll get the #NAME? error.

Thanks - but I'm still getting the error #Name? in the cell in Excel

[quoted text clipped - 45 lines]

 

[Guest]

No, you shouldn't have to put them in separate modules...


--
Hope that helps.

Vergel Adriano

Thank You Thank You!!

I had been putting it into a code module, but it didn't work till I created a
2nd module.

Do I need to create individual modules for most functions?

Thank you for all of your help - this could actully be fun...

Are you sure you placed this function in a code module?

Function UserNameWindows() As String
UserNameWindows = Environ("USERNAME")
End Function

Then, in excel you use it like this:

=UserNameWindows()

Note the open and close parentheses at the end...if you don't include those,
you'll get the #NAME? error.

Thanks - but I'm still getting the error #Name? in the cell in Excel

[quoted text clipped - 45 lines]

I've seen some posts on how to obtain the computer name, but how can i get
the username to display instead and tie it to a specific cell?

 

[Gord Dibben]

No.

Event code and Functions/macros are stored in different types of modules.

Event code in sheet or workbook...............functions and macros in regular
modules.

You can have many functions/macros in one module.

No more than one type of event code in a sheet or workbook, however.

i.e. You can't have two worksheet_change events in one sheet module.


Gord Dibben MS Excel MVP