Filtrar respues tas malas Cuestionario
Para Dante Amor
¿Dan cómo seria el código para filtrar las respuestas malas?
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código que filtra las respuestas malas
For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row
preg = h2.Cells(i, "A")
Set b = h1.Columns("A").Find(preg)
If Not b Is Nothing Then
correcta = True
'
n = 2
For j = b.Row + 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
If h1.Cells(j, "A") <> "" Then Exit For
If h1.Cells(j, "C") <> h2.Cells(i, n) Then
correcta = False
End If
n = n + 1
Next
'
If correcta Then
buenas = buenas + 1
Else
malas = malas + 1
n = 2
h3.Cells(k, "A") = h1.Cells(b.Row, "B")
filapreg = k
k = k + 1
h3.Cells(filapreg, "A").Interior.ColorIndex = 4
For j = b.Row + 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
If h1.Cells(j, "A") <> "" Then Exit For
h3.Cells(k, "A") = h1.Cells(j, "B")
h3.Cells(k, "B") = h1.Cells(j, "C")
h3.Cells(k, "C") = h2.Cells(i, n)
k = k + 1
If h1.Cells(j, "C") <> h2.Cells(i, n) Then
correcta = False
h3.Cells(filapreg, "A").Interior.ColorIndex = 3
End If
n = n + 1
Next
End If
'
End If
k = k + 1
Nexts a l u d o s
