cell formulas
Thanks Shane.
Missed the "merged" part.
Gord
On Fri, 12 Jun 2009 22:58:01 -0700, Shane Devenshire
wrote:
Hi,
There is a problem with Gord's suggestion because you said there are merged
cells. If you enter 1.03 in a cell and highlight a range that contains
merged cell and try the Edit, Paste Special, Multiply trick, all the merged
cells will become unmerged and 0 will appear in the all "extra" cells of the
merged cell. Depending on how many cells are merged and how this can become
rather ugly.
However, here is a VBA approach which should do what you need. Just select
the cells, merged, text or numbers and run it.
Sub IncreasePercent()
Dim cell as Range
Dim myPercent as Double
myPercent = InputBox("Enter the percent to increase: for 1% enter 1")
For Each cell In Selection
If IsNumeric(cell) And cell < "" Then
cell.Value = cell * (1 + myPercent / 100)
End If
Next cell
End Sub
|