Casilla de verificación para marcar otras

[Kunstmann]

Estimados, favor vuestra ayuda, necesito agregar una casilla de verificación (control de formulario) que al marcarla me marque el resto de casillas (40) que tengo en la hoja, esto para restaurar los datos a su forma original; se que debe hacerce con vba, pero no me manejo.

Es decir, tengo una hoja con 40 casillas de verificacion y necesito agregar una que al marcarla marque todas y al desmarcarla las desmarque todas.

Quedo atento sus comentarios

---------------------------------------------------------

buscando y rebuscando en la web encontre estos 2 codigos, si lo ejecuto por separado funcionan perfectamente, pero no se como unirlos para que funcionen dependiendo del estado del CheckBox principal:

Sub Desmarcar()

Dim i As Long

Dim x As Object

'CheckBox de formulario

    For i = 1 To ActiveSheet.Shapes.Count

        ActiveSheet.Shapes(i).Select

        If TypeName(Selection) = "CheckBox" Then Selection.Value = xlOff

    Next i

'CheckBox control activex

    For i = 1 To ActiveSheet.OLEObjects.Count

        Set x = ActiveSheet.OLEObjects(i).Object

            If TypeName(x) = "CheckBox" Then x.Value = 0

        Set x = Nothing

    Next i

End Sub


Sub Marcar()

Dim i As Long

Dim x As Object

'CheckBox de formulario

    For i = 1 To ActiveSheet.Shapes.Count

        ActiveSheet.Shapes(i).Select

        If TypeName(Selection) = "CheckBox" Then Selection.Value = xlOn

    Next i

'CheckBox control activex

    For i = 1 To ActiveSheet.OLEObjects.Count

        Set x = ActiveSheet.OLEObjects(i).Object

            If TypeName(x) = "CheckBox" Then x.Value = 0

        Set x = Nothing

    Next i

End Sub

[/CODE]

Libro1.zip

[tese1969]

Buenas, Kunstmann

Sube un archivo, por favor................lee las normas del foro....

Un saludo,

Tese

[Kunstmann]

Listo! se agrega archivo Tese1969