Thread
:
If-Then in VBA
View Single Post
#
5
Posted to microsoft.public.excel.programming
ryan
external usenet poster
Posts: 46
If-Then in VBA
where do you declare a value for the variable check312
-----
wrote: ----
Thanks but it is not workin
Icannot figure out wh
-----Original Message----
Try this
Sub manual312(
Sheets("Reimbursement Sheet Global").Selec
If check312 = 0 The
Range("R32").Selec
ActiveCell.FormulaR1C1 = Medicare_payment_312 * 1.
En
Els
If check312 0 The
Range("R32").Selec
ActiveCell.FormulaR1C1 =
"=(R[-25]C[4]*R[-25]C)+(R[-23]C[4]*R[-23]C)+(R[-21
[4]*R[-21]C)
Range("R34").Selec
En
End I
End I
End Su
-----Original Message----
I am trying to create a button that will evaluate a cell
and based upon its value, enter one of 2 formulas. after
writing the code, it keeps returning a value that it
should notand I can't figure why
Here is the Attached cod
Sub manual312(
' manual312 Macr
' Macro recorded 4/15/2004 by jminke
Sheets("Reimbursement Sheet Global").Selec
If check312 = 0 The
Range("R32").Selec
ActiveCell.FormulaR1C1 = Medicare_payment_312 * 1.
ElseIf check312 0 The
Range("R32").Selec
ActiveCell.FormulaR1C1 =
"=(R[-25]C[4]*R[-25]C)+(R[-23]C[4]*R[-23]C)+(R[
21
C[4]*R[-21]C)
Range("R34").Selec
End I
End Su
The problem arises in that the check312 cell is 0 and I
am getting the first formula.
Please hel
Reply With Quote
ryan
View Public Profile
Find all posts by ryan