Pulsante che visualizzi solo righe con dato valore in data colonna

Question

Vorrei inserire 2 pulsanti, il primo che visualizza solo ed esclusivamente le RIGHE che hanno come valore delle celle della colonna C uguale a FALSO. Mentre il secondo che ripristina tutte le RIGHE in modo che possa visualizzarle tutte, senza distinzione di VERO o FALSO.

Il tutto dovrebbe funzionare con la colonna C nascosta

Qualcuno può aiutarmi?

Grazie

	A	B	C	D	E
1
2	operatore1	operatore2	Test
3			VERO
4			FALSO
5			VERO

Answer 1

Ciao Luca,

Vorrei inserire 2 pulsanti, il primo che visualizza solo ed esclusivamente le RIGHE che hanno come valore delle celle della colonna C uguale a FALSO. Mentre il secondo che ripristina tutte le RIGHE in modo che possa visualizzarle tutte, senza distinzione di VERO o FALSO.

Il tutto dovrebbe funzionare con la colonna C nascosta

	A	B	C	D	E
1
2	operatore1	operatore2	Test
3			VERO
4			FALSO
5			VERO

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Nasconda()

    Dim Rng As Range

    Dim rCell As Range

    Dim hideRng As Range

   Set Rng = ActiveSheet.Range("A1").CurrentRegion

     For Each rCell In Rng.Columns(3).Cells

        With rCell

        If .Value = True Then

            If hideRng Is Nothing Then

                Set hideRng = rCell

            Else

                Set hideRng = Union(rCell, hideRng)

            End If

        End If

        End With

    Next rCell

     If Not hideRng Is Nothing Then

        hideRng.EntireRow.Hidden = True

     Else

        'nothing found, do nothing

    End If

End Sub

'--------->>

Public Sub Visualizza()

    Dim Rng As Range

   Set Rng = ActiveSheet.Range("A1").CurrentRegion

   Rng.Rows.Hidden = False

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Fai clic dx sul primo pulsante
• Assegnalo la prima macro
• Fai clic dx sul secondo pulsante
• Assegnalo la seconda macro

• Salva il file con l’estensione xlsm

Potresti scaricare il mio file di prova Luca20170119.xlsm a:

https://www.dropbox.com/s/tllubfzuvg76nkh/Luca20170119.xlsm?dl=0

===

Regards,

Norman

Answer 2

Funziona scusa il disturbo e grazie

Answer 3

Ciao Luca,

Vorrei inserire 2 pulsanti, il primo che visualizza solo ed esclusivamente le RIGHE che hanno come valore delle celle della colonna C uguale a FALSO. Mentre il secondo che ripristina tutte le RIGHE in modo che possa visualizzarle tutte, senza distinzione di VERO o FALSO.

Il tutto dovrebbe funzionare con la colonna C nascosta

	A	B	C	D	E
1
2	operatore1	operatore2	Test
3			VERO
4			FALSO
5			VERO

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Nasconda()

    Dim Rng As Range

    Dim rCell As Range

    Dim hideRng As Range

      

   Set Rng = ActiveSheet.Range("A1").CurrentRegion

     For Each rCell In Rng.Columns(3).Cells

        With rCell

        If .Value = True Then

            If hideRng Is Nothing Then

                Set hideRng = rCell

            Else

                Set hideRng = Union(rCell, hideRng)

            End If

        End If

        End With

    Next rCell

    

     If Not hideRng Is Nothing Then

        hideRng.EntireRow.Hidden = True

     Else

        'nothing found, do nothing

    End If

End Sub

'--------->>

Public Sub Visualizza()

    Dim Rng As Range

          

   Set Rng = ActiveSheet.Range("A1").CurrentRegion

   Rng.Rows.Hidden = False

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Fai clic dx sul primo pulsante
• Assegnalo la prima macro
• Fai clic dx sul secondo pulsante
• Assegnalo la seconda macro

• Salva il file con l’estensione xlsm

Potresti scaricare il mio file di prova Luca20170119.xlsm a:

https://www.dropbox.com/s/tllubfzuvg76nkh/Luca20170119.xlsm?dl=0

===

Regards,

Norman

Mi spiace ma non funziona. Riusciresti a dargli una controllata per capire dove sbaglio. Grazie Mille 

https://www.dropbox.com/s/s8a68rzntjszq7y/CSL-TEST.xlsm?dl=0

Answer 4

Siccome il file è utilizzato da operatori che non hanno alcuna confidenza con il programma mi fa comodo il pulsante, in quanto immediato

Answer 5

Anziché un pulsante puoi utilizzare la funzione Filtro.

Posizionati sulla cella Test, quindi barra Dati-->Ordina e Filtra-->Filtro.

Nella cella Test comparirà una freccia cliccando la quale puoi gestire i dati da vedere o da nascondere.