Knowledge Base Search Results
Macro - GLA $$SqFt Difference - SubjActive Comp
To install macro:
Select all of the text below, right-click and select 'Copy'. In the appropriate RealEasy Appraisals field - click on the Lightning Text icon (under Orders) and select New. Type in a title (OK). Press Control+V (to paste). Select a Hot Key. Select Macro(vs plain Text), and then select Ok.
; GLA $/SF Active Comp
; 05/13/2005 12:30 - GLA $$/SqFt Difference - Subj>Active Comp
;
; *** Place in GLA field of Comp #1. Works most forms.
;
if ACROSS > 1 then
RETURN ; Saves current editor data
compval! = VAL( cell( LINE, ACROSS-1) ) ; Get Comp Value
subjval! = VAL( LINE|1 ) ; Get Subject value
diff! = ABS( compval! - subjval! ) ; Compute difference
adj! = VAL( InputBox$( "Adjustment Value", "Adjustment Unit :", "XX" ) )
result! = diff! * adj! ; Compute Adjustment
if compval! > subjval! then
REPLACE( "-"+str$( result! ) ) ; Insert - Adjusted Value
elseif compval! < subjval! then
REPLACE( "+"+str$( result! ) ) ; Insert + Adjusted Value
else
REPLACE( "0" )
end if
RETURN ; Advance to next field
else
MsgBox "Adjustments must be made from comparable description field."
end if
; end
