cells

[MindyLeigh]

Is there a way to create cells to be like a check box. I am creating a survey in which there are 5 options and what I would like to do is make the cells so that that when they click into the cell it puts an X in it or maybe highlights that cell. Is this possible? I know I can use a Check box but it really isn't working the way I want it to.

Thanks,
Mindy

 

[Lewiy]

When you say it's not working how you'd like it, what do you mean? WOuld you be better off using option buttons to allow only one selection per section?

 

[MindyLeigh]

I can't use an option button, I would like to but my president don't want that. The check boxes are just formatted wrong for what I want. I can use them, but they don't look good and I was just wondering if there was another option?

 

[Scott Huish]

What is the range for the X's? Are they a set amount apart, say B2:B6, B8:B12, etc.?

 

[Lewiy]

How do you mean "formatted wrong"

 

[MindyLeigh]

B3: F14 is the range.

 

[MindyLeigh]

They are too small.

 

[Lewiy]

Have you considered increasing the zoom level? You could make all the cells and font sizes smaller so they appear the same but it will increase the relative size of the check boxes.

 

[Scott Huish]

Try this code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Target.Cells.Count > 1 Then Exit Sub
Set c = Intersect(Range("B3:F14"), Target)
If c Is Nothing Then Exit Sub
Cells(Target.Row, 2).Resize(, 5) = ""
Target = "X"
End Sub

To put this in:
Copy the code above
Right click the sheet tab for the sheet you want this to happen on, and click on View Code
Paste into white area
Hit Alt-q
This code will be saved with the workbook when you save the workbook.

 

[MindyLeigh]

thank you soooo much, that is exactly what I wanted.