Select only one from five choices

[PCTech]

I'm trying to find a way to make the user select only one of five columns in a row. What I’m trying to get is a ranking of 1 to 5. The user will click a cell and it will fill in or the user puts an X in it. In row 8 I want to select A through E but only one of them. If the user changes their mind and clicks another cell, the first cell clears. I hope you can understand what I'm trying to do.

Thanks

 

[PCTech]

This is perfect.
I changed Target = "X" to Target = "P" and made the font Wingdings 2 so I now have a check mark in the cell.

Thanks for all the help.

 

[PCTech]

Boller, will you tell me what the 6 is for in

Cells(Target.Row, 6).Select

I don't see where the 6th row or column is involved at all.
This went over so well that they now want changes. I'm trying to see if I can do this to one row at a time. Every other row will be for comments. I can make it work on row 8 OK but I can't get it to row 10 and 12 and so on.

Thanks

 

[Boller]

The 6 is the Column (column F).
The selection automatically changes to column 6 if more than one cell is selected within A8:E28

To change the relevant cells, the cell references in this line need to be changed :-

If Not Intersect(Target, [A8:E28]) Is Nothing Then

Or perhaps :-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A:E]) Is Nothing Then
    If Target.Cells.Count <> 1 Or Target.Row Mod 2 <> 0 Then
        MsgBox "Only one cell at a time in even numbered rows can be selected in columns A to E"
        Application.EnableEvents = False
        Cells(Target.Row, 6).Select
        Application.EnableEvents = True
    Else
        Cells(Target.Row, 1).Resize(, 5).ClearContents
        Target = "X"
    End If
End If
End Sub

 

[Boller]

Correction :-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [A8:E28]) Is Nothing Then
    If Target.Cells.Count <> 1 Then
        MsgBox "Only one cell at a time can be selected in columns A to E"
        Cells(Target.Row, 6).Select
        GoTo e
    ElseIf Target.Row Mod 2 <> 1 Then
        Cells(Target.Row, 1).Resize(, 5).ClearContents
        Target = "X"
    End If
End If
e: Application.EnableEvents = True
End Sub

 

[PCTech]

Works Great.
Thanks Boller

 

[PCTech]

Works Great.
Thanks Boller