About Us

Jo[_6_]

Hi
I cannot get this to work.......
Range("F19").Select
ActiveCell.FormulaR1C1 = "=IF(OR(FRM100!
M16="Fail",FRM100!M18="Fail",FRM100!M20="Fail",FRM 100!
M22="Fail",FRM100!M25="Fail",FRM100!M30="Fail",FRM 100!
M44="Fail",FRM100!M55="Fail",FRM100!M60="Fail",FRM 100!
M62="Fail"),"FAIL","PASS")"
thanks
Jo

John Green[_3_]

Jo,

Two problems.

Don't use FormulaR1C1. Use Formula.

When placing double quotes within a quote delimited string, double the internal quotes.

ActiveCell.Formula =
"=IF(OR(FRM100!M16=""Fail"",FRM100!M18=""Fail"",FR M100!M20=""Fail"",FRM100!M22=""Fail"",FRM100!M25=" "Fail"",FRM100!M30=""Fail"",FRM1
00!M44=""Fail"",FRM100!M55=""Fail"",FRM100!M60=""F ail"",FRM100!M62=""Fail""),""FAIL"",""PASS"")"

--

John Green - Excel MVP
Sydney
Australia

"Jo" wrote in message ...
Hi
I cannot get this to work.......
Range("F19").Select
ActiveCell.FormulaR1C1 = "=IF(OR(FRM100!
M16="Fail",FRM100!M18="Fail",FRM100!M20="Fail",FRM 100!
M22="Fail",FRM100!M25="Fail",FRM100!M30="Fail",FRM 100!
M44="Fail",FRM100!M55="Fail",FRM100!M60="Fail",FRM 100!
M62="Fail"),"FAIL","PASS")"
thanks
Jo

TH[_3_]

You have no continuation characters. Try this:

Range("F19").Select
ActiveCell.FormulaR1C1 = "=IF(OR(FRM100! _
M16="Fail",FRM100!M18="Fail",FRM100!M20="Fail",FRM 100! _
M22="Fail",FRM100!M25="Fail",FRM100!M30="Fail",FRM 100! _
M44="Fail",FRM100!M55="Fail",FRM100!M60="Fail",FRM 100! _
M62="Fail"),"FAIL","PASS")"

TH

On 4/7/04 15:26, in article , "Jo"
wrote:

Hi
I cannot get this to work.......
Range("F19").Select
ActiveCell.FormulaR1C1 = "=IF(OR(FRM100!
M16="Fail",FRM100!M18="Fail",FRM100!M20="Fail",FRM 100!
M22="Fail",FRM100!M25="Fail",FRM100!M30="Fail",FRM 100!
M44="Fail",FRM100!M55="Fail",FRM100!M60="Fail",FRM 100!
M62="Fail"),"FAIL","PASS")"
thanks
Jo
Try this in a macro:

Sub CopyUserSelectedCells()
Dim mySelection as Range
Set mySelection = Selection 'Assigns the current user selection,
'even if it's multiple non-contiguous cells
For Each C In mySelection
'copy each cell here to wherever you want
Worksheets("Name of new sheet").Range("Cell to copy to") = C
Next
End Sub

TH

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel 2007 - error saving file & error loading dll	TinaF	Excel Discussion (Misc queries)	0	July 1st 09 01:49 PM
Counting instances of found text (Excel error? Or user error?)	S Davis	Excel Worksheet Functions	5	September 12th 06 04:52 PM
I have Error 1919 Error Configuring ODBC dataSource Database	Texanna1	Excel Discussion (Misc queries)	1	September 12th 06 06:35 AM
Error 50290: Error writing to Worksheet while using an ActiveX Control	emblair3	Excel Programming	3	February 24th 04 06:03 PM

Menu

About Us