gtd526
Well-known Member
- Joined
- Jul 30, 2013
- Messages
- 684
- Office Version
- 2019
- Platform
- Windows
Hello,
Im receiving a Type Mismatch error on the enter formula line.
How can this be resolved?
The formula works fine when entered manually.
Thank you
Im receiving a Type Mismatch error on the enter formula line.
How can this be resolved?
The formula works fine when entered manually.
VBA Code:
Dim c As Range
For Each c In Range("U27:AF27")
If c.Value < Date Then
c.Offset(1, 0).Value = _
"=IF(SUMIFS($E$3:$E$30,$B$3:$B$30," >= "&U$27,$B$3:$B$30," < "&EDATE(U$27,1))+SUMIFS($K$3:$K$30,$H$3:$H$30," >= "&U$27,$H$3:$H$30," < "&EDATE(U$27,1))+SUMIFS($P$3:$P$30,$N$3:$N$30," >= "&U$27,$N$3:$N$30," < "&EDATE(U$27,1))=0,"",SUMIFS($E$3:$E$30,$B$3:$B$30," >= "&U$27,$B$3:$B$30," < "&EDATE(U$27,1))+SUMIFS($K$3:$K$30,$H$3:$H$30," >= "&U$27,$H$3:$H$30," < "&EDATE(U$27,1))+SUMIFS($P$3:$P$30,$N$3:$N$30," >= "&U$27,$N$3:$N$30," < "&EDATE(U$27,1)))"
End If
Next
Thank you