Advanced Filter Help
 

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

[vba]
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
[/vba]

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

Advanced Filter Help
 

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 wrote:

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

--
tqm1

--

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

Advanced Filter Help
 

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

tqm1 wrote:

Dave Peterson;514444 Wrote:
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

--
tqm1

--

Dave Peterson