Sumar valor de celdas por color de la fuente.

[dcbsant]

Hola,

Quiero hacer sumas por color de la fuente de las celdas.

He conseguido que funcione con la siguiente MACRO:

Function Sumarcolorletra(Celdacolor As Range, Rangosuma As Range) As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[dcbsant]

Otra cosa que he conseguido es que si cambio

=+Sumarcolorletra(D1;B1:B8)
por
=+Sumarcolorletra(D1;B1:B8)+AHORA()*0

Al pulsar F9, se recalcula.

El tema sería que lo hiciese solo....

 

[Macro Antonio]

Otra cosa que he conseguido es que si cambio

=+Sumarcolorletra(D1;B1:B8)
por
=+Sumarcolorletra(D1;B1:B8)+AHORA()*0

Al pulsar F9, se recalcula.

El...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[dcbsant]

No hay ningún evento que detecte el cambio de formato de las celdas.

Luego esta es la única solución (AHORA()*0 + F9), verdad?

 

[Macro Antonio]

Luego esta es la única solución (AHORA()*0 + F9), verdad?

Me temo que que es lo máximo que vas a conseguir.

 

[dcbsant]

Me temo que que es lo máximo que vas a conseguir.

Muchas Gracias por la respuesta.

 

[DiegoPC]

Hay otra opción, pero no es lo "ideal". Lo que hace es que cada vez que cambies de selección recalcule las fórmulas de toda la hoja. Ese método ralentiza todo tu Excel, especialmente si tienes...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[dcbsant]

Hay otra opción, pero no es lo "ideal". Lo que hace es que cada vez que cambies de selección recalcule las fórmulas de toda la hoja. Ese método...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Para este excel no puedo aplicarlos. Es muy grande, con muchas hojas y fórmulas, pero me lo apunto para otros libros más pequeños.

Muchas gracias...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[DiegoPC]

Puedes intentar recalcular solo un rango y no toda la hoja.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1:B10").Calculate
End Sub

Allí tendrías que poner el rango...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

hola, a todos !

Si cambio el color de una celda en uso (una celda que está en verde, la pongo en rojo), no me lo calcula automáticamente...
Como...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí