Sub urtreatmentcompleted()
Application.Calculation = xlManual
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("ur data") 'define which worksheet
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).row
Dim iRow As Long
For iRow = LastRow To 1 Step -1
If ws.Cells(iRow, "L").Value = vbNullString Then
ws.Rows(iRow).Value = "=if(sum(O2:R2)>=10,""Completed treatment"","""""
End If
Next iRow
Application.Calculation = xlAutomatic
End Sub
Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>
Our community of experts have been thoroughly vetted for their expertise and industry experience.