note:
i test with
Code: Select all
Private Sub CONTA_NOTTI()
Dim I As Integer, T As Integer
CONTA = 0
With MSFlexGrid1
.Redraw = False
For T = 1 To .Rows - 1
If .TextMatrix(T, 1) > "" Then
For I = 3 To 31
.Row = T
.Col = I
If .CellForeColor = RGB(255, 0, 0) Then
CONTA = CONTA + 1
End If
DoEvents
Next I
.TextMatrix(T, 34) = CONTA - 1
CONTA = 1
End If
Next T
.Redraw = True
End With
End Sub