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

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

"orquidea" wrote in message
...
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

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" wrote:

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

Thanks Joel for your help.

"Joel" wrote:

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" wrote:

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

Thanks for your help

"Don Guillett" wrote:

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

"orquidea" wrote in message
...
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