View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default divide all numbers in range by a fixed number

You can do it while you enter by using event code which can be copy/pasted from
here to a sheet module.

Right-click on the sheet tab and "View Code". Paste the code into that module.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in any cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
n = Target.Row
If Excel.Range("A" & n).Value < "" Then
Excel.Range("A" & n).Value = Excel.Range("A" & n).Value / 0.88
End If
End If
enditall:
Application.EnableEvents = True
End Sub

Alternative...........enter all the numbers then place .88 in an empty cell and
copy that cell.

Select all the number cells and Paste SpecialDivideOKEsc.

Delete the cell with the .88


Gord Dibben MS Excel MVP

On Tue, 8 Aug 2006 15:07:06 -0400, dhig3903
wrote:


I want to be able to type numbers into fields and have Excel
automatically divide that number by .88 in order to obtain a selling
price for our inventory.

I think I am making this a lot harder than it really is.

Any help would be greatly appreciated!!