Sumar Columnas

Genera una macro con la operacion que quieres y después la adaptas.


"Compumakro" escribió en el mensaje
news:%

Amigos
Cual es la sintaxis en vba para sumar un rango de celdas en una columna.?
La situacion es para el control de Banco.
C D
E
Ingreso (C3:C200) Egreso (D3:D200) (Saldo

solo

en la celda "E1Â01 - D201")

Gracias y Saludos

Oscar
Barranquilla

Gracias Daniel y Plisplas, pero no es lo que busco.
Es algo que se parezca al siguiente absurdo:
Cells(1, 4) = Cells(1, 2):(200, 2) As Range - Cells((1, 3):(200, 3) As
Range

ó
Cells(201, 2) = Cells(1, 2) : Cells(200, 2) As Range
Cells(201, 3) = Cells(1, 3) : Cells(200, 3) As Range
Cells(1, 4) = Cells(201, 2) - Cells(200, 3)

Gracias
Oscar
Barranquilla



"Daniel Sánchez López" escribió en el mensaje
news:

Hola Compumakro

Sub Saldo()
ActiveCell.FormulaR1C1 = "=(R[200]C[-2])-(R[200]C[-1])"
Range("E1").Select
End Sub

esto lo realiza con la grabadora de macros espero y te funcione

Un saludo
Daniel.

Hola Compumakro

Sub Saldo()
ActiveCell.FormulaR1C1 = "=(R[200]C[-2])-(R[200]C[-1])"
Range("E1").Select
End Sub

esto lo realiza con la grabadora de macros espero y te funcione

Un saludo
Daniel.

Prueba con la siguiente macro:

Sub Sumar_Rangos()
'Macro para sumar rangos.
'Esta suma la columna C
'Si se quiere sumar un rango concreto, sustituir la primera C _
por la celda inicio del rango, y la 2ª C por la celda final.

ActiveCell = WorksheetFunction.Sum(ActiveSheet.Range("C:C"))
End Sub

Nota: debes sustituir ActiveCell por la celda donde quieres situar el
resultado.

Saludos
Juan Carlos Perez
Asturias-España

"Compumakro" escribió en el mensaje
news:#

Gracias Daniel y Plisplas, pero no es lo que busco.
Es algo que se parezca al siguiente absurdo:
Cells(1, 4) = Cells(1, 2):(200, 2) As Range - Cells((1, 3):(200, 3) As
Range

ó
Cells(201, 2) = Cells(1, 2) : Cells(200, 2) As Range
Cells(201, 3) = Cells(1, 3) : Cells(200, 3) As Range
Cells(1, 4) = Cells(201, 2) - Cells(200, 3)

Gracias
Oscar
Barranquilla



"Daniel Sánchez López" escribió en el mensaje
news:
> Hola Compumakro
>
> Sub Saldo()
> ActiveCell.FormulaR1C1 = "=(R[200]C[-2])-(R[200]C[-1])"
> Range("E1").Select
> End Sub
>
> esto lo realiza con la grabadora de macros espero y te funcione
>
> Un saludo
> Daniel.
>
>