PLEAS HELP! Newby Needs help Populating Cell w/ Application.usern

Sub Populate_Username

Dim Text as String

Range("A2").Select
text = application.username

This does not populate the application.username at cell A2 so what needs to
be done to this code?

Range("A2").Value=Application.UserName

This will put in the username in Tools>Options...>General, NOT the network
or machine logon

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
www.nickhodge.co.uk
[email protected]HIS


"zulfer7" <[email protected]> wrote in message
news:[email protected]...
> Sub Populate_Username
>
> Dim Text as String
>
> Range("A2").Select
> text = application.username
>
> This does not populate the application.username at cell A2 so what needs
> to
> be done to this code?

The following will put the windows username in a cell. You will need to
change the sheetnames to suit your workbook and fiddle with the rest of the
code to make it do what you want.

Steve


-------------------------------
Option Explicit


Private Declare Function GetUserNameAPI Lib "advapi32.dll" Alias
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long)
As Long

Public Function GetUserName() As String
Dim sBuffer As String
Dim lSize As Long
Dim lRV As Long

lSize = 255
sBuffer = String(lSize, &H0)

lRV = GetUserNameAPI(sBuffer, lSize)

If lRV <> 0 Then
GetUserName = Left(sBuffer, lSize - 1) ' -1 to remove trailing null
character
Else
GetUserName = ""
End If
End Function

Sub EnterUser()
Worksheets("Use Log").Visible = True
Worksheets("Use Log").Select
Range("a1").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = GetUserName
ActiveCell.Offset(0, 1).Value = Now
Worksheets("Use Log").Visible = False
Worksheets("Main").Select
End Sub

--------------------------------------

"Nick Hodge" <[email protected]> wrote in message
news:[email protected]...
> Range("A2").Value=Application.UserName
>
> This will put in the username in Tools>Options...>General, NOT the network
> or machine logon
>
> --
> HTH
> Nick Hodge
> Microsoft MVP - Excel
> Southampton, England
> www.nickhodge.co.uk
> [email protected]HIS
>
>
> "zulfer7" <[email protected]> wrote in message
> news:[email protected]...
>> Sub Populate_Username
>>
>> Dim Text as String
>>
>> Range("A2").Select
>> text = application.username
>>
>> This does not populate the application.username at cell A2 so what needs
>> to
>> be done to this code?
>
>

THIS WAS PERFECT, Thanks!

"Nick Hodge" wrote:

> Range("A2").Value=Application.UserName
>
> This will put in the username in Tools>Options...>General, NOT the network
> or machine logon
>
> --
> HTH
> Nick Hodge
> Microsoft MVP - Excel
> Southampton, England
> www.nickhodge.co.uk
> [email protected]HIS
>
>
> "zulfer7" <[email protected]> wrote in message
> news:[email protected]...
> > Sub Populate_Username
> >
> > Dim Text as String
> >
> > Range("A2").Select
> > text = application.username
> >
> > This does not populate the application.username at cell A2 so what needs
> > to
> > be done to this code?
>
>
>