Hi...! Need little help with the macro input box. Thanks`

[pedie]

Sub inputbox_user()
Dim username As String
username = InputBox("Please enter you full name")
Cells(1, 1).Value = username
End Sub


Whenever the user enters the user name i want them to find next empty cell in col a in sheet1 and keep the username.

now what it deos is that it just find Cells(1, 1).Value that is A1 and replace the other username

Thanks in advance,
Pedie

 

[VoG]

Try

Sub inputbox_user()
Dim username As String
username = InputBox("Please enter you full name")
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = username
End Sub

 

[pedie]

Vog. thanks that was quick.
I'm not very famliar with offset thing..but i think i have to figure out myself...


Thanks again.!

 

[VoG]

You are welcome.

If you just wanted to get the Windows logon name you could use

Sub input_user()
Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Environ("username")
End Sub