Advanced Filter Active Sheet Macro Code

May 9, 2008

the macro mentioned below has been assigned to a combo-box form. I have 2 different datasets in the same sheet, they have the same headers (but named differently, myhead and myhead1) and the same adv filter criteria range (named as "dcrit") is applicable to both datasets. So, if an item is selected from the combo-box, both the datasets should get filtered according to same criteria. how i can combine the 2 IF LOOPS mentioned in the code?

Sub myfilt()
Application. ScreenUpdating = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
If Not (Range("indsignal")) Or Not (Range("countsignal")) Then
Range(Range("myhead"), Range("myhead").Offset(1, 0).End(xlDown)).AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=Range("dcrit"), Unique:=False
End If
If Not (Range("indsignal")) Or Not (Range("countsignal")) Then
Range(Range("myhead1"), Range("myhead1").Offset(1, 0).End(xlDown)).AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=Range("dcrit"), Unique:=False
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

View 3 Replies


Macro Code Using Advanced Filter

Jun 28, 2008

This is quite a easy one. I am a begineer so I don't know how to do it. I keep getting a runtime error. I want create a macro that does the following. I have this data(it is made up).


I want it to autofilter school njit


What would be the code for this? I want use the code for bigger data?. Also if you have a file which is 100 lines long and your macro does a series of steps for that file. Then you have another file and you want the same steps done but it is 500 lines long. How would you write a macro thatrun the steps taking in the last line and not just a 100 lines.

View 2 Replies View Related

Advanced Filter Code - Criteria Range More Than 1 Row Breaks Filter

May 1, 2014

I found a great bit of Advanced Filter code that works great, and fixed a problem of clearing a cell breaking the filter.

But if I want to increase the criteria from 1 row to 2, so you can start to include And , Or operations, it breaks the filter. Even an attempt at a manual one fails, until you put the criteria range back down to one row, then it's fine again.

I've tried changing the Target Row to >2 but that didn't work. how to make the criteria range bigger, and no problems of breakage if you clear the cells? It makes for a very useful automated Advanced Filter.

Here's the code :

[Code] .....

Database = the named area of raw data.
DATA is the name of the raw data worksheet
The criteria range should be AZ1:BC3, but of course royally breaks it...

View 4 Replies View Related

Code For Advanced Filter Function

Dec 5, 2008

I have an Excel sheet with a few thousand rows which I would like to filter by a column with the name TrackingID. This column contains values like:


I would like to filter this column by the third character from the end (which is always a letter from the range [A-Z]). In the example above, this would be:


View 2 Replies View Related

Advanced Filter Code Re Automation

Jun 19, 2009

I'm trying to automate advanced filter but can't get past having just 1 critreria.
I have attached an example spreadsheet where the download dump is on "Data" sheet and the result of the advanced filter is on the "Result" page. I would like, if possible, for the result to come up every time the criteria is put in (they are all data validation lists).

so for example, if i select account code, all those codes come up then select period and the list dwindles down and again for cost centre. Is it possible to do this without using macros. I have found the following code butnot sure what to do with it (sorry).

View 2 Replies View Related

Use Advanced Filter Placing Result In Another Sheet

May 29, 2006

Is there any way to use Advanced Filter placing the result (the filtered data) in another sheet ?

I have tried but with no success... An error message is displayed (something like "It's not possible copy filtered data from a sheet to another")...

What do I have to do to get it ???

View 6 Replies View Related

Edit Table Information After Using Advanced Filter To Another Sheet?

Nov 19, 2013

Is there a way to edit my database located on sheet 1 using the advanced filter (output) on sheet 2?

I have a gigantic database and I want to filter it down to the rows I need to edit.. so I used advanced filter to extract the rows I need on to another sheet. But if I edit the rows on sheet 2 how do I makes those changes reflect on sheet 1 (the full database)

View 2 Replies View Related

Advanced Filter - Macro

Mar 24, 2007

Having big problems getting an advanced filter macro to work on-going (meaning again and again and again once I update the table it filters from).

