El codigo siguiente en teoría deberia buscar en cada celda el texto "F", y si lo encuentra, rellenar el fondo de esta rojo. Pero me da errores de compilacion...
Código:
Sub asistencia()
For i = 1 To 500
For j = 1 To 500
If Cells(i, j).Value = "F" Then
Cells(i, j).Color = Red
End If
Next j
Next i
End Sub