YTLE#95: Complex Advanced Filter Extract

Hi there,

I have a table of data that I am looking to create an advanced filter for. one of the filters in the criteria must be greaters than 1.50 and less than 1.60. I cannot seem to figure out how to represent this in the criteria cell. I can do them separately (">1.50" and ("

I have a fairly simple database containing one column of hyperlinks and a few other columns of other data (some text, some numeric).

I'm using Excel 2000's advanced filter to copy selected rows to another location. The extract works fine, and cells that were hyperlinks in the original database appear with the format of hyperlinks (blue, underlined text). They *look* like hyperlinks...

Unfortunately, they're just blue underlined text - they no longer work as hyperlinks. Is it possible to make the advanced filter copy the cells as working hyperlinks?

Many thanks,

Ian

Here is what I have.

% of PO Net Price Supplier 1 % of PO Net Price Supplier 2 40% 5% 59% 0% 24% 0% 2% 5% -4% 111% 0% 36% 950% -4% 0% -4% 0% -4% 0% 86% 0% -35% 5% 0%


These two columns are column AL and AM
What I want to do is extract the rows from A - AR column heading
along with any data corresponding to the rows where the percentage is < -50% or >100%. I need desperate help on this. When I extract the rows, I want them to be deleted from the worksheet and pasted on another sheet in the workbook which is why I need the heading columns.

Please help.

I was trying to Generate unique values from a set of values.

I have written this code for that.

VB:

Sub MakeUniqueList() 
    Dim lasth As String 
    lasth = "h" & lastrow() 
    Dim r As Range, r1 As Range 
    Set r = Range("H4", lasth) 
    r.AdvancedFilter _ 
    Action:=xlFilterCopy, _ 
    CopyToRange:=Sheet3.Range("H4:H1000"), _ 
    UNIQUE:=True 
     
     'Range("H4").Delete Shift:=xlShiftUp
    Set r1 = Range("H4", Range("H4").End(xlDown)) 
    r1.Sort Key1:=r1, Order1:=xlAscending, Header:=xlNo 
End Sub 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines



The problem i am facing is that it sorts the values from the list but i dont know why its printing the first value twice.

Please let me know if that can be done by some way.

Thanks in advance

Good morning!
I am using advanced filter to extract specific information into a range.
I have additional data fisplayed below the extract range, which is deleted whenever the advanced filter is updated.
Is there any way that i can keep data below the extract range, or do i just have to ensure that the extract range is at the bottom?
Thanks for reading and any help you can give.

Dear All,

I need your help in creating sheet using advance filter. Excel details are as follows

Input data

There are various entries in various columns
Details indicates a particulars area
There are various areas in that entry

Output
Output should be in such way that if we enter name of particular area, corresponding details should automatically appear.

Please suggest how to create such sheet in arrange manner.

Hello friendly ozians,

i have a routine that queries a database, then filters it to get a unique list to put into an array using the code:

VB:

ActiveSheet.Cells.EntireRow.Hidden = False 
Sheets("query").Range("A2:a" & query_lr).AdvancedFilter Action:=xlFilterCopy, Unique:=True, copytorange:=Sheets("query").Range("a" & query_lr5) 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines



query_lr is the last row and query_lr5 is query_lr+5 just to get some space

but sometimes when i run it, i get an error:

error '1004' this extract range has a missing or illegal file name,

then all i have to do is go into the workbooks and click around, the sheets selecting single cells, undoing any selectiong the loop may have done, and it runs fine. I have tried to include selecting a cell in each sheet before it reaches that line of code but it hasnt helped. Does anyone know what is going plz

Morning All,

I'm using the below code to paste unique values from column 'D' to cells 'A6001:A11000'.

I'm getting the following error message:

Run-Time error '1004'

The Extract Range Has A Missing Or Illegal Field Name

Can anybody see anything immediatley wrong?

VB:

ActiveSheet.Range("D:D").Select 
Columns("D:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ 
"A6001:A11000"), Unique:=True 

If you like these VB formatting tags please consider sponsoring me in support of injured Royal Marines

I'm trying to make weekly schedules from a monthly schedule of routine tasks . Some tasks get done once a week, others get done daily.

Is it possible to use advanced filter to copy tasks listed as 'daily' on the Month worksheet to several loctions (each day) on the Week worksheet?

I have tried but can't get it to work.

Failing that, would it possible to select a row of headings as criteria and copy to a location several rows down from the headings? (If so, how?)

Any and all help much appreciated!