En este grupo En todos

Foro de Excel



sumar y contar pesos segun color de celda

carlos
Pontevedra, España
Escrito por Carlos Garcia
el 03/11/2006

Hola soy oficial de la marina mercante y me he encontrado con el siguiente problema. Tengo varias celdas con cantidades que son pesos de contenedores, puedo hallar el peso total con facilidad. El problema es: si esos contenedores van para distintos puertos por ejemplo 6, si coloreo las celdas con un color para cada puerto sería posible que me sumase los pesos y las unidades para cada puerto. Y que al variar de color alguna celda automaticamente varie el peso y la cantidad para el puerto asignado .

Sorenkierkegaard
Finlandia del Sur - ...
Escrito por Sorenkierkegaard
el 04/11/2006

Carlos, te pongo el código para sumar por color, modifícalo a tus necesidades, NO es UDF, pero también funciona:

Public Sub Sumarporcolor()
If Range("A1") <> 1 And ActiveCell = Range("A1") Then
Range("A1"). Interior. ColorIndex = xlNone
End If
If Range("A1") = 1 And Range("A1"). Interior. ColorIndex = xlNone Then
Range("A1"). Interior. ColorIndex = 37
End If
t = 0
For a = 2 To 50
If Range("a" & a). Interior. ColorIndex = 37 Then t = t + Range("a" & a)
Next a
Range("A1") = t
End Sub


Carlos Garcia
Pontevedra, España
Escrito por Carlos Garcia
el 04/11/2006

Hola entiendo algo de eso, me parece basic que habia aprendido hace años para una calculadora progamable.

Pero no se como se adapta a excel. Ni si se refiere a cada celda. Creo que no son formulas para escribier en cada celda.

Sorenkierkegaard
Finlandia del Sur - ...
Escrito por Sorenkierkegaard
el 04/11/2006

No, tienes que copiar ese código a un módulo.

Alt+F11, luego en el menú "Insertar", seleccionas módulo y pegas el código

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 04/11/2006
Otra solucion, sin VBA, puede ser agregar una columna para el puerto
Carlos Martínez Zaragoza
Maestria en finanzas empresariales uni...
Escrito por Carlos Martínez Zaragoza
el 06/11/2006

Ok,

Carlos, podrias tambien hacer una columna donde pongas digamos un numero a cada puerto a los contenedores, digas 1, 2... Hasta 6; luego aplicamos esta funcion

=sumar. Si(puerto=1, "pesos de contenedor")

=contar. Si(puerto=1, " unidades de contenedor")

Puerto : son los numero que asignes a cada puerto de tu lista.

Pesos de contenedor:  son las cedlas  donde tienes los pesos de cada contenedor por puerto .

Unidades de contenedor: son las celdas donde tienes los numero de puertos donde enviaras los contenedores.

Carlos Garcia
Pontevedra, España
Escrito por Carlos Garcia
el 06/11/2006

Hola Carlos Martinez

El problema es que hay una sola celda para cada contenedor, a ella es a la que quiero que al variar el color con la herramienta de relleno me sume los pesos en el puerto que corresponda a ese color y cuente la unidades con la función contara.

A ver si podeis darme una solución práctica, creo que Sorenkierkegaard la tiene pero al no saber yo Visual Basic, si no es con un ejemplo claro no la sé aplicar.

Gracias por vuestra ayuda

Escrito por Ariel
el 16/05/2007

Eh Hola Gente Como Va...!

Tengo Un Problemita Con El Exel...!

Antes Podia Sumar Los Pesos  Con El Autosuma

Pero Cuando me Formatearon La Pc

No Puedo Sumar...!

Por Favor necesito Lo Mas Antes Urgente Para Poder hacer

Presupuestos