Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If-Then in VBA
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 code Sub manual312() ' ' manual312 Macro ' Macro recorded 4/15/2004 by jminken ' Sheets("Reimbursement Sheet Global").Select If check312 = 0 Then Range("R32").Select ActiveCell.FormulaR1C1 = Medicare_payment_312 * 1.2 ElseIf check312 0 Then Range("R32").Select 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").Select End If ' End Sub The problem arises in that the check312 cell is 0 and I am getting the first formula. Please help |