Sub FilterData()
'
' FilterData Macro
' Macro recorded 26/10/2002 by Mike
'
'
Range("A1:D16").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"F1:G2"), CopyToRange:=Range("F6"), Unique:=False
End Sub<HTML><HEAD><Script Langage JavaScript><!---
function CopyToClipBoard() {
var HtmlSource;
HtmlSource = document.all.ForSubmit.innerHTML;
HtmlSource=RetDeleted(HtmlSource);
window.clipboardData.setData("Text",HtmlSource);
alert('Html source of above imagennhas been copied to your clip boardnnJust paste it into Message Body');
}
function RetDeleted(targetstring) {
if (targetstring.indexOf(unescape('%0D%0A')) > -1) rcode = unescape('%0D%0A')
else if (targetstring.indexOf(unescape('%0A')) > -1) rcode = unescape('%0A')
else rcode = unescape('%0D');
i = 0;
p = '';
while (targetstring.indexOf(rcode,i) != -1) {
m = targetstring.indexOf(rcode,i);
p += targetstring.substring(i,m);
i = m + rcode.length;
}
p += targetstring.substring(i,targetstring.length);
return p;
}</Script></HEAD><BODY BGCOLOR=#E0F4EA><CENTER><FONT COLOR=#339966 SIZE=5>[HtmlMaker 2.20]</FONT></CENTER><HR><SPAN id='ForSubmit'>
Parts and Models - Autofilter.xls |
---|
|
---|
| A | B | C | D | E | F | G | H | I | J |
---|
1 | Date | PartNo | Model | Price | | Date | | | | |
---|
2 | 1-Oct-02 | 101 | A | 19.56 | | 2-Oct-02 | | | | |
---|
3 | 1-Oct-02 | 101 | A | 19.56 | | | | | | |
---|
4 | 1-Oct-02 | 102 | B | 22.50 | | | | | | |
---|
5 | 1-Oct-02 | 103 | C | 9.45 | | FilteredList: | | | | |
---|
6 | 1-Oct-02 | 104 | D | 14.90 | | Date | PartNo | Model | Price | |
---|
7 | 2-Oct-02 | 101 | A | 19.56 | | 2-Oct-02 | 101 | A | 19.56 | |
---|
8 | 2-Oct-02 | 102 | B | 22.50 | | 2-Oct-02 | 102 | B | 22.50 | |
---|
9 | 2-Oct-02 | 102 | B | 22.50 | | 2-Oct-02 | 102 | B | 22.50 | |
---|
10 | 2-Oct-02 | 103 | C | 9.45 | | 2-Oct-02 | 103 | C | 9.45 | |
---|
11 | 2-Oct-02 | 104 | D | 14.90 | | 2-Oct-02 | 104 | D | 14.90 | |
---|
12 | 3-Oct-02 | 101 | A | 19.56 | | | | | | |
---|
13 | 3-Oct-02 | 103 | C | 9.45 | | | | | | |
---|
14 | 3-Oct-02 | 102 | B | 22.50 | | | | | | |
---|
15 | 3-Oct-02 | 103 | C | 9.45 | | | | | | |
---|
16 | 3-Oct-02 | 104 | D | 14.90 | | | | | | |
---|
17 | | | | | | | | | | |
---|
18 | | | | | | | | | | |
---|
|
---|
</SPAN><CENTER><HR><FORM NAME='form1'><INPUT TYPE='Button' value='Please click this button to send the source to clipbord' onClick='CopyToClipBoard();'></FORM><FONT COLOR=#339966 SIZE=2> This free code was written by Colo and Ivan F Moala:[HtmlMaker 2.20] - 27th June 2002</FONT><FONT COLOR=#339966 SIZE=2>Code mods by Ivan F Moala - 27th June 2002</FONT></HR></BODY></HTML>
HTH
Mike