Masbs
06-17-2014, 03:14 AM
Whilst I macro record, I use the filter function to just get the excel error "Too many line continuations"
See code below:
Sub Macro14()
'
' Macro14 Macro
'
'
Rows("11:11").Select
Selection.AutoFilter
ActiveSheet.Range("$A$11:$JI$2715").AutoFilter Field := 24, Criteria1 := Array( _
"VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF|VLCP2;AAGBK;FAJAC;AB9GG|VLC P2;AAGAT;VS C9;AB9GE|VLCP2;AAGCF;VS C9;AB9GE|VLCP2;AAGAA;VS C9;AB9GF|VLCP2;AAGAP;FAJAB;VS C9;AB9GF|VLCP2;AAGAA;FAJAB;VS C9;AB9GF" _
,"VLCP2;AAGAT;AB9GE", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF|VLCP2;AAG BK;FAJAC;AB9GG" _
, _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF|VLCP2;AAG BK;FAJAC;AB9GG|VLCP2;AAGAT;VS C9;AB9GE|VLCP2;AAGCF;VS C9;AB9GE|VLCP2;AAGAT;FAJAB;VS C9;AB9GE|VLCP2;AAGAT;FAJAC;VS C9;AB9GE" _
,,,,"VLCP2;AAGAT;AB9GE|VLCP2;AAGBK;FAJAC;AB9GG", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AAGAP;AB9GF|VLCP2;AAGBK;AB9GG|VLC P2;AAGBL;AB9GH" _
, _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AAGAP;AB9GF|VLCP2;AAGBK;AB9GG|VLC P2;AAGBL;AB9GH|VLCP2;AAGB6;AB9GH" _
,"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AAGBL;AB9GH", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AB9GF|VLCP2;AB9GG|VLCP2;AAGB6;AAG BS;AB9GH" _
,, _
"VLCP2;AAGAT;AB9GE|VLCP2;AB9GF|VLCP2;AB9GG|VLCP2;AAGB6;AAGB7;AAGBL;AB9GH|VLC P2;AAGBS;AB9GH" _
,"VLCP2;AAGAT;BS FC;AB9GE|VLCP2;BS FC;AB9GF|VLCP2;BS FC;AB9GH", _
"VLCP2;AAGAT;BS FC;AB9GE|VLCP2;BS FC;AB9GG", _
"VLCP2;AAGAT;BS FC;AB9GE|VLCP2;BS FC;AB9GH","VLCP2;AAGAT;BS FC;BS FF;AB9GE", _
"VLCP2;AAGAT;BS HC;AB9GE|VLCP2;AAGAT;BS FC;AB9GE|VLCP2;AAGCF;BS HC;AB9GE|VLCP2;AAGCF;BS FC;AB9GE|VLCP2;AAGBL;AB9GH" _
, _
"VLCP2;AAGAT;BS HC;AB9GE|VLCP2;BS HC;AB9GF|VLCP2;BS HC;AB9GG|VLCP2;AAGB6;AAGB7;AAGBL;BS HC;AB9GH|VLCP2;AAGBS;BS HC;AB9GH" _
,"VLCP2;AAGAT;BS HC;BS FF;AB9GE|VLCP2;BS HC;BS FF;AB9GH", _
"VLCP2;AAGAT;BS HC;DR 5;AB9GE|VLCP2;BS HC;DR 5;AB9GF|VLCP2;BS HC;DR 5;AB9GG|VLCP2;AAGB6;AAGB7;AAGBL;BS HC;DR 5;AB9GH|VLCP2;AAGBS;BS HC;DR 5;AB9GH" _
,"VLCP2;AAGAT;DR 3;AB9GE","VLCP2;AAGAT;DWAAC;AB9GE",, _
End Sub
See code below:
Sub Macro14()
'
' Macro14 Macro
'
'
Rows("11:11").Select
Selection.AutoFilter
ActiveSheet.Range("$A$11:$JI$2715").AutoFilter Field := 24, Criteria1 := Array( _
"VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF|VLCP2;AAGBK;FAJAC;AB9GG|VLC P2;AAGAT;VS C9;AB9GE|VLCP2;AAGCF;VS C9;AB9GE|VLCP2;AAGAA;VS C9;AB9GF|VLCP2;AAGAP;FAJAB;VS C9;AB9GF|VLCP2;AAGAA;FAJAB;VS C9;AB9GF" _
,"VLCP2;AAGAT;AB9GE", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF|VLCP2;AAG BK;FAJAC;AB9GG" _
, _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGAP;FAJAC;AB9GF|VLCP2;AAGAA;FAJAC;AB9GF|VLCP2;AAG BK;FAJAC;AB9GG|VLCP2;AAGAT;VS C9;AB9GE|VLCP2;AAGCF;VS C9;AB9GE|VLCP2;AAGAT;FAJAB;VS C9;AB9GE|VLCP2;AAGAT;FAJAC;VS C9;AB9GE" _
,,,,"VLCP2;AAGAT;AB9GE|VLCP2;AAGBK;FAJAC;AB9GG", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AAGAP;AB9GF|VLCP2;AAGBK;AB9GG|VLC P2;AAGBL;AB9GH" _
, _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AAGAP;AB9GF|VLCP2;AAGBK;AB9GG|VLC P2;AAGBL;AB9GH|VLCP2;AAGB6;AB9GH" _
,"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AAGBL;AB9GH", _
"VLCP2;AAGAT;AB9GE|VLCP2;AAGCF;AB9GE|VLCP2;AB9GF|VLCP2;AB9GG|VLCP2;AAGB6;AAG BS;AB9GH" _
,, _
"VLCP2;AAGAT;AB9GE|VLCP2;AB9GF|VLCP2;AB9GG|VLCP2;AAGB6;AAGB7;AAGBL;AB9GH|VLC P2;AAGBS;AB9GH" _
,"VLCP2;AAGAT;BS FC;AB9GE|VLCP2;BS FC;AB9GF|VLCP2;BS FC;AB9GH", _
"VLCP2;AAGAT;BS FC;AB9GE|VLCP2;BS FC;AB9GG", _
"VLCP2;AAGAT;BS FC;AB9GE|VLCP2;BS FC;AB9GH","VLCP2;AAGAT;BS FC;BS FF;AB9GE", _
"VLCP2;AAGAT;BS HC;AB9GE|VLCP2;AAGAT;BS FC;AB9GE|VLCP2;AAGCF;BS HC;AB9GE|VLCP2;AAGCF;BS FC;AB9GE|VLCP2;AAGBL;AB9GH" _
, _
"VLCP2;AAGAT;BS HC;AB9GE|VLCP2;BS HC;AB9GF|VLCP2;BS HC;AB9GG|VLCP2;AAGB6;AAGB7;AAGBL;BS HC;AB9GH|VLCP2;AAGBS;BS HC;AB9GH" _
,"VLCP2;AAGAT;BS HC;BS FF;AB9GE|VLCP2;BS HC;BS FF;AB9GH", _
"VLCP2;AAGAT;BS HC;DR 5;AB9GE|VLCP2;BS HC;DR 5;AB9GF|VLCP2;BS HC;DR 5;AB9GG|VLCP2;AAGB6;AAGB7;AAGBL;BS HC;DR 5;AB9GH|VLCP2;AAGBS;BS HC;DR 5;AB9GH" _
,"VLCP2;AAGAT;DR 3;AB9GE","VLCP2;AAGAT;DWAAC;AB9GE",, _
End Sub