Run-time error'1004': No cells were found

[kier0978]

Hi all

I have got error message 'Run-time error'1004': No cells were found' every time I run the macro. I have highlighted the portion in red where I cannot pass it.

Is there anyone can help me with it?


Sub ESTIMATING_SHEET_REFRESH_CC()

ActiveSheet.Range("$DI$1:$DI$1370").AutoFilter Field:=1

Range("ESIF").Copy
Range("DW3:HR3").PasteSpecial
Range("ESIF1").Copy
Range("DW3:HR3").SpecialCells _
(xlCellTypeFormulas, xlNumbers).Select
Selection.PasteSpecial (xlPasteFormulas)

Selection.Copy
Selection.PasteSpecial (xlPasteValues)

Application.CutCopyMode = False


Range("ESIF5").Copy
Range("G23:DB23").PasteSpecial (xlPasteFormulas)
Range("ESIF7").Copy

Range("G23:DB23").SpecialCells _
(xlCellTypeFormulas, xlNumbers).Select

Selection.PasteSpecial (xlPasteFormulas)

Range("G23:DB23").ClearContents



ActiveSheet.Range("$DI$1:$DI$1370").AutoFilter Field:=1, Criteria1:=Array( _
"0", "1", "="), Operator:=xlFilterValues



Application.CutCopyMode = False
Range("B15").Select

End Sub

 

[mohadin]

Hi

Ttry

Range("DW3:HR3").SpecialCells(xlCellTypeFormulas, 1).Select

 

[Alex Blakenburg]

The most likely issue is that you don't have anything in the range "DW3:HR3", that meets the criteria.

Try is manually.
Select "DW3:HR3" and hit <F5> (goto) , click "Special" then select "Formula" clear all the boxes except "Numbers".
Does it come back with "No cells were found" ?

The criteria are:
- the cell must contain a formula
- the result of the formula in the cell must be a number.