Thread: cell formulas
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Shane Devenshire[_2_] Shane Devenshire[_2_] is offline
external usenet poster
 
Posts: 3,346
Default cell formulas

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

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Lynn" wrote:

I have an Excel spreadsheet of a price list with various columns of currency
that I need to increase +3% and a separate sheet increased +6%. It's
originally set up in various sections that have multiple currency columns.
The normal formulation doesn't seem to work because some cells are merged.
This is a nightmare spreadsheet from a company that we sell for.
Anyone that can help me will be a SAINT.
With Appreciation,
LR