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.
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]
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:
Libro1.zip