Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add check mark to cell upon selection
Hello All!
I am trying to write code that will add a check mark to any cell in Column A upon selection. Here is what I've written, but I cannot get it to work. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub Any thoughts on why this is not working? Thanks in advance! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add check mark to cell upon selection
Format your cells as 'Wingdings 2' and put this event code behind the SHEET
(not in a Module): Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A1:AZ100")) Is Nothing Then If Target = "P" Then Target = vbNullString ElseIf Target = vbNullString Then Target = "P" Else End If End If End Sub HTH, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "RVS" wrote: Hello All! I am trying to write code that will add a check mark to any cell in Column A upon selection. Here is what I've written, but I cannot get it to work. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub Any thoughts on why this is not working? Thanks in advance! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add check mark to cell upon selection
"RVS" try the below
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A100")) Is Nothing Then If Target.Count = 1 Then Target.Font.Name = "Marlett" Target.Value = IIf(Target.Value = "r", "e", "r") 'Target.Value = IIf(Target.Value = "a", "e", "a") 'For tick mark End If End If End Sub If this post helps click Yes --------------- Jacob Skaria "RVS" wrote: Hello All! I am trying to write code that will add a check mark to any cell in Column A upon selection. Here is what I've written, but I cannot get it to work. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub Any thoughts on why this is not working? Thanks in advance! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add check mark to cell upon selection
Missed to mention ...You can create a visual impact of check box by doing the
below along with your code.. 1. Enter small letter "e" in all the cells (A2:A100) 2. Select all cells in that range (A2:a100) and change the font to Marlett. 3. Adjust the column width to look like a square check box If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: "RVS" try the below Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A100")) Is Nothing Then If Target.Count = 1 Then Target.Font.Name = "Marlett" Target.Value = IIf(Target.Value = "r", "e", "r") 'Target.Value = IIf(Target.Value = "a", "e", "a") 'For tick mark End If End If End Sub If this post helps click Yes --------------- Jacob Skaria "RVS" wrote: Hello All! I am trying to write code that will add a check mark to any cell in Column A upon selection. Here is what I've written, but I cannot get it to work. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub Any thoughts on why this is not working? Thanks in advance! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do you replace a yes value in a cell with a check mark? | Excel Discussion (Misc queries) | |||
Check Mark in a cell | Excel Worksheet Functions | |||
How can I add active tick mark/check mark boxes in excel? | Excel Discussion (Misc queries) | |||
Cannot check the check mark box in cell | Excel Worksheet Functions | |||
How do you replace a yes value in a cell with a check mark? | Excel Discussion (Misc queries) |