Macro is as follows:
Range("A3:O65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:H2"), CopyToRange:=Range("T1:AH65536"), Unique:=False
Range("A3:O65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"G1:G2"), CopyToRange:=Range("AM1:BA65536"), Unique:=False

Do I need to specify the sheet that this filter should occur on? If so could someone indicate how I would get that into the macro?

View 9 Replies View Related

Advanced Filter Placing The Result (the Filtered Data) In Another Sheet

May 29, 2006

Is there any way to use Advanced Filter placing the result (the filtered data) in another sheet??? I have tried but with no success... An error message is displayed (something like "It's not possible copy filtered data from a sheet to another").

View 4 Replies View Related

Advanced Filter Macro Does Not Work?

Feb 15, 2013

I've written a macro in an attempt to automate the advanced filtering in Excel.

Sub FilterData()

View 5 Replies View Related

Macro To Automatically Add Totals To The Bottom Of A List Created With Advanced Filter

Mar 5, 2008

if it is possible to write/record a macro that will automatically add a summary/total row immediately below the data that is created from an advanced filter. (XL00)

View 12 Replies View Related

Macro With Reference To Active Chart On Active Sheet

May 14, 2014

I currently have the following macro running to set a chart's data values:

Sub C3Quarter12013()
' C3Quarter32013 Macro
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).Values = _

[Code] ......

When I copy the tab and change some of the data within the cells, I want the macro refer to the chart on the current tab and the values in the current tab - as currently it refers to only "Chart 2" and the values in the tab 'Figure 2 - WE OPH'.

I've tried changing the sheet name to but that doesn't seem to work.

View 4 Replies View Related

Macro To Filter Table Using Active Worksheet Name?

Jun 7, 2013

I need the macro to filter a table using the name of active worksheet as criteria. The code that I am writing is as below, but it doesn't seem work:

ActiveSheet.Range("$A$1:$AE$421").AutoFilter Field:=19, Criteria1:="Activesheet.Name"

If I hard quote the name of the sheet then, the macro, unchecks all the criteria in the filter and does not show and row in the table.

View 1 Replies View Related

Filter>Advanced Filter>Unique Failure

Jun 14, 2009

Can anyone explain why the unique filter does not produce a unique result - sample attached?

View 2 Replies View Related

Advanced Filter To Filter A List Of Data

Jan 14, 2010

How do I go about using an advanced filter to filter a list of data e.g.


and have the filter extract only the boat entries to another worksheet, so on another worksheet I end up with


View 9 Replies View Related

Advanced Filter :: Filter Data Between Two Dates

Mar 15, 2007

1- Force cell format date to by (yyyy/mm/dd) only, with worng msgbox( validation).

2- Make the first day of a month in a color cell

I've Tried this In Conditional Formating (=VALUE(right(A1;2))=1) but didn't work

3-Make Advanced Filter to filter data between two dates .

View 5 Replies View Related

Macro To Filter Column On The Basis Of Active Cell Value?

Jun 28, 2014

I want a macro which can filter the data on the basis of active cell

View 1 Replies View Related

Code Adds Data To Active Sheet Instead Of Specified Sheet?

Mar 12, 2014

What this code keeps adding the data to the active sheet instead of the specified "Users" sheet:


View 2 Replies View Related

Excel 2010 :: Macro To Filter Column Based On Active Cell Value?

Feb 25, 2014

I work on an excel spreadsheet all day and I'm constantly cuting and pasting a value to filter another column. I would love to have a macro button that would automatically do this.

The job card sheets are labled 'Page 1' through to 'Page 175'. As I am working on each job card sheet I need to filter column on another sheet within the same workbook. This is indicated on the attached picture.

So in a perfect world as I would enter in the PLANT ID number on to any job card, then hit a macro button on the toolbar and the Pole No column would then be filtered by the value in the PLANT ID cell.

As there are multiple job cards the macro would probably need to use the 'active cell' value to filter by. But as you can probably tell I'm no expert so you judge the best way to do it.

MWTS034G22 Job Card Sheet
[URL] .....
Windows 7 (32bit)

View 2 Replies View Related

Code To Move Active Sheet Tab All The Way To The End (right)?

Dec 10, 2008

I searched and found a couple of different active.sheet codes but could not get it to work. What I want to do is move the worksheet tab I create in the code below all the way to the end (right) of the worksheet tabs already in my workbook.

View 2 Replies View Related

Vlookup Code For Non Active Sheet

May 24, 2007

I wrote this code today and it works - sometimes. Really it only seems to work when I have one of the sheets(zvur013) is in focus (ie, it was the last sheet to have been tabbed to). I dont understand what I'm missing, please help.

Sub lookforitems()
Dim items()
Dim groupnums()
Application. ScreenUpdating = False

