| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Can you apply the auto filter to data that are filtered? | Excel Worksheet Functions | |||
| using auto filter, how to tell what columns are filtered? | Excel Discussion (Misc queries) | |||
| Copy visible cells on Filtered data | Excel Discussion (Misc queries) | |||
| Copy Auto-filtered data to new sheets | Excel Programming | |||
| Copy auto filtered data | Excel Discussion (Misc queries) | |||
Linear Mode
