Extract the filter data

Sandhya · #1 10-24-2015, 08:31 PM

Hi,

I am using below code to extract the filter data, but it is giving probolem.
can any one help me to resolve the same.

Code:

Private Sub CommandButton1_Click()
Sheet1.Activate
Sheet1.Range("A1,G1").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A1:B1").PasteSpecial
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Range("C4").Select
Sheets("Sheet1").Select
Application.CutCopyMode = False
Sheet1.Range("A3").Select
Sheets("Sheet4").Select
Sheets("Sheet1").Range("A1:G9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range("I1:I2"), CopyToRange:=Sheets("Sheet4").Range("A1:B1"), Unique:=False
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Vba to Filter data	saurabhlotankar	Excel Programming	5	05-29-2015 06:07 AM
Extract Excel Data from Chart in Word	cillianmccolgan	Word	1	08-15-2014 01:42 AM
Extract data from web - Take a long time	edneco	Excel Programming	11	06-28-2014 05:54 PM
How to Extract key data from word	iliauk	Word	3	11-08-2013 04:37 PM