cepuentes

Prueba con esta macro. Sub aumenta() On Error Resume Next k = InputBox("Ingrese la fila", "Macro para descender por cledas de columna", 2) For i = k To 999999 If Cells(i, 3) = "" Then Exit Sub End If Cells(i, 3) = Cells(i, 3) * 1.1 Next i MsgBox...

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,...