Sumar Rango

Hola Oscar,

Cómo simplifico la siguiente fórmula?
Cells(10, 1) = Cells(1, 1) + Cells(2, 1) + Cells(3, 1) + Cells(4, 1) +
Cells(5, 1) + Cells(6, 1) + Cells(7, 1) + Cells(8, 1) + Cells(9, 1)

Por ejemplo asi:

[A10]=Application.Sum([A1:A9])

Yo le di nombre a 4 celdas, pero luego quise emplear esos nombres en VBA
para hacer la operación de suma y nada que funcionó.
CostoTotal = Ingreso1 + Ingreso2 + Ingreso3
Las celdas correspondientes son: Cells(10, 2) = Cells(1, 2) + Cells(2, 2) +
Cells(3, 2)

Por ejemplo asi:

CostoTotal = Application.Sum(Range("Ingreso1,Ingreso2,Ingreso3"))

o bien

CostoTotal = Range("Ingreso1") + Range("Ingreso2") + Range("Ingreso3")

o bien

CostoTotal = Evaluate("=Ingreso1+Ingreso2+Ingreso3")

o bien

CostoTotal = Evaluate("=Sum(Ingreso1,Ingreso2,Ingreso3)")

o bien

CostoTotal = [Ingreso1+Ingreso2+Ingreso3]

o bien

CostoTotal = [sum(Ingreso1,Ingreso2,Ingreso3)]

o bien

With ThisWorkbook
CostoTotal = Evaluate(.Names("Ingreso1").Value) + _
Evaluate(.Names("Ingreso2").Value) + _
Evaluate(.Names("Ingreso3").Value)
End With

etc.

Nota: si los nombres definidos no pertenecen a la hoja activa o [en caso de tener el macro en el modulo de una hoja] a la hoja desde cuyo modulo se ejecuta el codigo, obviamente habra que indicar la hoja, p.ej:

CostoTotal = Application.Sum(Sheets("Hoja1").Range("Ingreso1,Ingreso2,Ingreso3"))

o bien

With Sheets("Hoja1")
CostoTotal = .Range("Ingreso1") + .Range("Ingreso2") + .Range("Ingreso3")
End With

o bien

CostoTotal = Evaluate("=Hoja1!Ingreso1+Hoja1!Ingreso2+Hoja1!Ingreso3")

o bien

CostoTotal = Evaluate("=Sum(Hoja1!Ingreso1,Hoja1!Ingreso2,Hoja1!Ingreso3)")

o bien

CostoTotal = [Hoja1!Ingreso1+Hoja1!Ingreso2+Hoja1!Ingreso3]

o bien

CostoTotal = [sum(Hoja1!Ingreso1,Hoja1!Ingreso2,Hoja1!Ingreso3)]

etc.

Saludos,
KL

Gracias KL...Perfecto!!

"KL" escribio en el mensaje
news:%23yL9Z$
Hola Oscar,

Cómo simplifico la siguiente fórmula?
Cells(10, 1) = Cells(1, 1) + Cells(2, 1) + Cells(3, 1) + Cells(4, 1) +
Cells(5, 1) + Cells(6, 1) + Cells(7, 1) + Cells(8, 1) + Cells(9, 1)

Por ejemplo asi:

[A10]=Application.Sum([A1:A9])

Yo le di nombre a 4 celdas, pero luego quise emplear esos nombres en VBA
para hacer la operación de suma y nada que funcionó.
CostoTotal = Ingreso1 + Ingreso2 + Ingreso3
Las celdas correspondientes son: Cells(10, 2) = Cells(1, 2) + Cells(2, 2)
+
Cells(3, 2)

Por ejemplo asi:

CostoTotal = Application.Sum(Range("Ingreso1,Ingreso2,Ingreso3"))

o bien

CostoTotal = Range("Ingreso1") + Range("Ingreso2") + Range("Ingreso3")

o bien

CostoTotal = Evaluate("=Ingreso1+Ingreso2+Ingreso3")

o bien

CostoTotal = Evaluate("=Sum(Ingreso1,Ingreso2,Ingreso3)")

o bien

CostoTotal = [Ingreso1+Ingreso2+Ingreso3]

o bien

CostoTotal = [sum(Ingreso1,Ingreso2,Ingreso3)]

o bien

With ThisWorkbook
CostoTotal = Evaluate(.Names("Ingreso1").Value) + _
Evaluate(.Names("Ingreso2").Value) + _
Evaluate(.Names("Ingreso3").Value)
End With

etc.

Nota: si los nombres definidos no pertenecen a la hoja activa o [en caso de
tener el macro en el modulo de una hoja] a la hoja desde cuyo modulo se
ejecuta el codigo, obviamente habra que indicar la hoja, p.ej:

CostoTotal =
Application.Sum(Sheets("Hoja1").Range("Ingreso1,Ingreso2,Ingreso3"))

o bien

With Sheets("Hoja1")
CostoTotal = .Range("Ingreso1") + .Range("Ingreso2") +
.Range("Ingreso3")
End With

o bien

CostoTotal = Evaluate("=Hoja1!Ingreso1+Hoja1!Ingreso2+Hoja1!Ingreso3")

o bien

CostoTotal = Evaluate("=Sum(Hoja1!Ingreso1,Hoja1!Ingreso2,Hoja1!Ingreso3)")

o bien

CostoTotal = [Hoja1!Ingreso1+Hoja1!Ingreso2+Hoja1!Ingreso3]

o bien

CostoTotal = [sum(Hoja1!Ingreso1,Hoja1!Ingreso2,Hoja1!Ingreso3)]

etc.

Saludos,
KL