% Change calculation
You can change the RowAbsolute and ColumnAbsolute values of the Address eg:
Sub Variance1()
Dim actual As Range
Dim std As Range
Dim exptype As String
exptype = InputBox("Enter e if expense type, else blank.")
On Error Resume Next
Set actual = Application.InputBox( _
prompt:="Select cell for Actual data.", Type:=8)
Set std = Application.InputBox( _
prompt:="Select cell for Standard data.", Type:=8)
On Error GoTo 0
If Not actual Is Nothing And Not std Is Nothing Then
If exptype = "e" Then
ActiveCell.Formula = "=-(" & actual.Address(0, 0) _
& "/" & std.Address(0, 0) & "-1)"
Else
ActiveCell.Formula = "=" & actual.Address(0, 0) & _
"/" & std.Address(0, 0) & "-1"
End If
End If
Selection.Style = "Percent"
End Sub
Regards
Rowan
al wrote:
Thxs a lot - what should I amend to get a relative formula instead of
an absolute formula as is the case
thxs
|