Re: Username upon Entry

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Perhaps this worksheet Change event code will do what you want. Right-click the tab for the worksheet you want this functionality and select View Code from the popup menu that appears. This will take you into the Visual Basic editor and automatically open the code window for the sheet whose tab you right-clicked on. Copy/Paste the following into that code window...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Target.Column = 1 Then
For Each C In Target
C.Offset(0, 1).Value = Environ("USERNAME")
Next
End If
End Sub

Any changes made in Column A (including deleting an entry) will put the username in the same row in Column B.

Rick



"NPell" <noalenpell@xxxxxxxxx> wrote in message news:6ad2415c-bd66-46a5-b5b7-cf8cef60840b@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hello,

I am trying to create a way of logging a persons XP Username when they
put a cell value in a specific cell.

For Example;
User puts "X" in Cell A1, their username is returned in B1.

Thanks if you can help.

.

Relevant Pages

  • Re: Creating a hyperlink in part of a cell
    ... Dim rownum As Integer, I As Integer, ii As Integer, Username as String, ... Dim oDoc As Word.Document ... 'Add a tab stop with leader dots to the cell ... 'Add a tab at the very end of the cell, ...
    (microsoft.public.word.vba.general)
  • Re: Formatting index entries
    ... replace each space with a tab character ... Copy the whole cell ... use Edit>Replace to replace every tab with a space. ... you want to rip all the Index tags out of the main document. ...
    (microsoft.public.mac.office.word)
  • RE: Conditional Formatting - more than 4 cell colors
    ... first time going to the VB tab to enter code. ... when it seems to work for previous posters. ... interior color of the cell) based on the text listed in each ... If Target.Cells.Count> 1 Then Exit Sub ...
    (microsoft.public.excel.worksheet.functions)
  • Re: grab cell text from multi-tab workbook, show text in another w
    ... Paste the cells (it will add the workbook name now to the formula) ... Delete the "Summary-Sheet" in DPP Q2 2007 Leadsheets.xls ... I would like to have the text typed in A50 populate cell O7 of the Summary ... above to call up the next tab reference name (i.e., ...
    (microsoft.public.excel.worksheet.functions)
  • Re: Delete Function:
    ... the macro will create a tab for the inserted ... Dave Peterson wrote: ... rResult is an object that has lots of properties. ... rResultwill refer to the first cell in that range. ...
    (microsoft.public.excel.programming)