MACRO NASCONDI E RIMOSTRA RIGHE

Hai un problema con Excel?

Nuova discussione

MACRO NASCONDI E RIMOSTRA RIGHE
di sought (utente non iscritto) data: 19/08/2015 10:34:26
Salve a tutti, avevo un problema con delle macro di excel. Ora vi spiego il problema.
Io ho necessità di inserire una casella di controllo che se viene spuntata deve nascondere la l'intera riga in cui si trova.
Qualcuno puo aiutarmi gentilmente?
Grazie.

di Marius44 data: 19/08/2015 11:01:05
Buona giornata sought
Non hai bisogno di una macro, ma di due. La prima per nascondere la riga e la seconda per ripristinarla se ti serve.
Ti posto il codice dell'evento Worksheet_Change che dovrai inserire nel Foglio1 (se il tuo lavoro è nel Foglio1) ed una macro che dovrai associare ad un pulsante-modulo.
Vedi se va bene e fammi sapere.
Ciao,
Mario

PS Ho immaginato che la "casella di controllo" è nella colonna A e il valore di controllo è una X maiuscola.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Set c = Columns(1)
    If Not Intersect(c, Target) Is Nothing Then
        If Target.Value = "X" Then ActiveSheet.Rows(Target.Row).Hidden = True
    End If
End Sub
Sub Mostra()
    Cells.Select
    Selection.EntireRow.Hidden = False
    Application.EnableEvents = False
    Columns(1).ClearContents
    Application.EnableEvents = True
    Range("A1").Select
End Sub

di Vecchio Frac data: 19/08/2015 11:28:59
cit. "se viene spuntata deve nascondere la l'intera riga in cui si trova. "
---> Pessima strategia, perchè se poi l'utente vuole rivisualizzare la riga, come fa? la casella di controllo infatti è stata nascosta.
di Marius44 data: 19/08/2015 14:42:59
@ VF
Appunto per questo ho preparato le due "macro". La Sub Mostra() non fa altro che ripristinare l'intera visione e cancellare le eventuali "X" inserite. Non è la strategia che avrei usato io ma mi sono adeguato alla richiesta.

Ciao,
Mario

PS. A parte l'imperdonabile dimenticanza di Option Explicit (ma fortunatamente la variabile è solo una e ben dichiarata).

Vuoi Approfondire?