Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
I have a Excel file of my customers, Name and address almost 50. weekly I
have to print letter to send few of them one by one (selected only) I want to add check box with every Name. Excel print only those Name which I selected. |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Here is a way to add check marks
This works by double-clicking in a cell, and toggles the check-mark. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const WS_RANGE As String = "H1:H10" '<=== 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 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) "Qazi Ahmad" wrote in message ... I have a Excel file of my customers, Name and address almost 50. weekly I have to print letter to send few of them one by one (selected only) I want to add check box with every Name. Excel print only those Name which I selected. |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
How i add Check Box with every Address line? if i add through Control Box
then how it will work or how i put check mark?. "Bob Phillips" wrote: Here is a way to add check marks This works by double-clicking in a cell, and toggles the check-mark. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const WS_RANGE As String = "H1:H10" '<=== 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 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) "Qazi Ahmad" wrote in message ... I have a Excel file of my customers, Name and address almost 50. weekly I have to print letter to send few of them one by one (selected only) I want to add check box with every Name. Excel print only those Name which I selected. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Print preview and print only shows 2/3 of page selected | Excel Discussion (Misc queries) | |||
How do I print a workbook in but only print selected worksheets? | Excel Discussion (Misc queries) | |||
How do I print selected rows? | New Users to Excel | |||
How do I print out selected worksheets one after the other | Excel Worksheet Functions | |||
SELECTED PRINT | Excel Discussion (Misc queries) |