% variance calculation - amended

Sub Macro2()

Dim exptype

exptype = InputBox("Enter e if expense type.")

If exptype = "e" Then


ActiveCell.FormulaR1C1 = "=-(RC[-1]/RC[-2]-1)"

Else


ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]-1)"

End If
End Sub


Pls help - why i'm not getting any result if exptype is not equal to e

thxs

Check the formula you have when exptype is not e. Is it syntactically
correct? Specifically, check the parenthesis use.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article <1131348502.114507.224920@g44g2000cwa.googlegroups.com>,
transferxxx@gmail.com says...
> Sub Macro2()
>
> Dim exptype
>
> exptype = InputBox("Enter e if expense type.")
>
> If exptype = "e" Then
>
>
> ActiveCell.FormulaR1C1 = "=-(RC[-1]/RC[-2]-1)"
>
> Else
>
>
> ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-2]-1)"
>
> End If
> End Sub
>
>
> Pls help - why i'm not getting any result if exptype is not equal to e
>
> thxs
>
>