El maestro Macro-Antonio, me ayudó hace algunos días a solucionar un problema que tenía, y para ello, me creó este código que me funciona de maravillas.
Private Sub CMBPorcentaje_Click()
On Error Resume Next
pct = InputBox("Introduce el %", , 0)
For Each celda In Selection
celda.Value = Round(celda.Value * (1 + pct / 100), 2)
Next
End Sub[/CODE]
Como se puede comprobar, este código lo que hace es sumar un tanto por ciento optativo a las celdas seleccionadas.
Bien, ahora me he dado cuenta de un detalle, es necesario que ese tanto por ciento se muestre. Con esto, conseguimos saber qué cantidades han sido incrementadas, obviamente a todas las cantidades que se vean afectadas.
El tanto por ciento se puede mostrar por ejemplo, en el rango de la columna “F”, (a partir de la indicación de %).
No sé cómo hacer para que eso ocurra. Por favor, si alguien puede ayudarme se lo agradeceré.
Hola amigos, muy buenas tardes.
Excel 2003 – SP3
El maestro Macro-Antonio, me ayudó hace algunos días a solucionar un problema que tenía, y para ello, me creó este código que me funciona de maravillas.
Como se puede comprobar, este código lo que hace es sumar un tanto por ciento optativo a las celdas seleccionadas.
Bien, ahora me he dado cuenta de un detalle, es necesario que ese tanto por ciento se muestre. Con esto, conseguimos saber qué cantidades han sido incrementadas, obviamente a todas las cantidades que se vean afectadas.
El tanto por ciento se puede mostrar por ejemplo, en el rango de la columna “F”, (a partir de la indicación de %).
No sé cómo hacer para que eso ocurra. Por favor, si alguien puede ayudarme se lo agradeceré.
Saludos
Prueba2 II.rar