Filling down cells with formula, sometiomes their is no data.

[Vincent Thank You]

Hello!

After filtering for 2017 data in column C the following formula:

With ActiveSheet.Range("N2:N" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
.Cells.FormulaR1C1 = "=IfError((RC[-2]),0)"
.Cells.FillDown
Worksheets("2016").Columns(10).Calculate
End With

runs in the macro. The problem is that sometimes their is no 2017 data and the macro gets hung up and debugs .Cells.FillDown I tried playing around with some if then codes but I can't get it to work properly. Any ideas?

 

[Truiz]

On Error Resume Next
[COLOR=#333333]With ActiveSheet.Range("N2:N" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible)[/COLOR]
[COLOR=#333333].Cells.FormulaR1C1 = "=IfError((RC[-2]),0)"[/COLOR]
[COLOR=#333333].Cells.FillDown[/COLOR]
[COLOR=#333333]Worksheets("2016").Columns(10).Calculate[/COLOR]
[COLOR=#333333]End With[/COLOR]

 

[Vincent Thank You]

Thank you! That worked perfectly. I love it when it's a clean short solution.