<!-- 21 -->
<p>
  Esta función a partir de un criterio y un color de celda suma los valores de un rango, los parámetros que requiere
  son 3:
</p>
<ol class="lst">
  <li><b>color_de_referencia</b>: celda que contiene el color de relleno de referencia.</li>
  <li><b>concepto_de_referencia</b>: celda que contiene el criterio a ser sumado.</li>
  <li><b>rango_de_colores_y_conceptos </b>: Solo el rango de conceptos y colores.</li>
  <li><b>columnas_de_desplazamiento </b>: es un valor númerico entero, indica el número de columnas a la derecha del
    rango_de_colores_y_conceptos donde estan los valores a ser sumados.</li>
</ol>
<p>
  Ejemplo, en el rango A2:A41 tengo diferentes conceptos con diferentes colores, y en el rango B2:B41 tengo los
  valores
  númericos a ser sumados, en la celda D1 tengo el criterio "Bolígrafo" con fondo verde, quiero saber cuanto es la
  sumatorioa considerando ese concepto y ese color de relleno, entonces en la celda E1 hago el llamado de la función
  donde:
</p>
<ol class="lst">
  <li><b>color_de_referencia</b>: D1</li>
  <li><b>concepto_de_referencia</b>: D1</li>
  <li><b>rango_de_colores_y_conceptos </b>: A2:A41</li>
  <li><b>columnas_de_desplazamiento </b>: 1</li>
</ol>
<p><b>=sumarPorColorYConcepto(D1,D1,$A$2:$A$41,1)</b></p>

<div class="img zoomable">
  <img src="/static/source_imgs/excel/pst_7/1.png" alt="" style="height: 350px; width: auto;">
</div>

<pre><i class="bi bi-copy"> Copiar código</i>
<code class="code_lightMode">
Function sumarPorColorYConcepto(color_de_referencia, concepto_de_referencia, rango_de_colores_y_conceptos As Range, columnas_de_desplazamiento As Integer) As Double
	'sumarPorColorYConcepto(Ctrl + Shift + A)-> para obtener en mini tooltip
	Application.Volatile
	Dim conteo As Double
	Dim obj As Object
	conteo = 0
	For Each obj In rango_de_colores_y_conceptos
	  If obj.Interior.Color = color_de_referencia.Interior.Color And obj.Value = concepto_de_referencia.Value Then
		conteo = conteo + obj.Offset(0, columnas_de_desplazamiento).Value
	  End If
	Next obj
	sumarPorColorYConcepto = conteo
End Function
</code></pre>