file

Hai un problema con Excel?

Nuova discussione

macro controllo gruppi righe
di Danny data: 22/02/2016 08:43:13
Ciao a tutti mi chiamo Daniele e sono nuovo al forum
volevo farvi una domanda allegando un file di esempio ma non vedo come inserirlo

saluti e grazie
Daniele
di Santuberto (utente non iscritto) data: 22/02/2016 08:58:33
In basso a dx, si trova "Allega file"
macro controllo gruppi righe
di Danny data: 22/02/2016 08:59:40
Ciao, ciao a tutti

vorrei chiedervi se sarebbe possibile realizzare una macro che facendo il doppio clic su una delle 3 celle contenente il nome del colore dalla colonna G mi scopre le righe dello stesso colore in colonna A lasciando nascoste le righe intermedie e le righe dei colori non selezionati , evidenziandomi l’ultima cella cliccata in colonna Ho postato un piccolo esempio selezionabile su 5 fogli

ringrazio tutti

Daniele

di Raffaele_53 data: 22/02/2016 10:09:46
Per come hai richiesto è la prima, però penso che intendevi la seconda.
Naturale che G5 sia colorato in verde
Naturale che G7 sia colorato in rosso
Invece per G6 deve essere colorato con grigio molto chiaro, come A24,A28,A32

Private Sub worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)
Dim X, Col
If Not Intersect(Target, Range("G5:G7")) Is Nothing Then
Col = ActiveCell.Interior.ColorIndex
    For X = 12 To 47
        If Cells(X, 1).Interior.ColorIndex = Col Then
            Rows(X & ":" & X).EntireRow.Hidden = False
        Else
            Rows(X & ":" & X).EntireRow.Hidden = True
        End If
    Next X
End If
End Sub
Private Sub worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)
Dim X, Col
If Not Intersect(Target, Range("G5:G7")) Is Nothing Then
Col = ActiveCell.Interior.ColorIndex
    For X = 12 To 47
        If Cells(X, 1).Interior.ColorIndex = Col Then
            Rows(X & ":" & X + 3).EntireRow.Hidden = False
            X = X + 3
        Else
            Rows(X & ":" & X + 3).EntireRow.Hidden = True
            X = X + 3
        End If
    Next X
End If
End Sub

Vuoi Approfondire?