Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exchange rate function
I have two columns in a worksheet, one for £ and one for $. There maybe a value both columns or in just one of the two. If there is a valu in each column, I want to leave them alone, but where there is a value in the $ column but not in the £ column I want to apply a rate (say 1.7) and vice versa. So I _dont__want a function in column b to say =A1*1.7 as that will be applied to all values. The range that the code should be applied to is A3:end of columns and B3:end of columns (to allow for headings). Is it possible to do this in code?? The Function works but changes some values that were set at different rates, and I dont want these changed. Struggling a bit here, so any assistance would be great! -- QuickLearner ------------------------------------------------------------------------ QuickLearner's Profile: http://www.excelforum.com/member.php...o&userid=35483 View this thread: http://www.excelforum.com/showthread...hreadid=559830 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Exchange rate function
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A:B" Const XRATE As Double = 1.7 On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target If .Column = 1 Then If .Offset(0, 1).Value = "" Then .Offset(0, 1).Value = .Value * XRATE End If Else If .Offset(0, -1).Value = "" Then .Offset(0, -1).Value = .Value / XRATE End If End If End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "QuickLearner" wrote in message news:QuickLearner.2aq599_1152526153.4345@excelforu m-nospam.com... I have two columns in a worksheet, one for £ and one for $. There maybe a value both columns or in just one of the two. If there is a valu in each column, I want to leave them alone, but where there is a value in the $ column but not in the £ column I want to apply a rate (say 1.7) and vice versa. So I _dont__want a function in column b to say =A1*1.7 as that will be applied to all values. The range that the code should be applied to is A3:end of columns and B3:end of columns (to allow for headings). Is it possible to do this in code?? The Function works but changes some values that were set at different rates, and I dont want these changed. Struggling a bit here, so any assistance would be great! -- QuickLearner ------------------------------------------------------------------------ QuickLearner's Profile: http://www.excelforum.com/member.php...o&userid=35483 View this thread: http://www.excelforum.com/showthread...hreadid=559830 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
date check with exchange rate | Excel Discussion (Misc queries) | |||
Keeping Exchange Rate With Status | Excel Discussion (Misc queries) | |||
FORMULA: calculating an exchange rate | Excel Discussion (Misc queries) | |||
vlookup for exchange rate | Excel Worksheet Functions | |||
how to calculate exchange rate? | Excel Discussion (Misc queries) |