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
Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Problemi di stampa file .PDF da macro. Autore: zanatta77 |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 35 ospiti