Nascondere colonne con criterio

Question

Ciao a tutti,

ho l'esigenza di nascondere (meglio se con una macro) su un foglio di lavoro tutte le colonne che siano diverse da un determinato criterio.

Il criterio può andare da 1 a 6 e lo scrivo nella cella H2 del foglio di lavoro.

Grazie a tutti

http://cid-dd405b0d5a6097c5.office.live.com/browse.aspx/.Documents?uc=1

Answer 1

Mauro, la macro funziona, c'è solo da rendere visibili solo quelle colonne che riportano il numero del criterio nascondendo le altre.

Grazie tante

A.

 

Opsss, capito al contrario... ;-)

Inverti True e False dopo Hidden (lascia come sono gli altri due).

Con qualsiasi valore diverso da 1-6 le colonne sono tutte nascoste. Vedi se va bene, altrimenti modifichiamo.

Fai sapere, grazie

Answer 2

Ciao a tutti,

ho l'esigenza di nascondere (meglio se con una macro) su un foglio di lavoro tutte le colonne che siano diverse da un determinato criterio.

Il criterio può andare da 1 a 6 e lo scrivo nella cella H2 del foglio di lavoro.

Grazie a tutti

http://cid-dd405b0d5a6097c5.office.live.com/browse.aspx/.Documents?uc=1

 

Se(se) ho capito, copia/incolla questo codice nel modulo di codice del foglio e prova:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim lng As Long

    If Target.Address = "$H$2" Then

        Application.ScreenUpdating = False

        Me.Columns("I:BP").EntireColumn.Hidden = False

        For lng = 9 To 68

            If Me.Cells(3, lng).Value = Target.Value Then

                Me.Columns(f(lng) & ":" & f(lng)).EntireColumn.Hidden = True

            End If

        Next

        Application.ScreenUpdating = True

    End If

End Sub

Private Function f(lng) As String

    f = Split(Cells(1, lng).Address( _

        True, False, xlA1, False), "$")(0)

End Function

Fai sapere, grazie.

Answer 3

Mauro, la macro funziona, c'è solo da rendere visibili solo quelle colonne che riportano il numero del criterio nascondendo le altre.

Grazie tante

A.