Verificacion color fuente en ceolda Excel 2003

hola, Rafael !

Deseo... Sumar una columna o fila, de varias celdas
pero que si una de ellas esta escrita en color rojo, la suma de esa celda no se contabilice.
Ejemplo: a1= 2
a2= 2
a3= 5 (escrito en rojo)
a4= 3
Total a5= 12 Fomula: =suma (a1:a4)... que apareciese 7

si el cambio de color [de fuente ?] sucede por voluntad o a discrecion del usuario -?-
necesitaras definir una funcion personalizada [por codigos vba]...
o aplicar nombres en celdas 'auxiliares' con macro-funciones de excel4
[pero]... toma en cuenta que no existe un evento que 'detecte' un -simple- cambio de formatos en las celdas

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Hola Díaz:
Prueba, estudia y aplica la siguiente funcion a ver si te vale...

Function SUMAR_FUENTE(Celda_de_Muestra As Range, Rango_a_sumar As Range) As
Double
Dim rngCelda As Range
For Each rngCelda In Rango_a_sumar
If rngCelda.Font.ColorIndex = Celda_de_Muestra.Cells(1,
1).Font.ColorIndex Then SUMAR_FUENTE = SUMAR_FUENTE + rngCelda
Next rngCelda
Set rngCelda = Nothing
End Function

"Lo que no compartas ... morirá contigo"
Gracias a todos por vuestras enseñanzas...
Hasta otra.

"Diaz Dalmau" wrote:

Hola a todos!

Deseo hacer lo siguiente con el Office 2003:

Sumar una columna o fila, de varias celdas, pero que si una de ellas está
escrita en color rojo, la suma de esa celda no se contabilice.


Ejemplo: a1= 2
a2= 2
a3= 5 ( escrito en rojo)
a4= 3
Total a5= 12 Fómula: =suma (a1:a4) daría 9, yo desearía que
apareciese 7

Gracias anticipadas: Rafael

Hola a todos

Gracias a Héctor Miguel y a Albymar

El uso que deseo dar a estas filas/columnas es el siguiente:

Ejemplo: Un listado de seguimiento de trenes de mercancias, a primera hora
del día tenemos varios que circulan, pero que por un motivo u otro, uno o
varios de ellos no llegarán a su destino, necesito saber en cada momento la
cantidad de vgs que se recibiran en un punto, por lo a los que sepamos que
no llegan, les cambiariamos manualmente el color de la fuente para
diferenciarlos de los que circulan, pero es necesario que la columna que
contabiliza los vgs no sume los datos de esa fila.

Tren Vgs tipo1 tipo2, etc

44111 10 2 3
44206 25 12 10 (modificamos a rojo toda la fila)
43460 41 41

Total 76 55 13

Quisiera que el total fuese:

Total 51 43 3

Gracias por todos y perdón por el "rollo"

Saludos: Rafael

"Héctor Miguel" escribió en el mensaje
news:%23glTkZx$

hola, Rafael !

Deseo... Sumar una columna o fila, de varias celdas
pero que si una de ellas esta escrita en color rojo, la suma de esa celda
no se contabilice.
Ejemplo: a1= 2
a2= 2
a3= 5 (escrito en rojo)
a4= 3
Total a5= 12 Fomula: =suma (a1:a4)... que apareciese 7

si el cambio de color [de fuente ?] sucede por voluntad o a discrecion del
usuario -?-
necesitaras definir una funcion personalizada [por codigos vba]...
o aplicar nombres en celdas 'auxiliares' con macro-funciones de excel4
[pero]... toma en cuenta que no existe un evento que 'detecte' un -simple-
cambio de formatos en las celdas

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Hola Díaz,
Tal y como te indicó HM, una de sus opciones era que necesitas crear una
función personalizada, y la tienes en mi anterior post

La has aplicado?
Si tienes mas dudas o necesitas mas explicación (?) comentas..
Saludos

"Diaz Dalmau" escribió:

Hola a todos

Gracias a Héctor Miguel y a Albymar

El uso que deseo dar a estas filas/columnas es el siguiente:

