Sumar.si

Ok tercera opción que me ha parecido mas facil. Gracias.
"KL" escribió en el mensaje
news:%
Hola chicos,

Op1: Si las hojas tienen nombres estandarizados del tipo Hoja1, Hoja2, etc y
las hojas no son muchas.

para los positivos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'Hoja"&{1;2;3;4;5;6;7;8;9;10}&"'!C1");">0"
))

para los negativos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'Hoja"&{1;2;3;4;5;6;7;8;9;10}&"'!C1");"<0"
))

Op2: Si las hojas tienen nombres estandarizados del tipo Hoja1, Hoja2, etc y
las hojas son muchas.

para los positivos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'Hoja"&FILA(INDIRECTO("1:100"))&"'!C1");">
0"))

para los negativos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'Hoja"&FILA(INDIRECTO("1:100"))&"'!C1");"<
0"))

Op3: Si las hojas tienen nombres NO-estandarizados y las hojas no son
muchas.

para los positivos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'"&{"Ene";"Feb";"Mar";"Abr";"Jun";"Jul";"A
go";"Sep";"Oct";"Nov";"Dec"}&"'!C1");">0"))

para los negativos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'"&{"Ene";"Feb";"Mar";"Abr";"Jun";"Jul";"A
go";"Sep";"Oct";"Nov";"Dec"}&"'!C1");"<0"))

Como version de esta misma opcion, se podria crear una lista de nombres de
las hojas a sumar en un rango y usarlo de la siguiente manera:

para los positivos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'"&A1:A12&"'!C1");">0"))

para los negativos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'"&A1:A12&"'!C1");"<0"))

Op4: Usando las formulas y un nombre definido con "macrofunciones" (XLM):

a. creamos un nombre definido:
- menu Insertar>Nombre>Definir...
- nombre: Hojas
- se refiere a: =INDICAR.LIBRO(1)&T(0*AHORA())
- Anadir
- Aceptar

b. en una celda introducir una formula como la siguiente:

para los positivos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'"&Hojas&"'!C1");">0"))

para los negativos:
=SUMAPRODUCTO(SUMAR.SI(INDIRECTO("'"&Hojas&"'!C1");"<0"))

Notas Importantes acerca de las macrofunciones:

1) al copiar formulas que contienen nombres definidos con macrofunciones de
una hoja a otra (y solo en este caso) se produce el cierre de Excel con la
consiguiente perdida de los datos no guardados. Por tanto en vez de copiar
dichas formulas entre hojas, habria que volver a escribirlas o copiar la
formula como texto en el modo de edicion de celda y luego pegarla en la
celda de otra hoja.

2) las macrofunciones al igual que las funciones del paquete de Herramienta
para Analisis de Microsoft no se traducen automaticamente entre las
versiones de Excel en diferentes idiomas y deben corregirse manualmente (o
mediante el complemento TranslateIt de Jurgen Volkerink:
http://members.chello.nl/keepitcool/addins.html ).


Saludos,
KL


"luka" <luka79arrobatelefonica.net> wrote in message
news:%

Hola Jose Antonio,

mira a ver si te sirve esto

=> Sub sumarceldas()
celda = InputBox("Pon la celda que quieres sumar", "Sumar Celdas")

Dim Hoja As Worksheet, i As Long
For Each Hoja In ThisWorkbook.Worksheets
valor_celda = Hoja.Range(celda).Value
If valor_celda < 0 Then suma_negativa = suma_negativa + valor_celda
If valor_celda > 0 Then suma_positiva = suma_positiva + valor_celda

Next Hoja

MsgBox ("negativos " & suma_negativa)
MsgBox ("positivos " & suma_positiva)

End Sub
==> Ya dirás

Saludos
Javier B.

Jose Antonio escribió:

Eso es correcto pero mi necesidad es hacerlo con la misma celda de
diferentes hojas de calculo.


"Pedro Ruiz A." escribió en el mensaje
news:

Hola, prueba esto: para negativos:

=SUMAR.SI(A1:A7,"<0")

Para positivos:
=SUMAR.SI(A1:A7,">0")

saludos

Pedro


"Jose Antonio" escribió en el mensaje
news:%

Hola a todos. Os planteo un caso para ver si podeis ayudarme. Necesito
sumar por un lado todos lo numeros negativos,es decir menores de cero,y
por otro todos los numeros positivos, de la misma celda en varias hojas
de cáculo. Supongo que se podrá hacer, pero como?


Gracias.