If list item in cell A contains X then insert signature in cell B

[skuliaxe]

Hi,

I´m new to the advanced functions in excel and really could use a little help.

What I need:
In Column A i have multiple list items down many rows. If the list in "Column A - Row 1" is anything but empty then in "Column B - Row 1" the current logged in UserName should print out (aka signature).

Why: (if anybody cares...)
I have multiple users that need to check that they have completed a given task in this excel list. I need the signtures to be automatic (ie true). If a user is logged into the computer then he can only add his signature. The users selects "Checked" og "Fixed" from the list and his signature is automatically added to the cell next to the list.

 

[villy]

Try...

Sub LogIn()
Select Case Range("A1").Value
     Case Empty, "Fixed", "Checked"
          Range("B1").Value = Environ("username")
End Select
End Sub

 

[skuliaxe]

Try...

Sub LogIn()
Select Case Range("A1").Value
     Case Empty, "Fixed", "Checked"
          Range("B1").Value = Environ("username")
End Select
End Sub

Thanks,
This works for the list in A1. Is there any way to have one code for ALL list items? I have one list in each row (Column A, Rows 1 - 100). So if list in Column A Row X is set to "checked" then Column B Row X is populated with the signature?

 

[Yahya]

with Villy code

Sub LogIn()
Dim c As Range
For Each c In Range("a1:a100")
    Select Case cValue
        Case Empty, "Fixed", "Checked"
            c.Offset(, 1).Value = Environ("username")
    End Select
Next c
End Sub

 

[skuliaxe]

Almost there

Now if I select any value from one list, all rows next to it get filled with the signature. I would only like the cell next to the list to be filled if the list is not empty.

 

[villy]

Thanks,
This works for the list in A1. Is there any way to have one code for ALL list items? I have one list in each row (Column A, Rows 1 - 100). So if list in Column A Row X is set to "checked" then Column B Row X is populated with the signature?

 Sub LogIn()
For i = 1 to Range("A" & Rows.Count).End(xlUp).Row
 
Select Case Range("A" & i).Value
     Case Empty, "Fixed", "Checked"
          Range("B" & i).Value = Environ("username")
End Select
Next i
End Sub

 

[Yahya]

try this

Sub LogIn()
Dim c As Range, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("a1:a" & LR)
    Select Case cValue
        Case Empty, "Fixed", "Checked"
            c.Offset(, 1).Value = Environ("username")
    End Select
Next c
End Sub