Advanced Filter Help

[tqm1]

Dear Professors

Sheet1 has following Five columns

-A------B--------C---------D--------E----------F-----
code--country--capital--language--president--currency
--1----India----Delhi----Hindi-----Kalam-----Rupee
--2----Iraq----Bugdad----Arabic-----Jalal-----Riyal
--3----Iran---Thehran---Persian----Mehmood----Dirham

Oval1 on sheet1 has following codee


Sub Oval1_Click()

Range("A3:F7").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("a5"), CopyToRange:=Range("Print!A3"),
Unique:=False
Sheets("Print").Select

Range("A1").Select
End Sub


Above codes work fine and copy all data to sheets("Print")

My Question is:

How to copy only following columns to sheets("PRINT")?

column A, column B, column D, column F

After Runing MACRO sheets("PRINT") must look like this


code--country---language---currency
--1----India-----Hindi------Rupee
--2----Iraq-----Arabic------Riyal
--3----Iran----Persian-----Dirham


Please help and modify above codes

 

[Dave Peterson]

Record a macro when you filter in place, then copy just those columns that you
want.

Or...

filter and copy to the new location, then delete the columns you don't want.

 

[tqm1]

Record a macro when you filter in place, then copy just those columns
that you
want.

Or...

filter and copy to the new location, then delete the columns you don't
want.

Dave Peterson

It will be better not not to copy unneeded columns to new location.
But how to copy some columns from a range?

Please help

 

[Dave Peterson]

Turn on the macro recorder when you do it manually. You'll see the code.