Aussiebear
07-07-2006, 07:03 AM
In this spreadsheet I have a formula in D2 as
" If(G2<0.01,"",If(G2>F2,"Y","N"))"
If I code it as the below when added to the Sheet 1 code it asks me to create a Macro. But in the macro code it says "Compile Error "Expected end of Statement" at the "0.01" value.
.Range.FormulaR1C1 = "=If(R[2]C[8]<"0.01","",If(R[2]C[8]>R[2]C[7],"Y","N")) it displays a Compile error when you try to run the code from the Macro ContractStatus.
The object here is have the value in cell D2 ( actually all of the Range D2:D156) reflect if the value in G2 is "0" then show nothing, else if the value in G2 is greater than F2 then show the value "Y" else "N".
By typing a date in column T and a value "Cleared" in Column U, the code (Kindly initially supplied by XLGibbs) copies and paste to the Sheet "Bucket History" and then resets the values in the Sheet 1 (Except it doesn't rest the Column D values)
" If(G2<0.01,"",If(G2>F2,"Y","N"))"
If I code it as the below when added to the Sheet 1 code it asks me to create a Macro. But in the macro code it says "Compile Error "Expected end of Statement" at the "0.01" value.
.Range.FormulaR1C1 = "=If(R[2]C[8]<"0.01","",If(R[2]C[8]>R[2]C[7],"Y","N")) it displays a Compile error when you try to run the code from the Macro ContractStatus.
The object here is have the value in cell D2 ( actually all of the Range D2:D156) reflect if the value in G2 is "0" then show nothing, else if the value in G2 is greater than F2 then show the value "Y" else "N".
By typing a date in column T and a value "Cleared" in Column U, the code (Kindly initially supplied by XLGibbs) copies and paste to the Sheet "Bucket History" and then resets the values in the Sheet 1 (Except it doesn't rest the Column D values)