Application-defined or Object-defined error

[p4nny]

Hi

I'm getting this error in the following formula:
If I remove everything from below displayAlerts = false to above
Application.DisplayFullScreen = False

vba works fine...


Private Sub Button6_saveClose()
stopsaveTimer
DisplayAlerts = False
Worksheets("work record").Range("bp13").AutoFill Destination:=Range("BP13:BP4000")
Worksheets("work record").Range("k13").AutoFill Destination:=Range("k13:k4000")
Worksheets("work record").Range("j13").AutoFill Destination:=Range("j13:j4000")
Range("F2").FormulaArray = "=SUM(IF(FREQUENCY(IF($K$13:$K$4000=TODAY(),IF(LEN($B$13:$B$4000)>0,MATCH(""~""&$B$13:$B$4000,$B$13:$B$4000&"""",0))),ROW($B$13:$B$4000)-ROW(B13)+1)>0,1))"
Range("F3").Formula = "=COUNTIFS($K$13:$K$4000,TODAY(),$B$13:$B$4000,""<>""&"""",$J$13:$J$4000,""complete"")"
Range("F4").Formula = "=COUNTIFS($K$13:$K$4000,TODAY(),$B$13:$B$4000,"" <>""&"""",$J$13:$J$4000,""<>""&""complete"""
Application.DisplayFullScreen = False

ThisWorkbook.save
ThisWorkbook.Close
End Sub

thanks for your help

 

[bobgentry]

fails on line:

Range("F4").Formula = "=COUNTIFS($K$13:$K$4000,TODAY(),$B$13:$B$4000,"" <>""&"""",$J$13:$J$4000,""<>""&""complete"""

since it's almost identical to the line above it, it seems you forgot your closing ')'

change to

Range("F4").Formula = "=COUNTIFS($K$13:$K$4000,TODAY(),$B$13:$B$4000,"" <>""&"""",$J$13:$J$4000,""<>""&""complete"")"