Ocultar columnas usando un botón

Anonim

Si necesita ocultar ciertas columnas usando un botón, puede usar este código. Incluso cambiará el texto del botón de comando a Ocultar columnas y luego lo cambiará nuevamente a Mostrar columnas.

Sub Hide_C ()

Dim C_ell como rango

ActiveSheet.Shapes.Range (Array ("Botón 2")). Seleccione

Si Selection.Characters.Text = "Mostrar columnas", entonces

Columns.Hidden = False

Selection.Characters.Text = "Ocultar columnas"

Demás

Para cada C_ell en rango ("B1", Cells (1, Columns.Count) .End (xlToLeft))

Si C_ell = "x" Entonces C_ell.Columns.Hidden = True

próximo

Selection.Characters.Text = "Mostrar columnas"

Terminara si

Rango ("A2"). Seleccionar

End Sub