Check Boxes

**JieJenn** · 06-12-2015, 11:42 AM

Assign this macro to your check box 37

Sub CheckUncheck()
Dim ws As Worksheet: Set ws = ActiveSheet
Dim ctrl As Shape
Dim lChkBox As Integer

lChkBox = IIf(ws.Shapes("Check Box 37").ControlFormat.Value = 1, 1, -4146)

For Each ctrl In ws.Shapes
    If ctrl.Name <> "Check Box 37" Then
        ctrl.ControlFormat.Value = lChkBox
    End If
Next ctrl

End Sub

**MickG** · 06-12-2015, 11:59 AM

Try this:-

Sub ListFilesByDate()
Dim shp As Object
With Worksheets("sheet1")
  For Each shp In .Shapes
    If shp.Type = msoFormControl Then
          If shp.FormControlType = xlCheckBox Then
               If Not shp.Name = "Check Box 37" Then
                  shp.OLEFormat.Object.Value = ActiveSheet.Shapes("Check Box 37").OLEFormat.Object.Value
                End If
         End If
    End If
 Next
End With
End Sub

Check Boxes

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Re: Check Boxes

Re: Check Boxes

Thread Information

Users Browsing this Thread

Similar Threads

Check boxes that delete other check boxes and change the color of another cell.

[SOLVED] Coding Yes/No option buttons to not allow check boxes or require check boxes

Copy row that contains check boxes without the check boxes being linked

I need a code for presence check to check multiple text boxes and combo boxes

Automatic setting of check boxes based on other check boxes?

Bookmarks

Bookmarks

Posting Permissions