Jan Alvarado

Miguel Guzmán Romero respondió: Puedes añadir esta macro en el editor VBA en la hoja donde tengas la lista: Private Sub worksheet_change(ByVal Target As Range) If Target.Column = 2 Then Cells(ActiveCell.Row, 1).Value = Application.Max([A:A]) + 1 ActiveCell.CurrentRegion.Sort...