Just a quick thank

R

rumkus

Been on my Sumproduct syntax problem for nearly 3 hours till I hit
below.(Jan 8 2005 4:08 am )

Thank you very much Dave.


Sub testIt2()
Dim rng1 As Range, Rng2 As Range, Rng3 As Range
Set rng1 = ActiveSheet.Range("a1:a12")
Set Rng2 = Workbooks("book4").Sheets("sheet1").Range("b1:b12")
Set Rng3 = ActiveWorkbook.Sheets("sheet3").Range("c1:c12")
MsgBox Evaluate("SUM((" & rng1.Address(external:=True) & "=""f"")"
_
& "*(" & Rng2.Address(external:=True) &
"=""cls"")" _
& "*" & Rng3.Address(external:=True) & ")")
End Sub
(With the sub/end sub lined up! <vbg>)
 
D

Dave Peterson

Thank goodness for google!

Been on my Sumproduct syntax problem for nearly 3 hours till I hit
below.(Jan 8 2005 4:08 am )

Thank you very much Dave.

Sub testIt2()
Dim rng1 As Range, Rng2 As Range, Rng3 As Range
Set rng1 = ActiveSheet.Range("a1:a12")
Set Rng2 = Workbooks("book4").Sheets("sheet1").Range("b1:b12")
Set Rng3 = ActiveWorkbook.Sheets("sheet3").Range("c1:c12")
MsgBox Evaluate("SUM((" & rng1.Address(external:=True) & "=""f"")"
_
& "*(" & Rng2.Address(external:=True) &
"=""cls"")" _
& "*" & Rng3.Address(external:=True) & ")")
End Sub
(With the sub/end sub lined up! <vbg>)
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Compile error - help 2
Compare List A to List B, Return List B Items Not in List A 4
Select range from a varaible 5
I have a rng problem 2
I REQUIRE SOME HELP WITH CODE 5
Creating a total line 4
A query in continuation to the nested bordering - To TOM, JIM and others.... 8
Compile error 10

Top