Hi AB33,
Just one more question which came up much later on your excellent code.
If I have to add more criteria , what exactly I should say? I tried many combinations but it is not working.
Sub copyme()
Application.ScreenUpdating = False
Dim ms As Worksheet
Set ms = Sheets("Sheet2")
ms.UsedRange.Offset(1).ClearContents
With Sheets("Sheet1").Range("A1").CurrentRegion
.Parent.AutoFilterMode = False
.AutoFilter 3, "cc", xlOr, "dd"
'I want to add atleast 8 criteria. Is it possible??
If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
.Offset(1).Copy
ms.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End If
.AutoFilter
.Parent.UsedRange
End With
Application.ScreenUpdating = True
End Sub
Kind regards
KK1234
Bookmarks