Suma columnas no contiguas

[laura murillo]

Buenos días, tengo un problema, tengo una macro que me permite generar en una tabla automática la suma total de días según color y nombre, ahora necesito sumar pero no el total de días, sino algunos día, dentro de la macro esta seleccionado como range la selección de la suma de los valores y no he encontrado como o que operador lógico colocar para seleccionar algunas columnas o días. Gracias.

Libro1.xls

[Armando Montes]

Hola Laura, esta funcion de OZ lo hace:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

    Dim rCell As Range

    Dim lCol As Long

    Dim vResult


''''''''''''''''''''''''''''''''''''''

'Written by Ozgrid Business Applications

'www.ozgrid.com


'Sums or counts cells based on a specified fill color.

'''''''''''''''''''''''''''''''''''''''


    lCol = rColor.Interior.ColorIndex


    If SUM = True Then

        For Each rCell In rRange

            If rCell.Interior.ColorIndex = lCol Then

                vResult = WorksheetFunction.SUM(rCell, vResult)

            End If

        Next rCell

    Else

        For Each rCell In rRange

            If rCell.Interior.ColorIndex = lCol Then

                vResult = 1 + vResult

            End If

        Next rCell

    End If


  ColorFunction = vResult

End Function[/CODE]

[laura murillo]

Agregue eso en la macro, pero en las celdas de excel he estado ingresando la formula Obtiene_Datos(A3:E8;K12) siendo Obtiene_Datos(seleccion de datos;color), me puedes decir que cambio en la fórmula? porque esa fórmula tiene que entender lo de las comillas en su función. Me sigue quedando Obtiene_Datos(selecc;selecc;color) y no creo que eso que agregue en VB me este ayudando, pensé que era modificar o cambiar algo en Range por otro operador en la siguiente función; Function Obtiene_Datos(ByVal rTabla As Range, ByVal rColor As Range) As Variant.

Espero puedas revisar mi archivo adjunto.

[Armando Montes]

=ColorFunction(a8,a8:d8,0)

=ColorFunction(a8,a8:d8,1)[/CODE]

Es una UDF independiente de lo que tengas, puede sumar y contar, segun el ultimo argumento: 0 u 1

[laura murillo]

No es claro, sin embargo muchas gracias por tu ayuda Armando.

Espero que alguien me pueda ayudar con la modificación del vb.

[Armando Montes]

Solo debes aplicar la UDF como aplicas cualquier formula, subo tu ejemplo con la UDF incoprporada y aplicada a ver asi resulta comprensible:

Libro1 (2).xls

[laura murillo]

Ahh.. gracias entendí lo que quiso decir con la función COLOR, pero sigo esperando que alguien me ayude a modificar la macro(VB) ya que necesito que se automático la generación del nombre y la suma de los días

[Armando Montes]

No me queda claro, en tu ejemplo hay 2 UDFs y te di otra mas.

Las UDFs parecen estar introducidas manualmente.

Tu UDF o Funcion llamada Sumarcolor hace casi lo mismo que ColorFunction.

Por automatico entiendo que no las introduces manualmente, es asi?

Puedes ampliar que es lo que necesitas y como quieres hacerlo?

Las UDFs estan escritas en VBA, VB es otra cosa.

[laura murillo]

Hola, correcto, manualmente no ingreso nada excepto K4:L4 y K12:L12 y la formula Obtienedatos entre K5:L10 y K13:L18 que es automático(me facilita ya que mensualmente cambio la información de los días) con la VBA.

La formula Obtienedatos toma rangos o inclusive muchas otras formulas como Sumarcolor o ColorFunction etc.. me piden que tome un rango(no se como se toman columnas no contiguas dentro de estas formulas :/) .En este caso la información que necesito es todos los días según el nombre y color (es decir todo el cuadro A3:E8), y que tome ahora desde el 2do día hasta el último día, el lío que tengo en este momento con la formula Obtiene_Datos(seleccion de datos;color) es que la selección de datos se divide ahora en dos partes o columnas no contiguas, la columna de nombres (A3:A8) y las columnas desde el 2do día hasta el 4to(C3:E8).

Muchas gracias por tu disposición y a espera de tu comentario.