Hi Everyone,
For some reason this code is causing all rows to unhide. It does exactly what I need besides that little hiccup. Should I use a different method? Thanks in advance for any help.
Code
Option Explicit
Sub PopulatePartsList()
'Application.ScreenUpdating = False
With Sheets("Incoming").Range("V40:AF417")
.AutoFilter
.AutoFilter Field:=4, Criteria1:="<>"
.Offset(0, 0).Copy
End With
With Sheets("Incoming")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
With Sheets("Incoming").Range("V40:AF417")
.AutoFilter
End With
'Application.ScreenUpdating = True
End Sub
Display More