"X" marks the spot

[Vato Loco]

I am working on a call center checklist and I am trying to get c10 t
display "X" when b10 is clicked on, c11 to display "X" when b11 i
clicked on, and c12 to display "X" when clicked on. This process wil
continue with d10/e10, d11/e11, etc.

The sheet sample is included for clarification.

Thanks for any help in advance, and a good day to all. Vato

Attachment filename: sample.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=61512

 

[Frank Kabel]

Hi
try the following worksheet code (put this in your worksheet module):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 2 And Target.Column <> 4 Then Exit Sub

On Error GoTo errhandler
Application.EnableEvents = False
With Target.Offset(0, 1)
If .Value = "" Then
.Value = "X"
Else
.Value = ""
End If
End With

errhandler:
Application.EnableEvents = True
End Sub

 

[Vato Loco]

Thanks alot Frank, That did the trick.

Have a great day!! Vato.

 

[Dana DeLouis]

I am working on a call center checklist

Just another idea would be to format the columns with the "Wingdings" font.
Instead of putting an "X" in the cell, put the character 254. This is a
little box with a check mark. Sometimes it can be a neat option when doing
"Checklist" type stuff. Again, just an idea.

þ

HTH
Dana DeLouis

 

[Dave Peterson]

Another option:

Format the cells with Wingdings (still).
but give each cell a custom format of:
ü;ü;ü;ü

(ü is made by hitting and holding the alt key and typing 0252 from the numeric
keypad--not numbers above the QWERTY keys).

Then any character(s) will look like a check mark.

To determine if the cell is "checked"
=if(a1)="","not checked","checked")

(alt-0252 is a little checkmark without the surrounding box)