Check Mark

[Anthony Viscomi]

I would like to place a "check mark" in a cell, but I'm not sure how to
accomplish this. Can anyone help?

Thanks in advance!
Anthony

 

[Bob Phillips]

Set the cell's font to Marlett, then use the character a.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Anthony Viscomi]

Actually, I was looking to place a "check box" within a cell. Is this
possible?

 

[Bob Phillips]

Checkboxes are separate to a cell, being objects just as the sheet is an
object. They can be linked to cells, and they can be aligned somewhat to
cells. Try using the cells on the Forms toolbar.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Anthony Viscomi]

Works great, Thanks!

Checkboxes are separate to a cell, being objects just as the sheet is an
object. They can be linked to cells, and they can be aligned somewhat to
cells. Try using the cells on the Forms toolbar.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Roger Govier]

Hi Anthony

The following code will place a series of checkboxes alongside values in
another column, in Column G in this example.

Sub CreateCheckBoxes()
On Error Resume Next
Dim c As Range, myRange As Range, lastcell As Long
If Application.ScreenUpdating = True Then Application.ScreenUpdating
= False
lastcell = Cells(Rows.Count, 6).End(xlUp).Row
Set myRange = Range("G1:G" & lastcell)
For Each c In myRange.Cells
ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width,
c.Height).Select
With Selection
.LinkedCell = c.Address
.Characters.Text = ""
.Name = "Check" & c.Address
.Display3DShading = True
End With
Next
myRange.Select
Selection.ColumnWidth = 2.15
Application.ScreenUpdating = True
End Sub

After ticking, just check whether value of cell in G is TRUE or FALSE

 

[Guest]

I don't think you can place a check box in a cell, but you can turn a cell
into a checkbox with this macro I found from another post.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Target
If .Value = "ü" Then
.Value = ""
Else
.Value = "ü"
.Font.Name = "Wingdings"
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

 

[Guest]

This code will make a cell into a checkbox.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Target
If .Value = "ü" Then
.Value = ""
Else
.Value = "ü"
.Font.Name = "Wingdings"
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub