Tengo un código que recorre filas y evalúa valores en una hoja para luego ir sumando 1 al orden si se cumple la condición. El problema es que la hoja ronda las 18.000 filas y la macro está ejecutándose tres o cuatro minutos... que es excesivo.
El resultado debería ser así:
CODIGO|MOTIVO|FAMILIA|ORDEN
1000 |9007 |1000 |1
350008| |1000 |2
1001 |9007 |1001 |1
35093 | |1001 |2
12534 | |1001 |3
1002 |9007 |1122 |1
35154 | |1122 |2
Lo que necesito rellenar es la columna orden, que comienza desde 1 cada vez que cambio de familia (marcado también por el campo motivo 9007).
Este es el código que tengo hecho y que tanto me tarda:
For i = 2 To uf
If Sheet1.Cells(i, 3).Value = 9007 Then
j = 1
Sheet1.Cells(i, 5).Value = j
Else
j = Sheet1.Cells(i - 1, 5).Value
Sheet1.Cells(i, 5).Value = j + 1
End If
Next
uf es la última fila de la hoja.
A ver si alguien me da una idea de cómo hacer más rápido.
Gracias.