Solved

# Getting SumIf values with VBA

Posted on 2010-11-17
654 Views
I have a number of formulas in Column AZ like this:
=SUMIF(AllConfigs,AV6,AllJ)

I'd like to have the option of using VBA to produce the same results. When I run this code below, I get all zeroes.  Is there a way to make this work?

Thanks,
John

``````Sub SumIfs()
Dim cel As Range
For Each cel In Range("AZ6:AZ10")
Dim str As String
cel = Application.WorksheetFunction.SumIf([AllConfigs], str, [AllJ])
Next
End Sub
End Sub
``````
0
Question by:gabrielPennyback
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points

LVL 58

Accepted Solution

cyberkiwi earned 250 total points
ID: 34161175
cel.formula = "=sumif(Allconfigs," & str & ",AllJ)"
cel.value = cel.value
0

LVL 23

Expert Comment

ID: 34161368
John

If you are using VBA why not just write the logic yourself for the function

The code below get a total for range A1:A20 where the value in the same row for Column B is equal to
the value in C1
``````Sub sumifs()

Dim i As Integer, j As Integer
Dim sumif As Long
Dim test As Long

test = Range("C1").Value

For i = 6 To 10
sumif = 0
For j = 1 To 20
If Range("B" & j).Value = test Then
sumif = sumif + Range("A" & j).Value
End If
Next
Range("AZ" & i).Value = sumif
Next

End Sub
``````
0

LVL 37

Assisted Solution

TommySzalapski earned 250 total points
ID: 34161679
That's because in VBA code you use the actual ranges not the addresses.
Try
cel = Application.WorksheetFunction.SumIf(Range("AllConfigs"), cel.Offset(0, -4).Text, Range("AllJ"))

I assume cel.Offset(0,-4) contains the condition (don't put quotes around it)
0

LVL 1

Author Closing Comment

ID: 34167660

Michael, I tried yours as-is and with several attempts at modification and couldn't get it to work. If it does indeed work, pls forgive me for leaving you out.

- John
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
If you need to forecast numbers -- typically for finance -- the Windows and Mac versions of Excel 2016 have a basket of tools to get the job done.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
###### Suggested Courses
Course of the Month11 days, 2 hours left to enroll