Código para aumentar % a un rango de celdas

[noise56]

Hola amigos, buenas tardes.

Oficce 2003 - SP3

Un asuntillo que tengo entre manos y no sé cómo se hace. A ver si alguien me puede ayudar, por favor.

Tengo rangos de celdas cuyos contenidos son números. Rangos que, por ejemplo, pueden ser: desde A1 hasta A20 y desde A25 hasta A40.

En las celdas de estos rangos, existen unos valores/precios básicos que se muestran automáticamente.

Lo que quisiera es que al seleccionar un grupo de celdas de entre estos rangos, por ejemplo: desde A5 hasta A18, a los valores de estas celdas se le pudieran sumar tantos por cientos automáticamente, a través de código VBA y un botón para ejecutar dicho código, preguntando qué % se quiere incrementar.

Es decir, si en una celda seleccionada tenía 100, al ejecutar el código mostraría 120, siempre que previamente se haya detallado que se aumente un 20%.

Saludos.

[Antoni]

Hola:

Prueba con esta macro. Selecciona primero el rango de celdas donde quieras aplicar el porcentaje.

Private Sub CommandButton1_Click()

pct = InputBox("Introducir porcentaje de aumento", , 0)

For Each celda In Selection

   celda.Value = Round(celda.Value * (1 + pct / 100), 2)

Next

End Sub



[/CODE]

saludos

[noise56]

Perfecto Antoni, como siempre.

Increible, no había visto nada igual en foros en mi vida, y mira que llevo tiempo andando por ahí.

Muchas gracias, muy amable.

Saludos. Pepe.

Asunto solucionado.