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

Z

zulfer7

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?
 
S

Steve Wright

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

--------------------------------------
 
Top