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

On 21 Jun., 21:41, Eddy Stan <EddyS...@discussions.microsoft.com>
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("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

see your other post and answer from Ron de Bruin

--

Regards,
Nigel
(E-Mail Removed)



"Eddy Stan" <(E-Mail Removed)> wrote in message
news:7D34E796-02DB-4705-BC9A-(E-Mail Removed)...
> 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
Can i use range name instead of absolute range


"Per Jessen" wrote:

> On 21 Jun., 21:41, Eddy Stan <EddyS...@discussions.microsoft.com>
> 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("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
>