Application error or object-defined error

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

Hi ell - You're using the SpecialCells(xlCellTypeVisible) method to find visible cells within a specified range. If none are found, it generates an error, which happens when there are no rows that meet your filter criteria. Make sure you're referencing the correct range, and that it has some visible cells.

What happens with this code?

Please Login or Register  to view this content.

Hi, Leelnich. What should I replace instead to make the code works?

Norie, the code actually filters the DTE_Raw to only show data which similar to data in cell K2 and M2, then it copies to sheet DTE

This will skip the copy if there are no cells found:

Please Login or Register  to view this content.

MATCHES should be Dim'ed As Range

On Error Resume Next - Says "If an error occurs in a line of code, ignore it and execute next line."
Set MATCHES = .Offset(1, 0).SpecialCells(12) - This is the line that will generate an error if no rows meet your criteria.
If an error DOES occur, then the line will not successfully assign a value to the variable MATCHES...
If Not MATCHES Is Nothing Then MATCHES.Copy Sheets("DTE").Range("A2")-... which we test for here. The result?- we only copy if we find rows.
On Error GoTo 0 - Turn off the Error Handling, so other errors that might occur will be handled normally.

You could even take some alternative action if the error occurs:

Please Login or Register  to view this content.