Ocultar varios checkbox con bucles
A toda la comunidad,
Tengo el siguiente problema, en el siguiente codigo podran observar los que pretendo hacer
Bueno se trata de ocultar algunas filas de excel pero dentro de estas filas tengo varios checkbox, que tambien quiero ocultar, logro realizar este tarea pero me resulta muy repetitivo, hay alguna forma de crear un ciclo for en el cual pueda optener el mismo resultado para ocultar los checkbox, ya que es necesario concatenar el numero del checkbox par aeste fin.
Muchas gracias de antemano por su ayuda.
Saludos
Sub MostrarGSM()
Worksheets("Hoja2").Select
Rows("102:104").Hidden = False
With ActiveSheet
.CheckBox6.Visible = True
.CheckBox7.Visible = True
.CheckBox8.Visible = True
.CheckBox9.Visible = True
.CheckBox10.Visible = True
.CheckBox11.Visible = True
.CheckBox12.Visible = True
.CheckBox13.Visible = True
.CheckBox14.Visible = True
.CheckBox15.Visible = True
.CheckBox16.Visible = True
.CheckBox17.Visible = True
.CheckBox18.Visible = True
.CheckBox19.Visible = True
.CheckBox20.Visible = True
.CheckBox21.Visible = True
.CheckBox22.Visible = True
.CheckBox23.Visible = True
.CheckBox24.Visible = True
.CheckBox25.Visible = True
.CheckBox26.Visible = True
End With
1 Respuesta
Si los checkbox son consecutivos, puedes utilizar esta pequeña macro para ocultarlos:
Sub Ocultar()
For t = 1 To 5 ' Cambia el 1 y el 5 por los valores de tus checkbox
Worksheets(1).OLEObjects("CheckBox" & t).Visible = False
Next t
End SubEsto ocultaría los cinco checkbox que hay en la hoja1.
Si te ha servido no olvides puntuar la respuesta.
