If Statement USED to Work!

[Snoopy2010]

I have been working on a large workbook with several macros. This particular macro has not gotten hordes of attention. The only modifications I have made are to extend ranges & to start in row 10 instead of row 6. Othwerwise, I have not changed it.

It does run through the macro, produces the desired formula, but does not store the results properly. When debugging, if I view any cell with the correct formula visible, I can hit 'F2' + <enter> in excel and the desired result appears.

I have tried changing the RC[-11] & RC[-7] references to actual cell names. This did nothing for me. Any ideas? TIA.

Sheets("SUBSCRIPTIONS").Cells(LASTSUBSCRIPTIONSROW, 1).Value = Sheets("SETUP").Cells(2, 3).Text
Sheets("SETUP").Select
Range("O10").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""Y"", RC[-7], 0)"
Range("P10").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""Y"", RC[-7], 0)"
Range("Q10").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""Y"", RC[-7], 0)"
Range("O10:Q10").Select
Selection.Copy
Range("O10:O220").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False



This was the original:

Sheets("SUBSCRIPTIONS").Cells(LASTSUBSCRIPTIONSROW, 1).Value = Sheets("SETUP").Cells(2, 3).Text
Sheets("SETUP").Select
Range("O6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""Y"", RC[-7], 0)"
Range("P6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""Y"", RC[-7], 0)"
Range("Q6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-11]=""Y"", RC[-7], 0)"
Range("O6:Q6").Select
Selection.Copy
Range("O6:O120").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False




Snoops

[shg]

Welcome to the forum.

Please take a few minutes to read the forum rules, and then edit your post to amend your thread title accordingly and add CODE tags.

Thanks.

[Snoopy2010]

I am not permissioned to edit my orig entry, so I re-entered it here. I hope I've complied.

The only modifications I have made to this macro are to extend ranges & to start in row 10 instead of row 6. .

It does run through the macro, produces the desired formula, but does not store the results properly. When debugging, if I view any cell with the correct formula visible, I can hit 'F2' + <enter> in excel and the desired result appears.

I have tried changing the RC[-11] & RC[-7] references to actual cell names. This did nothing for me. Any ideas? TIA.

Please Login or Register  to view this content.

[romperstomper]

You still didn't get the tags. You need to enter:
[code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code]
I have done it for you on this occasion, but please learn to use them.

It sounds to me as though you have calculation set to manual, or do you mean that the actual formula is displayed in the cell instead of its result?

[shg]

After you set calculation back to automatic, try this:

Please Login or Register  to view this content.

[Snoopy2010]

Thanks. I will try this in the office tomorrow.

I have a really dumb question -

if I do the

Please Login or Register  to view this content.

will it supply the gray encasement that isolates the code? Sorry for not knowing.

[Snoopy2010]

I guess I answered my own question