Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

using the SUMIF function

2 views
Skip to first unread message

elsg

unread,
May 22, 2012, 6:22:48 AM5/22/12
to

Hello
I Have various data in column "E", and would like to put the result in
each cell of column "F"

Sub teste()
Dim vResultado
Dim LR As Long
LR = Range("E" & Rows.Count).End(xlDown).Row
vResultado = Application.SumIf(Range("A2:A3000"), Range("E3"),
Range("B2:B3000"))
Cells(LR + 1) = vResultado
End Sub


does anyone know how to do?

Thank you!




--
elsg

Gord Dibben

unread,
May 22, 2012, 1:38:26 PM5/22/12
to
Sub teste()
Dim vResultado
Dim LR As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
MsgBox LR
vResultado =
Application.WorksheetFunction.SumIf(Range("A2:A3000"), _
Range("E3"), Range("B2:B3000"))
MsgBox vResultado
Range("E" & LR + 1) = vResultado
End Sub


Gord

elsg

unread,
May 22, 2012, 8:39:08 PM5/22/12
to

Hi.

i'm solved this way.

Sub Test()
Dim lasta, laste As Long
Dim nam, nam1, c As Range
lasta = Cells(Rows.Count, 1).End(xlUp).Row
Set nam = Range("a1:a" & lasta)
nam.Copy [e1]
nam.Offset(0, 4).RemoveDuplicates Columns:=1, Header:=xlYes
laste = Cells(Rows.Count, 5).End(xlUp).Row
Set nam1 = Range("e2:e" & laste)
For Each c In nam1
c.Offset(, 1) = Application.WorksheetFunction.SumIf(nam, c,
nam.Offset(0, 1))
Next

End Sub

Thank you!!!




--
elsg
0 new messages