Hey Ker.. I am trying to rate your post but It seems to have a problem.. It
still appears unrated to me..

"Dani Lima" wrote:

Hey.. thanks.. worked perfectly..

Dani

"ker_01" wrote:

Did you intend to activate cell R7, but then try to sort on L7? Have you
verified that the data in L7 is a valid sort criteria?

you also seem to have an extra ".xls" at the end of the third line?

For easy of following the code (and troubleshooting) you might consider
setting a variable to the value you want to pass from workbook1 to workbook2;

(aircode)

Windows("Prazos de entrega_matriz").Activate
MySortValue = Sheets("Extract BD").Range("R7").value

'activate the second workbook
Windows("second workbook name").Activate
Sheets("sheetname").activate
Activesheet.Range("E3").Select
Activesheet.Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter Field:=2, Criteria1:=MySortValue
etc.

"Dani Lima" wrote:

Hey.. I need some help..

I have to filter the values of one collumm according to the value on another
cell on another workbook, than I have to copy and past it in a third workbook.

I am trying this code.. but I doesnt work, It did not recognize the value on
the cell...

help meeee!!!

The code:

Windows("Prazos de entrega_matriz").Activate 'it's the first workbook.
Sheets("Extract BD").Select
Windows("" & Sheets("Extract BD").Range("R7") & ".xls").Activate 'it
activate the second workbook. The one who has the parameter to filter the
values
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter Field:=2, Criteria1:='[Prazos de
entrega_matriz.xls]Extract BD'!$L$7 'that's the address of the cell with the
name of the value to be filtered in the second workbook.
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows("" & Sheets("Extract BD").Range("O7") & ".xls").Activate 'it
activate the third workbook.
Range("B2").Select
ActiveSheet.Paste