VBA to analyse

[shiva_reshs]

Hello,

I am not sure if it can be done.. But what I am trying here is noted below.

1. I have string of data in Column N and Column O
2. If in Cell of Column N and Column O of same row has value #N/A, then I need adjustment cell P noted with " not available "
3. If in any one Cell of Column N and Column O of same row has value #N/A, then I need VBA to do noting.
4. If in both Cell of Column N and Column O of same row do not have value #N/A, then I need VBA to do nothing.?

My header start from Row 5.

Can it be done?

Cross Posting

Thanks

[shg]

How about just a formula?

=if(and(isna(n2), isna(o2)), "not available", "")

[shiva_reshs]

Formula works, but can we tweak that into VBA??

Thanks

[shiva_reshs]

Finally i was able to get it done.

Range("P6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(ISNA(RC[-2]), ISNA(RC[-1])), ""not applicable"","""")"
      Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, -1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  ''  Range("R6").Select
    Application.CutCopyMode = False

Thanks shg.

[shiva_reshs]

Hi Sgh,

I want to extend your formula to another cell at the left..

=IF(AND(ISNA(RC[-3]), ISNA(RC[-2]), ISNA(RC[-1]))), "Not Applicable","")

Whats wrong with the code?

Thanks

[shg]

someCell.FormulaR1C1 = "=IF(AND(ISNA(RC[-3]), ISNA(RC[-2]), ISNA(RC[-1])), ""Not Applicable"","""")"

[shiva_reshs]

thanks! Solved.