VBA problem.

[Dani Lima]

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

 

[Don Guillett]

If desired, send your file ( S ) to my address below. I will only
look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[ker_01]

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]

Hey.. thanks.. worked perfectly..

Dani

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.

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

 

[Dani Lima]

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

Hey.. thanks.. worked perfectly..

Dani

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.

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