Autoinsert Username

[hakuna]

Hi,

I am new to excel. While searching for help on codes and different ways to simplify my task i came across this forum.
would be glad if someone could help me with my problem.

I have a huge excel sheet with data more than 100s of rows. it's a common workbook shared by evryone in my company. so everyone has access to it.

I need to define a code / macro to assign the username automatically as and when the user is identified without using the function manually. is this possible?

Something similar to a datestamp which automatically gets inserted.

URGENT help required.

Thanks in advance.

 

[doofusboy]

"...macro to assign the username automatically"

What do you want to "assign" it to? The following example will log the user name and the time and date they opened the workbook. You can modify for your needs.

Private Sub Workbook_Open()
Dim lngLastRow As Long
    
    lngLastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    Range("A" & lngLastRow + 1).Value = Application.UserName
    Range("B" & lngLastRow + 1).Value = Now()
End Sub

 

[hakuna]

thanks for the help. I'll use your code in a more advanced file.
but i got a simpler code from this source:
http://www.mrexcel.com/forum/excel-questions/84908-auto-insert-username.html

 

[hakuna]

Hello. I need help!
when i use the code, it is fine. but when i update the sheet, my username is getting displayed on every cell!

 

[RoryA]

What code are you actually using?

 

[montycomco]

Hi,

I am new to excel. While searching for help on codes and different ways to simplify my task i came across this forum.
would be glad if someone could help me with my problem.

I have a huge excel sheet with data more than 100s of rows. it's a common workbook shared by evryone in my company. so everyone has access to it.

I need to define a code / macro to assign the username automatically as and when the user is identified without using the function manually. is this possible?

Something similar to a datestamp which automatically gets inserted.

URGENT help required.

Thanks in advance.

I would do something like this.

Basically if anyone wants to insert a new row of data to press a button which will automatically put in the date and their username.

Sub NewRow()

Dim MyName As String
Dim r As Integer
' latest info finder
'move to new row and +1
Range("F3").End(xlDown).Offset(1, 0).Select <----------------Input the first cell with a list of information (key field, in the case of this example, F3 contains the first of a list of primary keys)
r = ActiveCell.Row
'add initials
MyName = Environ("username")
Range("J" & r).Value = MyName <------------input the column letter you want the name put into (J)
'add date
Range("G" & r).Value = Date <-------------------input the column letter you want the date pasted into (G)
Range("K" & r).Select <------------------------- this will select the first cell where you would like them to start inputting information

End Sub

 

[hakuna]

What code are you actually using?

the code I am using is different but it produces username.

this is my code:

if activecell.value = "sent" and .offset(0,13) = "" then
activecell.offset(0,13) = application.username
end if

This is a case when it is "sent" i have 2 other cases too.

When I enter something in that cell, my USERNAME is produced in the X column. However, after saving the file on exit, and when I re-open it, and UPDATE, the entire X Column has my USERNAME!!!

PLease kindly help!

 

[hakuna]

I would do something like this.

Basically if anyone wants to insert a new row of data to press a button which will automatically put in the date and their username.

Sub NewRow()

Dim MyName As String
Dim r As Integer
' latest info finder
'move to new row and +1
Range("F3").End(xlDown).Offset(1, 0).Select <----------------Input the first cell with a list of information (key field, in the case of this example, F3 contains the first of a list of primary keys)
r = ActiveCell.Row
'add initials
MyName = Environ("username")
Range("J" & r).Value = MyName <------------input the column letter you want the name put into (J)
'add date
Range("G" & r).Value = Date <-------------------input the column letter you want the date pasted into (G)
Range("K" & r).Select <------------------------- this will select the first cell where you would like them to start inputting information

End Sub

Thanks for the help. But i don't have to insert USERNAME on every new row entry.

When I randomly enter data in between rows, it must produce USERNAME in a separate column X. and this is permanent.

I hope you are getting what I am trying to say ???!!

 

[RoryA]

How is your code being triggered? I would hazard a guess it's in an event routine, but which one?

 

[hakuna]

How is your code being triggered? I would hazard a guess it's in an event routine, but which one?

I'm not understanding what you've asked...

This is part of the code in a sheet.

Private Sub Worksheet_Change(ByVal as Target excel.range)
Application.enableevents = false
On error goto enditall
IF Target = column(11) //// target is set to column 11

with target
If .value = "sent" and .offset(0,13) = "" then
.offset(0,13).value = APPLICATION.USERNAME
end if
end with

With ....
IF....

end if
end with

with ...
if...

end if...
end with...

end if

enditall:
application.enableevents = true


This is the code I'm using now.
Please guide me!