Edward Pamias
asked on
I need an Excel Macro modifed to filter out "R2O" and "Asset Verification" then copy the results to a new sheet.
I need this macro modified to filter out "R2O" and "Asset Verification" then copy the results to a new sheet.
Sub CopyFilteredRow()
Dim SrcWs As Worksheet, NewSh As Worksheet
Dim RngFilter As Range
Dim SrcLR As Long
With Application
.ScreenUpdating = False
.DisplayStatusBar = True
.StatusBar = "!!! Please Be Patient...Updating Records !!!"
.EnableEvents = False
.Calculation = xlManual
End With
Set SrcWs = ActiveSheet
SrcLR = SrcWs.Range("A" & Rows.Count).End(xlUp).Row
Set RngFilter = SrcWs.Range("A1:K" & SrcLR)
With RngFilter
.AutoFilter Field:=8, Criteria1:="<>*Project*"
.SpecialCells(xlCellTypeVisible).Copy
Worksheets.Add.Paste
End With
ActiveSheet.Name = "FilteredSheet"
Set NewSh = Worksheets("FilteredSheet")
Application.CutCopyMode = False
If SrcWs.AutoFilterMode = True Then SrcWs.AutoFilterMode = False
NewSh.Activate
NewSh.Columns.AutoFit
NewSh.Range("A2").Select
ActiveWindow.FreezePanes = True
With Application
.ScreenUpdating = True
.DisplayStatusBar = True
.StatusBar = False
.EnableEvents = True
.Calculation = xlAutomatic
End With
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
@shums, I had to modify this, because I did not save my original report that I pull. So I created a new one and was able to get it working with the new report. I have another question coming to add to this Macro. :)
You're Welcome Edward! Glad it worked with new criteria :)
ASKER