Bom dia!!
Mais simples que SOMARPRODUTO e sem usar VBA, com esses critérios, hum ai quero ver!!!..pela quantidade de células em calculo, e melhor remover las via colar especial valores!
Não poderia usar algo...
Tente....
Sub Test()
Dim rng As Range
Dim ws As Worksheet
Set ws = Sheets("Folha1")
Set rng = ws.Range("G9000").End(xlUp).Offset(, 7)
With ws.Range("H2:AL" & rng.Row)
.Formula = "=IF(Folha2!$E$2:$E$97=0," & _
"SUMPRODUCT((B2=Folha2!$C$2:$C$324)*(Folha1!H$1=Folha2!$D$2:$D$324)*Folha2!$E$2:$E$324),"""")"
End With
Range("H:AL").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/05/2012 5:20 am