Ejemplo: Un listado de seguimiento de trenes de mercancias, a primera hora
del día tenemos varios que circulan, pero que por un motivo u otro, uno o
varios de ellos no llegarán a su destino, necesito saber en cada momento la
cantidad de vgs que se recibiran en un punto, por lo a los que sepamos que
no llegan, les cambiariamos manualmente el color de la fuente para
diferenciarlos de los que circulan, pero es necesario que la columna que
contabiliza los vgs no sume los datos de esa fila.

Tren Vgs tipo1 tipo2, etc

44111 10 2 3
44206 25 12 10 (modificamos a rojo toda la fila)
43460 41 41

Total 76 55 13

Quisiera que el total fuese:

Total 51 43 3

Gracias por todos y perdón por el "rollo"

Saludos: Rafael

"Héctor Miguel" escribió en el mensaje
news:%23glTkZx$
> hola, Rafael !
>
>> Deseo... Sumar una columna o fila, de varias celdas
>> pero que si una de ellas esta escrita en color rojo, la suma de esa celda
>> no se contabilice.
>> Ejemplo: a1= 2
>> a2= 2
>> a3= 5 (escrito en rojo)
>> a4= 3
>> Total a5= 12 Fomula: =suma (a1:a4)... que apareciese 7
>
> si el cambio de color [de fuente ?] sucede por voluntad o a discrecion del
> usuario -?-
> necesitaras definir una funcion personalizada [por codigos vba]...
> o aplicar nombres en celdas 'auxiliares' con macro-funciones de excel4
> [pero]... toma en cuenta que no existe un evento que 'detecte' un -simple-
> cambio de formatos en las celdas
>
> comentas [si hubiera] algun detalle adicional ?
> saludos,
> hector.
>
>

Yo usaria una columna auxiliar, donde tendría por defecto todo a 0 (cero) y
si quiero marcar una fila la pongo a 1 (uno). Mediante formato condicional
esa fila se pondría en rojo y la suma final estaría condicionada al valor de
esa columna.
Con esto (una vez diseñada la hoja) sería más fácil escribir un 1, que
cambiar el color y el resto se realiza automáticamente, con el añadido de
que no necesitas código VBA.

Un saludo desde Tenerife.
****************************
"Albymar" escribió en el mensaje
news:

Hola Díaz,
Tal y como te indicó HM, una de sus opciones era que necesitas crear una
función personalizada, y la tienes en mi anterior post

La has aplicado?
Si tienes mas dudas o necesitas mas explicación (?) comentas..
Saludos

"Diaz Dalmau" escribió:

Hola a todos

Gracias a Héctor Miguel y a Albymar

El uso que deseo dar a estas filas/columnas es el siguiente:

Ejemplo: Un listado de seguimiento de trenes de mercancias, a primera
hora
del día tenemos varios que circulan, pero que por un motivo u otro, uno o
varios de ellos no llegarán a su destino, necesito saber en cada momento
la
cantidad de vgs que se recibiran en un punto, por lo a los que sepamos
que
no llegan, les cambiariamos manualmente el color de la fuente para
diferenciarlos de los que circulan, pero es necesario que la columna que
contabiliza los vgs no sume los datos de esa fila.

Tren Vgs tipo1 tipo2, etc

44111 10 2 3
44206 25 12 10 (modificamos a rojo toda la fila)
43460 41 41

Total 76 55 13

Quisiera que el total fuese:

Total 51 43 3

Gracias por todos y perdón por el "rollo"

Saludos: Rafael

"Héctor Miguel" escribió en el mensaje
news:%23glTkZx$
> hola, Rafael !
>
>> Deseo... Sumar una columna o fila, de varias celdas
>> pero que si una de ellas esta escrita en color rojo, la suma de esa
>> celda
>> no se contabilice.
>> Ejemplo: a1= 2
>> a2= 2
>> a3= 5 (escrito en rojo)
>> a4= 3
>> Total a5= 12 Fomula: =suma (a1:a4)... que apareciese 7
>
> si el cambio de color [de fuente ?] sucede por voluntad o a discrecion
> del
> usuario -?-
> necesitaras definir una funcion personalizada [por codigos vba]...
> o aplicar nombres en celdas 'auxiliares' con macro-funciones de excel4
> [pero]... toma en cuenta que no existe un evento que 'detecte'
> un -simple-
> cambio de formatos en las celdas
>
> comentas [si hubiera] algun detalle adicional ?
> saludos,
> hector.
>
>