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
|