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

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

AUTO FILTER WITH VALUE IN CELLS AND COPY FILTERED DATA TO NEWFILE
 

On 21 Jun., 21:41, Eddy Stan
wrote:
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("A1:D10").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

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

see your other post and answer from Ron de Bruin

--

Regards,
Nigel




"Eddy Stan" wrote in message
...
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

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

Hi
Can i use range name instead of absolute range


"Per Jessen" wrote:

On 21 Jun., 21:41, Eddy Stan
wrote:
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("A1:D10").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