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