User (Usuario)

[Donaldo]

Buenas tardes a todos....

Necesito saber como poner el usuario (nombre) o como esté registrado, dentro de una celda, similar a la función INFO ("directory"), pero en este caso no necesito el directorio sino el usuario.

Gracias...

 

[galileogali]

Que tal,
Mira en un módulo standard, copias esta UDF (User Defined Function)

Despues en la celda donde quieras el Nombre de usuario, ingresas:
=usuario()

Hasta pronto

 

[Donaldo]

Gracias galileogali, me considero "principiante" en esta clase de términos, no entiendo tus instrucciones, no conozco el módulo standard (si esto está relacionado con Alt+F11) no tengo mucho conocimiento al respecto.

Sin embargo muchas gracias.

 

[Greg Truby]

Parece que a Gali se le olvidó incluír la función. Aquí pongo una...

Function fnUsuario(Optional strTipo As String = "OS") As String
    Select Case UCase(strTipo)
        Case "EXCEL"
            fnUsuario = Application.UserName
        Case "OS"
            fnUsuario = Environ("Username")
        Case Else
            fnUsuario = "Fidel Castro (no conozco """ & strTipo & """, ponga EXCEL u OS [o nada])"
    End Select
End Function

 

[Donaldo]

Gracias Greg,

Copie tu código, sin embargo me da el siguiente mensaje:

#NAME? (=fnusuario)

Qué debo hacer?

Saludos,

 

[Greg Truby]

Usted tiene que poner paréntesis detrás de ella

• =fnUsuario()

Sin ellos Excel piensa que usted está tratando de referir a un rango/fórmula nombrado y no a una función.

 

[galileogali]

Perdon por mi distraccion, DONALDO!!!

Gracias Greg, por sacar mis papas del fuego.....!!!
Vaya a saber en qué estaba pensando, cuando omiti el codigo....

el mío obviamente más simple....y menos alusivo