techstyle20
New Member
- Joined
- May 14, 2012
- Messages
- 40
Good Morning,
I was wondering whether anyone could tell me how to add more "Or" statments to the following?
I get the message "Too many line continuations". Is there a more elegant way of testing each of the cells without having to include a new row for each?
Thanks guys,
T.
'Please Selects
If Worksheets("Additional Conditions").Range("F8") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F11") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F14") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F17") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F20") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F43") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F46") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F49") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F52") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F55") <> "- Please Select -" _
Then
Worksheets("Offer Letter Instruction Sheet").Range("P15") = "Additional Conditions"
Else
Worksheets("Offer Letter Instruction Sheet").Range("P15") = ""
End If
I was wondering whether anyone could tell me how to add more "Or" statments to the following?
I get the message "Too many line continuations". Is there a more elegant way of testing each of the cells without having to include a new row for each?
Thanks guys,
T.
'Please Selects
If Worksheets("Additional Conditions").Range("F8") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F11") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F14") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F17") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F20") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F43") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F46") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F49") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F52") <> "- Please Select -" _
Or Worksheets("Additional Conditions").Range("F55") <> "- Please Select -" _
Then
Worksheets("Offer Letter Instruction Sheet").Range("P15") = "Additional Conditions"
Else
Worksheets("Offer Letter Instruction Sheet").Range("P15") = ""
End If