Links to multiple Checkboxes

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Bahboosh - 28 Jul 2006 14:44 GMT

I'm trying to link a range of cells that include checkboxes to an
adjacent column, but i dont want to go into each cell and link them
seperatley. Is there an easier way to do this?
Ex.:

A1:A100 include the checkboxes

C1:C100 linked cells

Thanks

Reply to this Message

Dave Peterson - 28 Jul 2006 16:05 GMT

There are two types of checkboxes--from the forms toolbar and from the control
toolbox toolbar.

Option Explicit
Sub testme01()
Dim CBX As CheckBox
Dim OLEObj As OLEObject

For Each CBX In ActiveSheet.CheckBoxes
CBX.LinkedCell = CBX.TopLeftCell.Offset(0, -1).Address(external:=True)
Next CBX

For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.LinkedCell _
= OLEObj.TopLeftCell.Offset(0, -1).Address(external:=True)
End If
Next OLEObj
End Sub

The .topleftcell.offset(0,-1) means to use the column to the left of the
checkbox.

The CBX code does the Forms toolbar checkboxes. The OLEObj code does the
Control toolbox toolbar checkboxes.

> I'm trying to link a range of cells that include checkboxes to an
> adjacent column, but i dont want to go into each cell and link them
[quoted text clipped - 6 lines]
>
> Thanks

Signature

Dave Peterson

Reply to this Message

Dave Peterson - 28 Jul 2006 16:50 GMT

Ps. I'd use

.topleftcell.address(external:=true)

And format those cells (whole column???) with a custom format of:

;;;
(3 semicolons)

The cells look empty except when you look at the formula bar.

> There are two types of checkboxes--from the forms toolbar and from the control
> toolbox toolbar.
[quoted text clipped - 36 lines]
>
> Dave Peterson

Signature

Dave Peterson

Reply to this Message

Rate this thread: