Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Is there a way to create a formula or macro that when I enter a number in a
cell it will automatically divide 5.7? |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Hi,
Right click the sheet tab, View code and paste this in. Change the range to suit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Not Intersect(Target, Range("A1:A10")) Is Nothing Then' change to suit If IsNumeric(Target) Then On Error Resume Next Application.EnableEvents = False Target = Target / 5.7 Application.EnableEvents = True On Error GoTo 0 End If End If End Sub Mike "BabyBlueAXiD" wrote: Is there a way to create a formula or macro that when I enter a number in a cell it will automatically divide 5.7? |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
THAT WORKS PERFECT!Thanks so much!
"Mike H" wrote: Hi, Right click the sheet tab, View code and paste this in. Change the range to suit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub If Not Intersect(Target, Range("A1:A10")) Is Nothing Then' change to suit If IsNumeric(Target) Then On Error Resume Next Application.EnableEvents = False Target = Target / 5.7 Application.EnableEvents = True On Error GoTo 0 End If End If End Sub Mike "BabyBlueAXiD" wrote: Is there a way to create a formula or macro that when I enter a number in a cell it will automatically divide 5.7? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Constant loan payments vs. constant payments of principal | Excel Worksheet Functions | |||
My excel spread sheets are dividing all numbers input by 100. | Excel Worksheet Functions | |||
Have user input converted to uppercase in same cell as input? | New Users to Excel | |||
How do I add input data in the input ranges in drop down boxes. | Excel Discussion (Misc queries) | |||
=SUMIF(Input!H2:H718,AZ19,Input!E2:E685)AND(IF | Excel Worksheet Functions |