Macro crear consecutivo que se reinicie
Tengo columna A con codigos por ejemplo:
Codigo_Distrito
01
01
01
01
02
02
02
03
03
03
Deseo que en la columna B vaya un consecutivo que se reinicie cuando el valor de columna A cambie
Codigo_Distrito Consecutivo
01 1
01 2
01 3
01 4
02 1
02 2
02 3
03 1
03 2
03 3
Etcetera
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub consecutivo()
ini = 1 'fila donde inician los datos
ant = Cells(ini, "A").Value
n = 1
For i = ini To Range("A" & Rows.Count).End(xlUp).Row
If ant <> Cells(i, "A").Value Then
n = 1
End If
Cells(i, "B").Value = n
n = n + 1
ant = Cells(i, "A").Value
Next
MsgBox "Fin"
End Sub[sal u dos. No olvides valorar.
