Hi,
Use a unused column to put your items (here, I use column G) :
Selection.AutoFilter
Set rg = [G1].Resize(Application.CountA([G:G]))
arr = Application.Transpose(rg)
ActiveSheet.Range("$A$1:$E$500").AutoFilter Field:=2, Criteria1:=arr,
Operator:=xlFilterValues
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
Regards.
Daniel
De : excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com] De
la part de vebhav jain
Envoyé : jeudi 23 décembre 2010 15:50
À : excel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Regarding Code
Hi All,
Please can you help me in updating the below code marked in a red color,
where data keep varies, so want to have common code.
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$500").AutoFilter Field:=2, Criteria1:=Array(
_
"Account", "As of", "E", "T", "TBR/F", "="),
Operator:=xlFilterValues
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
Regards
Vebhav Jain
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall
<http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
> &ref=ts
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
