Funzione interattiva 2

[Statix]

Ciao Avatar3,
volevo chiederti se era possibile fare una modifica alla macro da te postata nel post Funzione Interattiva.

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("D" & Rows.Count).End(xlUp).Row
If UR < 2 Then UR = 2
CheckArea = "D2:G" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
If Target <> "" Then
Riga = Target.Row
Col = Target.Column
Range("H" & Riga).Value = Cells(1, Col).Value
End If
End If
End Sub

aggiungere un ulteriore aggiunta ,cioè se la risposta è giusta colorare il fondo in verde se sbagliata in rosso,
le risposte giuste sono nella colonna M,eventualmente con una condizione di evidenzazione si o no e la possibilità
di azzerare il tutto cioè riportare il fondo come prima.
allego una foto esempio

[Avatar3]

Penso sia sufficiente inserire la condizione dopo aver scritto in colonna H

Codice: Seleziona tutto

Range("H" & Riga).Value = Cells(1, Col).Value                         '<<<<<<<< esistente
Range(Cells(Riga, 4), Cells(Riga, 7)).Interior.ColorIndex = xlNone  '<<<<<<<< AGGIUNGERE
If Range("H" & Riga).Value = Range("M" & Riga).Value then    '<<<<<<<< AGGIUNGERE
    cells(riga, Col).Interior.ColorIndex = 4                  '<<<<<<<< AGGIUNGERE
else                                                          '<<<<<<<< AGGIUNGERE
    Cells(riga, Col).Interior.ColorIndex = 3                 '<<<<<<<< AGGIUNGERE
end if                                                       '<<<<<<<< AGGIUNGERE

[Statix]

Ciao Avatar3,
tutto ok.
grazie

[Avatar3]