Checkbox vinculado a otro checkbox
Publicado por José (1 intervención) el 01/07/2021 19:14:51
¡Hola! Tengo un problema del que llevo días intentando solucionar, espero me puedan ayudar. He intentado que dos checkbox (Casilla, Control de formulario) estén vinculadas.
En la imagen muestro la casilla de Grado y la de Sexo. La de sexo al clickear no debe hacer nada, pero el de Grado debe mostrar valores dependiendo si la casilla de Sexo está prendida o apagada. En caso de que no, debe mostrar solo los totales, en el caso de que sí debe mostrar los totales y la segmentación entre hombres y mujeres.
Eso ya se pudo hacer, el problema es que no lo puedo ocultar al dar click, me sale error y ya he intentado de muchísimas formas y no logro entender qué falta. Agradecería mucho la ayuda, escribo el código del VBA a continuación.
En la imagen muestro la casilla de Grado y la de Sexo. La de sexo al clickear no debe hacer nada, pero el de Grado debe mostrar valores dependiendo si la casilla de Sexo está prendida o apagada. En caso de que no, debe mostrar solo los totales, en el caso de que sí debe mostrar los totales y la segmentación entre hombres y mujeres.
Eso ya se pudo hacer, el problema es que no lo puedo ocultar al dar click, me sale error y ya he intentado de muchísimas formas y no logro entender qué falta. Agradecería mucho la ayuda, escribo el código del VBA a continuación.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub boton_grado()
grado = Range("G1")
sex = Range("G11")
If grado = True ThenIf sex = True Then 'sexo activo
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("1ro Hombres"), "1° Hombres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("1ro Mujeres"), "1° Mujeres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("1ro Total"), "1° Total", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("2do Hombres"), "2° Hombres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("2do Mujeres"), "2° Mujeres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("2do Total"), "2° Total", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("3ro Hombres"), "3° Hombres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("3ro Mujeres"), "3° Mujeres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("3ro Total"), "3° Total", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("Total Hombres (Nota 2)"), "Total de Hombres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("Total Mujeres (Nota 2)"), "Total de Mujeres", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("Total General (Nota 2)"), "Total General", xlSum
Else
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("1ro Total"), "1° Total", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("2do Total"), "2° Total", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("3ro Total"), "3° Total", xlSum
ActiveSheet.PivotTables("TablaDinámica2").AddDataField ActiveSheet.PivotTables _
("TablaDinámica2").PivotFields("Total General (Nota 2)"), "Total General", xlSum
End If
Else
ActiveSheet.PivotTables("TablaDinámica2").PivotFields("1ro Total"). _
Orientation = xlHiddenActiveSheet.PivotTables("TablaDinámica2").PivotFields("2do Total"). _
Orientation = xlHiddenActiveSheet.PivotTables("TablaDinámica2").PivotFields("3ro Total"). _
Orientation = xlHiddenActiveSheet.PivotTables("TablaDinámica2").PivotFields("Total General (Nota 2)"). _
Orientation = xlHiddenEnd If
End Sub
Valora esta pregunta
0