troubleshooting Question

VBA formula with dynamic reference

Avatar of Euro5
Euro5Flag for United States of America asked on
VBAMicrosoft ExcelMicrosoft Office
1 Comment1 Solution6 ViewsLast Modified:
I have this code filling in blank cells in column L with a formula.
The issue is, the sum(O2:R2) as it needs to use the row number it is currently in.
If the first blank in column L is row 5, this formula will not work.

Can anyone help please!?? Thank you!

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

Open in new window

ASKER CERTIFIED SOLUTION
Rob Henson
Finance Analyst

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 1 Comment.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

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 >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 1 Comment.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004