Macro colora

[Statix]

Ciao a tutti, dovrei fare una modifica alle domande e risposte dei quiz già trattati in precedenza,
la macro deve scrivere in colonna H la risposta esatta colonna M e colorare in verde tutte le risposte esatte
che corrispondono

[Anthony47]

Le mie proposte su questo argomento prevedono sempre che la risposta data si colori di Verde o di Rosso a seconda che sia corretta o sbagliata. Inoltre la stessa domanda "vira" al verde o al rosso man mano che risposte corrette /sbagliate vengono date a quel quesito.

Un caso recente: viewtopic.php?f=26&t=49856&p=654795#p654766

Vedi se riesci a utilizzare lo stesso approccio, se No siamo qui

Ciao

[Statix]

Ciao Anthony47,
la macro mi deve solo evidenziare in verde tutte le risposte esatte che corrispondono alle lettere in colonna M,

[Anthony47]

Forse ho capito...
Seleziona l'area C1:Fxxx; imposta una formattazione condizionale che usi la formula =C$1=$M1

Ciao

[Statix]

le righe sono circa 10000 per di più ci sono 12 materie ,porterebbe un rallentamento enorme ,sarebbe più comodo una macro che con un ciclo faccia il tutto

[Anthony47]

Codice: Seleziona tutto

Sub RisposteOk()
Dim GreenCol As Long, I As Long, myMatch
GreenCol = RGB(0, 255, 0)
Range("C:G").Interior.Color = xlNone
For I = 1 To Cells(Rows.Count, "M").End(xlUp).Row
    If Cells(I, "M") <> "" Then
        myMatch = Application.Match(Cells(I, "M"), Range("A1:G1"), False)  'deve partire da "A1
        If Not IsError(mymacth) Then
            Cells(I, myMatch).Interior.Color = GreenCol
        End If
    End If
Next I
End Sub

Poi per oggi basta

[Statix]

adesso è ok, manca solo la copia delle lettere dalla colonna M alla colonna H,
grazie

[Statix]

Ciao Anthony47, ho provato la macro è tutto ok, risolto banalmente la copia delle lettere,
grazie di tutto.