![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
05/02/2010, 14:03
|
![Avatar de mrocf](http://static.forosdelweb.com/customavatars/avatar174421_2.gif) | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
Ayuda formula de excel Hola! Andrea.
Vamos a aprovechar el oportuno comentario de Abraham para "empezar de nuevo"... Entonces:
a) Desde tu libro Excel presiona simultáneamente las dos teclas <Alt> <F8>
b) En Nombre de la macro escribe Prueba y selecciona Crear.
c) Te aparecerá una ventana con lo siguiente: Código PHP: Sub Prueba()
End Sub
Esas dos líneas las reemplazarás TOTALMENTE por este otro código: Código PHP: Function PromedioColor(rng_sum As Range, cld As Range) As Double
Dim C As Range, ii As Integer
Application.Volatile
For Each C In rng_sum
If IsNumeric(C) And C.Interior.ColorIndex = cld.Interior.ColorIndex Then
ii = ii + 1
PromedioColor = PromedioColor + C
End If
Next C
If ii > 0 Then PromedioColor = PromedioColor / ii
End Function
d) Cierra todas las ventanas del ambiente Visual Basic en el que te encuentras y retorna al Excel.
e) Incorpora una fórmula como la siguiente: = PromedioColor(A2:A50; A2)
en donde:
A2:A50 : es el rango en el que deseas sumar
A2 : es una celda (cualquiera) que contiene el color que deseas sumar
Para tu necesidad puntual, como "A2" selecciona una celda que no tiene relleno.
Espero te sea de utilidad.
Saludos, Cacho. ![Afirmando](http://static.forosdelweb.com/fdwtheme/images/smilies/afirmar.gif) |