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!!
|