Conforme solicitado em MP, segue uma alteração da Função, deixando a coluna como variavel, copie e cole no modulo da planilha a ser utilizado.
a sintaxe para utilização é SomaPeso2(Range;CelulacorReferencia;numero da coluna a ser somada)
no seu exemplo ficara: =SomaPeso2($A$7:$BE$61;AD68;58) ou =SomaPeso2($A$7:$BE$61;AD68;COL(BF1))
'Conta a cor interna de uma range de celulas
Function SomaPeso2(qRange As Range, ByVal qRef As Range, qCol As Integer) As Double
Dim c As Range, Xcolor&, Xvalue#, Xrow&
'Xcolor = cor de referencia para a somatoria
Xcolor = qRef.Interior.ColorIndex
'qrange range cujas celulas serão somadas
For Each cel In qRange
If cel.Interior.ColorIndex = Xcolor And cel.Row <> Xrow Then
Xrow = cel.Row
Xvalue = Xvalue + Cells(Xrow, qCol).Value
End If
Next
SomaPeso = Xvalue
End Function
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/08/2013 6:34 am