vbscript Recorrer DataGridView y cambiar color de fondo de una celda

Posted 2021-05-21

'iteración del DataGridView para cambiar el color de la celda si encuentra algo distinto
Dim countFallos As Integer = 0
For Each row As DataGridViewRow In DataGridView1.Rows
    If row.Cells(4).Value <> row.Cells(11).Value Then
        row.Cells(4).Style.BackColor = Color.Red
        row.Cells(11).Style.BackColor = Color.Red
        countFallos += 1
    End If
    If row.Cells(6).Value <> row.Cells(13).Value Then
        row.Cells(6).Style.BackColor = Color.Red
        row.Cells(13).Style.BackColor = Color.Red
        countFallos += 1
    End If
Next
If countFallos > 10 Then
    MsgBox("Hay un gran número de fallos. Revisa que la fecha de los excels sea correcta.")
End If