| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code to insert check mark
I found the following code in a post from 2005. I tried to follow the
instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
Sorry, here is the code.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
Try this alternative
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:E" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select me.cells(.row,"C").select End With End If err_handler: Application.EnableEvents = True End Sub This is worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module. To do this, right-click on the sheet tab, select the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Sorry, here is the code. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
Thanks Bob,
I have pasted it worksheet code module. Does it have to be someone "activated"? I changed the column range to D:F, but nothing happens when I click cell D4. Can you help? Thanks "Bob Phillips" wrote: Try this alternative Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:E" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select me.cells(.row,"C").select End With End If err_handler: Application.EnableEvents = True End Sub This is worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module. To do this, right-click on the sheet tab, select the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Sorry, here is the code. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
No activation is required, it runs fine in those columns if you paste into
the worksheet code module. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Thanks Bob, I have pasted it worksheet code module. Does it have to be someone "activated"? I changed the column range to D:F, but nothing happens when I click cell D4. Can you help? Thanks "Bob Phillips" wrote: Try this alternative Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:E" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select me.cells(.row,"C").select End With End If err_handler: Application.EnableEvents = True End Sub This is worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module. To do this, right-click on the sheet tab, select the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Sorry, here is the code. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
Bob,
Thanks - got it to work. Had to exit and re-open the file. Is there a way to "format" the check mark. Center it? Make it bigger? Bold? Agains...thanks "Bob Phillips" wrote: No activation is required, it runs fine in those columns if you paste into the worksheet code module. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Thanks Bob, I have pasted it worksheet code module. Does it have to be someone "activated"? I changed the column range to D:F, but nothing happens when I click cell D4. Can you help? Thanks "Bob Phillips" wrote: Try this alternative Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:E" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select me.cells(.row,"C").select End With End If err_handler: Application.EnableEvents = True End Sub This is worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module. To do this, right-click on the sheet tab, select the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Sorry, here is the code. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
All 3.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:F" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select .HorizontalAlignment = xlCenter .Font.Size = 14 .Font.Bold = True Me.Cells(.Row, "C").Select End With End If err_handler: Application.EnableEvents = True End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Bob, Thanks - got it to work. Had to exit and re-open the file. Is there a way to "format" the check mark. Center it? Make it bigger? Bold? Agains...thanks "Bob Phillips" wrote: No activation is required, it runs fine in those columns if you paste into the worksheet code module. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Thanks Bob, I have pasted it worksheet code module. Does it have to be someone "activated"? I changed the column range to D:F, but nothing happens when I click cell D4. Can you help? Thanks "Bob Phillips" wrote: Try this alternative Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:E" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select me.cells(.row,"C").select End With End If err_handler: Application.EnableEvents = True End Sub This is worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module. To do this, right-click on the sheet tab, select the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Sorry, here is the code. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code to insert check mark
Thanks very much...it worked great
"Bob Phillips" wrote: All 3. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:F" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select .HorizontalAlignment = xlCenter .Font.Size = 14 .Font.Bold = True Me.Cells(.Row, "C").Select End With End If err_handler: Application.EnableEvents = True End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Bob, Thanks - got it to work. Had to exit and re-open the file. Is there a way to "format" the check mark. Center it? Make it bigger? Bold? Agains...thanks "Bob Phillips" wrote: No activation is required, it runs fine in those columns if you paste into the worksheet code module. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Thanks Bob, I have pasted it worksheet code module. Does it have to be someone "activated"? I changed the column range to D:F, but nothing happens when I click cell D4. Can you help? Thanks "Bob Phillips" wrote: Try this alternative Private Sub Worksheet_SelectionChange(ByVal Target As Range) Const WS_RANGE As String = "D:E" '<=== change to suit On Error GoTo err_handler Application.EnableEvents = False If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then With Target .Font.Name = "Marlett" Select Case .Value Case "": .Value = "a" Case "a": .Value = "" End Select me.cells(.row,"C").select End With End If err_handler: Application.EnableEvents = True End Sub This is worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module. To do this, right-click on the sheet tab, select the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "jmcclain" wrote in message ... Sorry, here is the code. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count 1 Then Exit Sub If Target.Column = 1 Then If Len(Trim(Target.Value)) = 0 Then Target.Value = Chr(252) Target.Font.Name = "Wingdings" Target.Font.Size = 10 Else Target.ClearContents End If End If End Sub "jmcclain" wrote: I found the following code in a post from 2005. I tried to follow the instructions. I pasted the code in the view code and exited back to EXCEL. i am trying to allow a user to click column D, E, and F and have EXCEL automatically insert a check mark. Am I on the right track? Can someone outline the process to "activate" this code so it will work? Thanks again Jon |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Short cut key to insert a tick or check mark? | Excel Discussion (Misc queries) | |||
| How can I add active tick mark/check mark boxes in excel? | Excel Discussion (Misc queries) | |||
| Increase size of a Forms Check Box (click on to enter check mark) | Excel Discussion (Misc queries) | |||
| How do I insert a dot/check mark in a cell in Excel? | New Users to Excel | |||
| check box, so when you click on it it inserts a check mark into t. | Excel Discussion (Misc queries) | |||
Linear Mode
