Macro que sume valores de celdas de columna

09/07/2012 - 22:22 por titopose | Informe spam

Hola amigos:
Quisiera agregar una macro (para un botón que la ejecute) que sume las celdas de la columna de la celda activa, desde la fila 6 hasta la fila inmediatamente arriba de la celda activa (las 5 primeras filas son de títulos).
La celda que será la activa es variable.
Cómo sería el código?
Saludos y muchas gracias.
Tito

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Macro para sumar los valores de las celdas en rango seleccionado

Leer las respuestas

#1 jarmoncada

10/07/2012 - 07:20 | Informe spam

Buenas noches... Posiblemente este código te funcione al pelo, con las instrucciones que pides que se hagan... Espero le sirva!

Sub SumarValores()

Dim fila As Integer
Dim columna As Integer
Dim rango As Range
Dim suma As Long

fila = ActiveCell.Row
columna = ActiveCell.Column

Set rango = Range(Cells(6, columna), Cells(fila - 1, columna))
suma = Application.WorksheetFunction.Sum(rango)

ActiveCell.Value = suma

End Sub

No olvide guardarlo en un libro habilitado para macros...
Mi E-mail: en caso de que necesites ayuda con este problema.

Responder a este mensaje

#2 titopose

10/07/2012 - 20:16 | Informe spam

jarmoncada escribió el 10/07/2012 07:20 :

Buenas noches... Posiblemente este código te funcione al pelo, con las
instrucciones que pides que se hagan... Espero le sirva!

Sub SumarValores()

Dim fila As Integer
Dim columna As Integer
Dim rango As Range
Dim suma As Long

fila = ActiveCell.Row
columna = ActiveCell.Column

Set rango = Range(Cells(6, columna), Cells(fila - 1, columna))
suma = Application.WorksheetFunction.Sum(rango)

ActiveCell.Value = suma

End Sub

No olvide guardarlo en un libro habilitado para macros...
Mi E-mail: en caso de que necesites ayuda con este
problema.

Hola!
Gracias por tu respuesta, funciona bien!
Saludos,
Tito

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida