Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Calculate with code
I have this code
Private Sub Worksheet_Calculate(ByVal Target As Range) Const WS_RANGE As String = "b47" '<== change to suit On Error GoTo ws_exit Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target If UCase(.Value) = "#" Then .Value = (7.15 * b47) .NumberFormat = "#" End If End With End If ws_exit: Application.EnableEvents = True End Sub I am wanting to type a number for example 160 in b47 and it multiply by 7.15 and return the answer in B47. Thanks Chey |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Code Question - Calculate eBay Fees Automatically | Excel Worksheet Functions | |||
UDF To Calculate Work hours between two dates Problem with code | Excel Discussion (Misc queries) | |||
adding a code to calculate how much time is lost | Excel Discussion (Misc queries) | |||
copying vba code to a standard code module | Excel Discussion (Misc queries) |