jhosef333

cepuentes respondió: Aquí te dejo un código, espero que te sirva. Sub Estado() k = 2 ' tipo_f = "" For i = 2 To 999999 If Cells(i, 1) = "" Then Exit Sub End If 'ordenar de menor a mayor la columna A (codigo) cod_1 = Cells(i, 1) tipo_1 = Cells(i, 2) cod_2 = Cells(i + 1,...