Macro que genere un consecutivo
Implementar macro que genere un consecutivo en la columna G de acuerdo al número de veces que aparece el codigo definido en la columna C
C E
Código
20 1
20 2
20 3
10 1
10 2
10 3
10 4
10 5
8 1
8 2
8 3
7 1
7 2
7 3
7 4
1 Respuesta
H o l a:
Te anexo la macro, cambia en la macro los siguientes datos "C", "G", 2 por los datos de tu hoja.
c = "C" 'columna de códigos d = "G" 'columna de consecutivo f = 2 'fila inicial de datos
Sub GenerarConsecutivo() 'Por.Dante Amor c = "C" 'columna de códigos d = "G" 'columna de consecutivo f = 2 'fila inicial de datos ' ant = Cells(f, c) j = 1 For i = f To Range(c & Rows.Count).End(xlUp).Row If ant <> Cells(i, c) Then j = 1 End If Cells(i, d) = j ant = Cells(i, c) j = j + 1 Next MsgBox "Fin" End Sub
:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)
¡Muchísimas Gracias!
Dam, reciba un cordial y respetuoso saludo
Agradezco una vez más su colaboración, deseándole muchos EXITOS en este nuevo año.
Cordial saludo,
