Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
CheckBox
I would like to add a checkbox in each row that has a specific value in
column "B" (i.e. "Mark") and then link that check box to another column in the same row. Can this be done with a loop so that I do not have to manually do this? Thanks for the help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
CheckBox
Hello Herd, Yes it can be done and placed into a loop... ______________________________ Sub AddCheckBoxes() 'Add A Forms CheckBox Dim Cell As Range Dim Col As String Dim LinkCol Dim R As Long Dim Value Col = "B" Value = "Mark" LinkCol = "D" For R = 1 To ActiveSheet.Cells(Rows.Count, Col).Row Set Cell = ActiveSheet.Cells(R, Col) If Cell.Value = Value Then With ActiveSheet.Shapes ..AddFormControl xlCheckBox, Cell.Left, Cell.Top, Cell.Width, Cell.Height End With Shapes(Shapes.Count).ControlFormat.LinkedCell = Cell.(R, LinkCol).Address End If Next R End Sub ______________________________ Sincerely, Leith Ross -- Leith Ross ------------------------------------------------------------------------ Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465 View this thread: http://www.excelforum.com/showthread...hreadid=509609 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
CheckBox
One mo
Option Explicit Sub addCBX() Dim myCBX As CheckBox Dim myCell As Range With ActiveSheet .CheckBoxes.Delete 'nice for testing For Each myCell In ActiveSheet.Range("a1:a50").Cells With myCell Set myCBX = .Parent.CheckBoxes.Add _ (Top:=.Top, Width:=.Width, _ Left:=.Left, Height:=.Height) With myCBX .LinkedCell = myCell.Address(external:=True) .Caption = "" 'or whatever you want .Name = "CBX_" & myCell.Address(0, 0) End With .NumberFormat = ";;;" End With Next myCell End With End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm I used the cell under the checkbox as the linked cell. But I gave it a custom format of ;;;. You can see the value in the formula bar, but it looks empty when you look at the worksheet. Herd wrote: I would like to add a checkbox in each row that has a specific value in column "B" (i.e. "Mark") and then link that check box to another column in the same row. Can this be done with a loop so that I do not have to manually do this? Thanks for the help. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to have Checkbox A uncheck with checked Checkbox B | Excel Discussion (Misc queries) | |||
checkbox on form reset from checkbox on sheet | Excel Programming | |||
Checkbox help | Excel Discussion (Misc queries) | |||
Checkbox | Excel Programming | |||
CheckBox | Excel Programming |