Identifying Rows in Range with zero sums.

[ERLoft]

I'm working to run through a range of Rows (62 in total) to see which ones have zero values. Those that have values will be copied and placed elsewhere. However, I'm running into issues getting things to sum.

I've tried a few versions, none of which are working. Getting error 438 with this version. Any help would be much appreciated.

Dim RowNumber As Long
For RowNumber = 3 to 65 Step 1
     If Application.Worksheetfunction.Sum(Range("BC" & RowNumber & ":BM" & RowNumber) <> 0 Then
          Range("BC" & RowNumber & ":BM" & RowNumber).Copy
          Move data where it needs to go here.
     End If
Next RowNumber

 

[Joe4]

You are missing a right parenthesis:

     If Application.WorksheetFunction.Sum(Range("BC" & RowNumber & ":BM" & RowNumber)) <> 0 Then

 

[ERLoft]

Interesting. I wasn't missing it on my version in Excel, but that did give me an idea. I'm still getting an error with this code:

If Application.WorksheetFunction.Sum(Range("BC" & RowNumber & ":BM" & RowNumber)) = 0 Then

But was able to do a workaround by assigning the sum to a variable, then checking if the variable is zero.

Thanks for your help!

 

[Joe4]

You are welcome.
Glad you got it figured out!