Userform checkbox para ocultar hojas
Soy nuevo y deseo realizar un userform con checkbox, para ocultar hojas que se seleccionen y luego mostrarlas de nuevo, pero no se como realizarlo, hasta el momento he creado el userform, y he escrito lo siguiente
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Sheets("16").Visible = False
pero no se como hacer para ocultar las hojas 17,18,19,20,21,22,23,24 y 25
He colocado el botón ocultar y mostrar para ejecutar los checkbox
1 respuesta
Intenta con lo siguiente hasta llegar a la hoja que quieres ocultar
Private Sub CommandButton2_Click()
If CheckBox1.Value = True Then
Sheets("16").Visible = False
End If
If CheckBox2.Value = True Then
Sheets("17").Visible = False
End If
If CheckBox3.Value = True Then
Sheets("18").Visible = False
End If
If CheckBox4.Value = True Then
Sheets("19").Visible = False
End If
If CheckBox5.Value = True Then
Sheets("20").Visible = False
End If
CheckBox1 = 0
CheckBox2 = 0
CheckBox3 = 0
CheckBox4 = 0
CheckBox5 = 0
End Sub
