Macro with sumif

[orquidea]

Hi:

I want to set a macro which will work with the sumif formula below. The
range (B1:B3 and A1:A3) will be relative every time and would vary the number
of rows subject to be considered. I think I will have to select the range
first with Selection.End(xlDown).Select. But I can not figure out how to
code it.

=SUMIF(B1:B3,20,A1:A3)

Thanks in advance for any help.

Orquidea

 

[Don Guillett]

One way
Sub dosumif()
criteria = 1
lr = Cells(Rows.Count, "n").End(xlUp).Row
Set cr = Range("n1:n" & lr)
Set sr = Range("o1" & lr)
MsgBox Application.SumIf(cr, criteria, sr)
End Sub

 

[Joel]

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set criteriarange = Range("B1:B" & LastRow)
Set sumrange = Range("A1:A" & LastRow)
newsum = WorksheetFunction.SumIf(criteriarange, "=20", sumrange)

 

[orquidea]

Thanks Joel for your help.

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set criteriarange = Range("B1:B" & LastRow)
Set sumrange = Range("A1:A" & LastRow)
newsum = WorksheetFunction.SumIf(criteriarange, "=20", sumrange)

 

[orquidea]

Thanks for your help

One way
Sub dosumif()
criteria = 1
lr = Cells(Rows.Count, "n").End(xlUp).Row
Set cr = Range("n1:n" & lr)
Set sr = Range("o1" & lr)
MsgBox Application.SumIf(cr, criteria, sr)
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)