Can you Add Check Boxes??

[Guest]

I'd like to add a column in a worksheet with check boxes to indicate steps in
a procedure that have been completed for items in each row. And upon the
check boxes being marked have that row turn a different color and maybe
change cell values. I am pretty familar with macros and have used Forms
before, but what I am asking is if you can put a form object (checkbox)
directly on an excel spreadsheet??

Thanks for your help!

 

[Norman Jones]

Hi Bythsx-Addagio,

To add checkboxes programmatically, try something like:

'=============>>
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim rCell As Range

Set WB = ThisWorkbook
Set SH = WB.Sheets("Sheet1")
Set rng = SH.Range("B2:B120")

Application.ScreenUpdating = False
For Each rCell In rng.Cells
With SH.CheckBoxes.Add(rCell.Left + 5, rCell.Top - 2, 5, 5)
.Caption = ""
.LinkedCell = rCell.Address(False, False)
End With
rCell.Font.Color = vbWhite
Next rCell
Application.ScreenUpdating = True

End Sub
'<<=============


You can imsert a checkboxes manaully via:

View | Toolbars | Forms (or Control Toolbox)

 

[Dave Peterson]

I find this technique pretty easy...

Select the range
Format|cells|number tab|custom category
In the "type:" box, put this:
alt-0252;alt-0252;alt-0252;alt-0252

But hit and hold the alt key while you're typing the 0252 from the numeric
keypad.

It should look something like this when you're done.
ü;ü;ü;ü
(umlaut over the lower case u separated by semicolons)

And format that range of cells as Wingdings.

Now, no matter what you type (spacebar, x, anyoldtextatall), you'll see a check
mark.

Hit the delete key on the keyboard to clear the cell.

If you have to use that "checkmark" in later formulas:

=if(a1="","no checkmark","Yes checkmark")