On 16 Jun., 14:14, Don Guillett Excel MVP
wrote:
This macro filters h1:i4 &copies to j14. Adjust to suit
Sub filterandcopy()
lr = Cells(Rows.Count, "h").End(xlUp).Row
With Range("H1:I" & lr)
* * .AutoFilter Field:=1, Criteria1:="=*09"
* * .Offset(1).Copy Range("J14")
* * Application.CutCopyMode = False
* * .AutoFilter
* * End With
End Sub

On Jun 16, 5:38*am, Ron Rosenfeld wrote:



On Wed, 16 Jun 2010 01:46:16 -0700 (PDT), andreashermle

wrote:
Dear Experts:

I got an excel-file with item numbers (2 columns, n-rows) with the
following synthax:

90-434-07-09 item description
90-454-07-04 item description
90-422-45-07 item description
90-234-38-09 item description
etc.

I would like to be able to copy the ones (with a macro or formula)
that have the suffix -09 and insert them below the actual list.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

You could use Data/Filter or Advanced Filter

Record a macro while you do that if this will be very repetitive. *If
you decide to use a macro, post back and I can help you with selecting
the data and target ranges.

For example, with your list in A1:B5:

A1: * * Part Number
B1: * * Description
A2: * * 90-434-09-09
B2: * * Item Description
...

N1: * * Part Number
N2: * * *-09

Select some single cell in the Data List

Data/Advanced (or Advanced Filter)

Action: *Copy to Another Location

List Range: *(should self-select the entire list
Criteria Range: *$N$1:$N$2
Copy to: * * * *select the upper left cell of the range where you want
this

<OK- Hide quoted text -

- Show quoted text -- Zitierten Text ausblenden -

- Zitierten Text anzeigen -

Dear Don,

thank you very much for your great help. It works as desired.

Thank you very much for your professional help. Regards, Andreas