Double Click to enter User ID

[monk22]

Guys, i have some code that allows my users to enter their user ID on double clicking. The worksheet code below shows how on double clicking into Colum 3 (If Target.Column = 3 Then) then the user ID will appear. Q: How do i get the code to work in Columns 3, 5 and 7 but not those inbetween?! I tried using "or" but it allowed the ID to be entered into all columns! i.e. 3,4,5,6 and 7 which is not what I require. In short I need the ID to appear on double clik into every other column. Thanks. See below for code:



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim user As String
'This refers to the function ReturnUserName, which takes the name from the NT environment

If Target.Column = 3 Then
Target = ReturnUserName
Cancel = True
End If

End Sub



Many Thnaks
Monk22

 

[monk22]

Hi VoG II - this gives the same error message! I am using MS Excel 2003.

 

[VoG]

Hi. Sorry about that - it works in XL 2007 but not in XL 2000.

Try this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column Mod 2 = 1 And Target.Row Mod 2 = 1 Then
    Target.Value = Environ("username")
    Cancel = True
End If
End Sub