using the SUMIF function
Sub teste()
Dim vResultado
Dim LR As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
MsgBox LR
vResultado =
Application.WorksheetFunction.SumIf(Range("A2:A300 0"), _
Range("E3"), Range("B2:B3000"))
MsgBox vResultado
Range("E" & LR + 1) = vResultado
End Sub
Gord
On Tue, 22 May 2012 10:22:48 +0000, elsg
wrote:
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!
|