Enumerar de forma automática.
Hola expertos, espero me puedan ayudar con mi problema. Tengo una lista de códigos, los cuales se repiten, en distintas cantidades, lo que necesito es enumerar los códigos iguales y que cuando el código cambie se vuelva a 1 o 0. Ejemplo
Código Numero
a 1
a 2
a 3
b 1
b 2
c 1
d 1
d 2
Espero me puedan ayudar.
Gracias
1 Respuesta
Esta es tu solución: He puesto tus códigos en el rango A1:A8, después tienes que posicionarte en la celda A1 y ejecutar esta macro:
sub enumerar()
do while activecell.value <>""
valor = activecell.value
fila = activecell.row
ubica =activecell.address
contarsi = application.worksheetfunction.countif(columns(1),valor)
range(cells(fila,2),cells(fila+contarsi-1,2)).select
p=1
for each celda in selection
celda.value = p
p=p+1
next
range(ubica).select
do while activecell.value = valor
activecell.offset(1,0).select
loop
loop
end sub
Recuerda finalizar y puntuar
