Saltar al contenido

Casilla de verificación para marcar otras

publicado

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

Featured Replies

publicado

Buenas, Kunstmann

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

Un saludo,

Tese

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.