Nascondi colonne utilizzando un pulsante

Se è necessario nascondere determinate colonne utilizzando un pulsante, è possibile utilizzare questo codice. Cambierà anche il testo del pulsante di comando in Nascondi colonne e quindi lo cambierà di nuovo in Scopri colonne.

Sub Hide_C ()

Dim C_ell As Range ActiveSheet.Shapes.Range (Array (“Button 2”)). Seleziona se Selection.Characters.Text = “Unhide Columns” Then Columns.Hidden = False Selection.Characters.Text = “Nascondi colonne”

Else For Each C_ell In Range (“B1”, Cells (1, Columns.Count) .End (xlToLeft))

If C_ell = “x” Then C_ell.Columns.Hidden = True Next Selection.Characters.Text = “Unhide Columns”

End If Range (“A2”) Selezionare End Sub