Set allitems = Workbooks("zvur013.dbf").Sheets("zvur013")
Set allgnums = Workbooks("Groupnumbers.xls").Sheets("sheet1")
Countgroups = Application.WorksheetFunction. CountA(allgnums.Columns(1))
countitems = Application.WorksheetFunction.CountA(allgnums.Rows(1))
allgnums.Cells(j + 1, i + 2).Value = x
Debug.Print x
Next j
Next i

End Sub

View 9 Replies View Related

VBA Code To Hide Sheet Tabs In Active Workbook

May 17, 2013

i need a code to hide the sheets tab from the workbook. and only show the horizontal scroll bar and vertical scroll bar.

View 1 Replies View Related

Macro Copy Of The Active Sheet And Then Rename The New Copied Sheet

Jul 30, 2009

I'm trying to create a copy of the active sheet and then rename the new copied sheet to what's in cell O4, which is a formula (see below) and then paste value cell O4 in B3 of the copied sheet. However, when I run this macro it doesn't seem to like the second line where I am renaming the sheet (run time error '1004').

"O4" =DATE(YEAR($B$3),MONTH($B$3)+1,DAY($B$3))

Sub NewMonth()

ActiveSheet.Copy Before:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("O4").Value
ActiveSheet.Range("B3").PasteSpecial Paste:=xlPasteValues
End Sub

View 9 Replies View Related

Advanced Filter On Name Selection

Apr 8, 2014

I have a large Excel with details of 1,000 staff

Column J1 is called: Resource Name which has 1,000+ staff other columns have corresponding Hours, Project names etc

I want an advanced filter where I select COLUMN J:J and filter this whole sheet based on say 25 names (in the format they're in) e.g

Frank, James
Wilkonson, Paul,

In the Advanced Filter, Ive selected J:J as LIST RANGE, but how do I input an OR statement in the Criteria, as above i.e where name is Frank, James OR Wilksonson, Paul OR

Alternatively, I have the list of the 25 names in Sheet 2, can the Advanced Filter do a VLOOKUP then filter entire Sheet based on the names provided?

View 11 Replies View Related

Using INDIRECT In Advanced Filter

Aug 5, 2014

I have a condition in advanced filtering as >90%. However, I would like the "90%" to be calculated via a formula in another cell and this condition to reference it. Is it possible?

View 8 Replies View Related

Advanced Filter Using Calculaions

Jul 25, 2006

I have a file that has a column of dates. I would like to use advanced
filter to filter anything with a date that is <today()-1 but I can't seem to
make the fomula work. I can make it filter on =today()-1 but when I use the
< it doesn't calculate today's date and gives me nothing.

View 9 Replies View Related

Automate Advanced Filter

Sep 8, 2009

Basically I have set up a list on sheet1, this is now on a drop down in sheet2 and my raw data in sheet3.

I want the table in sheet2 to just display the product items I select in the dropdown but it is displaying all the raw data (although is updating when I update the raw data)

Granted I copied the code whilst researching but I'm just not quite there.

Could someone possibly look at the attached and let me know where I am going wrong. Also as you can tell I am very new to teh VB application in Excel, could anyone reccommend a good place to start learning the very basics?

View 9 Replies View Related

Advanced Filter Not Filtering In UDF?

Dec 17, 2012

why the Advanced Filter works in the macro but not in the UDF?

Public Function strUniqueVal(rng As Range) 'rng variable must include sheet name
Dim c As Range
rng.AdvancedFilter Action:=xlFilterInPlace, Unique:=True


View 2 Replies View Related

Advanced Filter With Wildcards

Oct 28, 2008

I have a worksheet that conatins multiple columns that are populated from a sql query.One column is a parts list.This has 1705 rows.

I have another worksheet that contains a list of parts in one column.This list is varying in row length.

I want to be able to produce a list that only contains matching data , including () around parts and if not too difficult an indication of data that is not in first list but is in second list.

When I do an advanced filter using the second list as the criteria i am not recieving all of the data from the filter , ie in the first list there is parts in (1234XYZ ) but in the second list the part is 1234XYZ , this part is not being resulted in the advanced filter unless I put brackets around the part in the second list . There is no way of knowing which part is in brackets in the first list.

View 9 Replies View Related

Advanced Filter For Text

Aug 23, 2009

I have a huge list (over 900,000 rows) of text codes (e.g. ABC-12345) on Column A Spreadsheet 1 and would like to remove the ones that are not included in Column A Spreadsheet 2.

I changed all of the text on Column A Spreadsheet 2 to have the in front of it (e.g. ABC-1234) and tried to run the advanced filter but it does nothing.

View 9 Replies View Related

Copyrights 2005-15, All rights reserved