Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim TT As Boolean
For AA = 1 To 1600000
For A = 0 To 79996
T = 0
For C = 1 To 5
For B = A + 1 To A + 4
If MIMATRIZ(AA, C) = CELLS(B, 6).Value Then
T = T + 1
Exit For
End If
Next B
Next C
If T = 4 Then
TT = True
Exit For
End If
Next A
If TT Then
TT = False
Else
AB = AB + 1
For BB = 1 To 5
COPMIMATRIZ(AB, BB) = MIMATRIZ(AA, BB)
Next BB
End If
Next AA