Sumar celdas de colores

Hola Marcelo,

?Has probado el link http://www.cpearson.com/excel/colors.htm que te envie
ayer?

Tambien la web con las instrucciones de como configurar Outlook Express para
recibir los grupos de noticias se ha recuperado:
http://www.microsoft.com/spain/comu...mp;gssnb=1

Desgraciadamente la web de Fernando Arroyo parece que tiene problemas.

Saludos,
KL

"marcelo" wrote in message
news:

Por favor su ayuda no se nada de visual, tengo una lista de valores que
estan
pintados por colores quiero sumar de acuerdo al color, vi el tutorial pero
no
entiendo nada. me ayudan amigos del foro.

Gracias KL, lo intente, copie las intrucciones en el editor de Visual, pero
no corre, realmente no se mucho casi nada de visual, puedes enviarme el cod
directo para copiarlo o como se haria??
Gracias nuevamente

"KL" escribió:

Hola Marcelo,

?Has probado el link http://www.cpearson.com/excel/colors.htm que te envie
ayer?

Tambien la web con las instrucciones de como configurar Outlook Express para
recibir los grupos de noticias se ha recuperado:
http://www.microsoft.com/spain/comu...mp;gssnb=1

Desgraciadamente la web de Fernando Arroyo parece que tiene problemas.

Saludos,
KL

"marcelo" wrote in message
news:
> Por favor su ayuda no se nada de visual, tengo una lista de valores que
> estan
> pintados por colores quiero sumar de acuerdo al color, vi el tutorial pero
> no
> entiendo nada. me ayudan amigos del foro.

Hola Marcelo,

Prueba lo siguiente:
1) haz clic-derecho sobre el nombre de tu hoja en una de las pestañas de la
parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Suponiendo que quieres devolver el indice de color de la celda [A1] pon
en [B1] la siguiente formula:
=IndiceColorCelda(A1)

Ojo - no existe ningun evento en Excel que detecte el cambio de color de
celda o texto dentro de la celda. Por lo tanto es necesario forzar el
recalculo de formulas cada vez que cambie el color.

Saludos,
KL

'Esta funcion ha sido copiada de http://www.cpearson.com/excel/colors.htm
Function IndiceColorCelda(Rango As Range, Optional _
ColorTexto As Boolean = False) As Integer
' Esta funcion devuelve el indice del color de trama
' de una celda, o, si ColorTexto es Verdadero,
' el indice del color del texto en la celda.
Application.Volatile True
If ColorTexto = True Then
IndiceColorCelda = Rango(1, 1).Font.ColorIndex
Else
IndiceColorCelda = Rango(1, 1).Interior.ColorIndex
End If
End Function

Gracias KL, ya funciono y ya entendi los demas codigos, eres un master en esto.
Oye respecto a la otra consulta, como puedo hacer las comparaciones entre
celdas con un texto intermedio especifico??, es posible??
"KL" escribió:

Hola Marcelo,

Prueba lo siguiente:
1) haz clic-derecho sobre el nombre de tu hoja en una de las pestañas de la
parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Suponiendo que quieres devolver el indice de color de la celda [A1] pon
en [B1] la siguiente formula:
=IndiceColorCelda(A1)

Ojo - no existe ningun evento en Excel que detecte el cambio de color de
celda o texto dentro de la celda. Por lo tanto es necesario forzar el
recalculo de formulas cada vez que cambie el color.

Saludos,
KL

'Esta funcion ha sido copiada de http://www.cpearson.com/excel/colors.htm
Function IndiceColorCelda(Rango As Range, Optional _
ColorTexto As Boolean = False) As Integer
' Esta funcion devuelve el indice del color de trama
' de una celda, o, si ColorTexto es Verdadero,
' el indice del color del texto en la celda.
Application.Volatile True
If ColorTexto = True Then
IndiceColorCelda = Rango(1, 1).Font.ColorIndex
Else
IndiceColorCelda = Rango(1, 1).Interior.ColorIndex
End If
End Function

Hola Marcelo,

...como puedo hacer las comparaciones entre
celdas con un texto intermedio especifico??, es posible??

Basandome en las respuestas que diste a mis preguntas respecto a la otra
consulta, yo diria que la tarea roza lo imposible ya que no hay criterio
claro (o al menos yo no lo veo) para poder comparar el contenido de las
celdas (desgraciada- o afortunadamente Excel no puede hacer juicios
basandose en la intuicion). Y si no es eso, entonces habria que escanear
todas las cadenas (que por lo que veo son bien largas) en todas las celdas
buscando todas las posibles combinaciones de caracteres de 3, 4, 5, etc.
seguidos y luego compararlos todos entre si. Creo que no es necesario
recurrir a la aritmetica para entender la cantidad de operaciones que se
tendran efectuar. Comentas mas detalles?

Saludos,
KL