Actividad pública reciente
Ha valorado "Excelente" la respuesta
Realizar codificación consecutiva en excel
Te anexo la macro para la numeración Sub RealizarCodificacion() 'Por Dante Amor sig = 1 n = 1 For i = 3 To Range("B" & Rows.Count).End(xlUp).Row If Cells(i, "B") = "Capítulo" Then num = Trim(Cells(i, "A")) n = 1 ElseIf Cells(i, "B") = "Partida" Then...