Se devi nascondere determinate colonne utilizzando un pulsante, puoi utilizzare questo codice. Cambierà anche il testo del pulsante di comando in Nascondi colonne e poi di nuovo lo cambierà in Scopri colonne.
Sotto Nascondi_C()
Dim C_ell As Range
ActiveSheet.Shapes.Range(Array("Button 2")).Seleziona
Se Selection.Characters.Text = "Mostra colonne" allora
Colonne. Nascosto = Falso
Selection.Characters.Text = "Nascondi colonne"
Altro
Per ogni C_ell In Range("B1", Cells(1, Columns.Count).End(xlToLeft))
Se C_ell = "x" allora C_ell.Columns.Hidden = True
Prossimo
Selection.Characters.Text = "Mostra colonne"
Finisci se
Intervallo("A2").Seleziona
Fine sottotitolo