AUTO FILTER WITH VALUE IN CELLS AND COPY FILTERED DATA TO NEW FILE

[Eddy Stan]

HI

CODE IN FOR AUTO FILTER & COPY TO NEW FILE

' FOR FIELD 2 "TPT" IS IN RANGE("B2").VALUE
' FOR FIELD 3 "WEST" IS IN RANGE("C2").VALUE
' FOR FIELD 4 "AURANGABAD BRANCH" IS IN RANGE("D2").VALUE

'Selection.AutoFilter Field:=2, Criteria1:="TPT"
'Selection.AutoFilter Field:=3, Criteria1:="WEST"
'Selection.AutoFilter Field:=4, Criteria1:="AURANGABAD BRANCH"
' WANT TO SAVE OUTFILE XLS AS AURANGABAD.XLS

ANY HELP URGENT. PLEASE

 

[Per Jessen]

HI

CODE IN FOR AUTO FILTER & COPY TO NEW FILE

    ' FOR FIELD 2 "TPT" IS IN RANGE("B2").VALUE
    ' FOR FIELD 3 "WEST" IS IN RANGE("C2").VALUE
    ' FOR FIELD 4 "AURANGABAD BRANCH" IS IN RANGE("D2").VALUE

    'Selection.AutoFilter Field:=2, Criteria1:="TPT"
    'Selection.AutoFilter Field:=3, Criteria1:="WEST"
    'Selection.AutoFilter Field:=4, Criteria1:="AURANGABAD BRANCH"
    ' WANT TO SAVE OUTFILE XLS AS AURANGABAD.XLS

ANY HELP URGENT. PLEASE

Hi

Dim wb As Workbook
Dim wb1 As Workbook

Set wb = ThisWorkbook
Set wb1 = Workbooks.Add
wb.Activate
Range("A110").Copy wb1.Sheets(1).Range("A1") ' Change Range to suit
sPath = "C:\Temp\" ' Change to suit
fName = "AURANGABAD.XLS"
wb1.SaveAs Filename:=sPath & fName

Regards,
Per

 

[Nigel]

see your other post and answer from Ron de Bruin

 

[Eddy Stan]

Hi
Can i use range name instead of absolute range