Check Mark

  • Thread starter Anthony Viscomi
  • Start date
A

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
 
B

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)
 
A

Anthony Viscomi

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

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)
 
A

Anthony Viscomi

Works great, Thanks!
Bob Phillips said:
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)
Click to expand...
 
R

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
 
S

Sloth

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
 
S

Sloth

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
 
Top