cells

MindyLeigh

New Member
Joined
May 8, 2007
Messages
8
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
 

Some videos you may like

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Lewiy

Well-known Member
Joined
Jan 5, 2007
Messages
4,284
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

New Member
Joined
May 8, 2007
Messages
8
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

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
What is the range for the X's? Are they a set amount apart, say B2:B6, B8:B12, etc.?
 

Lewiy

Well-known Member
Joined
Jan 5, 2007
Messages
4,284

ADVERTISEMENT

How do you mean "formatted wrong"
 

Lewiy

Well-known Member
Joined
Jan 5, 2007
Messages
4,284
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

MrExcel MVP
Joined
Mar 17, 2004
Messages
19,958
Office Version
  1. 365
  2. 2010
Platform
  1. Windows
Try this code:

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.
 

Watch MrExcel Video

Forum statistics

Threads
1,123,104
Messages
5,599,746
Members
414,333
Latest member
willfrederick

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top