Macro para descender por cledas de columna
Necesito un macro para:
- Tengo una tabla en la columna C tengo los precios y necesito aumentar en 10% al valor de cada celda hasta finalizar el archivo.
Gracias.
- Tengo una tabla en la columna C tengo los precios y necesito aumentar en 10% al valor de cada celda hasta finalizar el archivo.
Gracias.
Respuesta de cepuentes
1
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 ("sl2")
End Sub
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 ("sl2")
End Sub
