Como Redondear Varias formulas de Menera Rapida

[oveth]

Señores, Saludos.

Tengo una hoja de excel llena con muchas formulas, como hago para aplicar la formula de REDONDEAR, a todas las formulas al mismo tiempo. Me explico la hoja tiene mas de 500 formulas y los resultados de esas formulas son números con decimales, ponerse a aplicar la formula de rendo a las 500 formulas una por una, no es muy agradable, ¿ habrá una forma de aplicar la formula de redondeo a todas las formulas de manera rápida, u otra forma que no sea con la formula de REDONDEO, OJO NO QUIERO DISMINUIR DECIMALES, QUIERO APROXIMAR O REDONDEAR

Muchas Gracias por sus ayudas

Oveth Camargo

[Invitado Cacho R]

Hola! Oveth.

Como no estoy seguro que orientarnos por el lado del "Redondeo en pantalla" pueda serte de utilidad, te diría que incorpores la siguiente macro a un módulo común:

Sub IntroducirRedondeo()
Dim myForm As Range, C As Range, tmp$
Application.Calculation = xlCalculationManual
Set myForm = Cells.SpecialCells(xlCellTypeFormulas, 23)

For Each C In myForm
  tmp = C.Formula
  C.Formula = "=round(" & Right(tmp, Len(tmp) - 1) & ", 2)"
Next C

Application.Calculation = xlCalculationAutomatic
MsgBox "Proceso terminado"
End Sub[/PHP]

¿Qué hace?... Agrega un redondeo con 2 dígitos a todas las fórmulas de la hoja activa.

¡Pruébala y nos comentas!, por favor.

Saludos, Cacho R.