Recorrer columnas con una macro

Quisiera hacer una macro que recorra una columna, (sé la cantidad de filas que tiene), vaya sumando el importe que hay en cada fila y que me totalice al final de la columna en una nueva fila.
Puede que haya filas que estén vacías.
¿Podrías ayudarme con esto?.
Claudia.-
[email protected]

1 respuesta

Respuesta
1
La rutina, que colocarás en el Editor, insertando un módulo, puede ser esta, donde ajustarás la referencia de la primer celda:
Sub sumacolumna()
Dim resulta As Single
Dim mifila As Integer, primerafila As Integer
'me posiciono en la primer celda de la col a sumar
Range("A2").Select
primerafila = 2
'podes ingresar el total de filas
mifila = InputBox("Ingrese última fila a sumar")
'o podes establecer la última fila asi:
'mifila = 20
'se inicia el bucle hasta llegar a la ultima fila
While ActiveCell.Row <= mifila
resulta = resulta + ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.Offset(1, 0).Value = resulta
End Sub
Espero te resulte. En mi página encontrarás varios ejemplos de macros, como para obtener la última fila con datos, y cosas así.
Saludos
Elsa
PD) No te pierdas mi manual '300 Macros' explicadas paso a paso en español. Descarga la demo gratis desde: http://es.geocities.com/lacibelesdepunilla/manual

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Excel ultima celda activa

Quisiera saber como desplazarme a la ultima celda activa de una fila, es decir, si esta fila tenga varias celdas conscutivas llenas de valores quisiera ir a la ultima celda que tenga un valor. Hay alguna mezcla de funciones que estando en una columna...
1 respuesta

Macro de excel para insertar filas

Agradezco si alguien me puede ayudar con una macro, para insertar filas en excel, tengo la siguiente, Sub Macro1() Dim Filas As Single, MiRango As Object Filas = ActiveCell.Value2 Set MiRango = Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(Filas,...
1 respuesta

Añadir filas a una lista si cumple una condición

Necesito ayuda con una pequeña macro para excel. Os explico: Tengo 2 pestañas con listados del mismo tipo: NUEVO y ARCHIVO. En NUEVO tengo filas de datos, si el valor de la primera columna (Ax) es 1, esa fila debe añadirse a la lista existente en la...
1 respuesta

Compara datos de un libro con otro

Experto tengo el siguiente ejercicio que realizar, tengo ideas como hacerlo pero traducirlo al lenguaje de macros es un poco difícil para mi ya que soy un novato, voy al grano lo que quiero hacer es lo siguiente : tener un libro de excel o una base...
1 respuesta

Eliminar filas con macro

Tengo una tabla con el número de alumnos de una escuela. En la 1º columna está el curso (1º Año, 2º Año, etc.), en la 2º columna, está la cantidad de varones, en 3º la cantidad de mujeres y en la 4º el total. Mi duda es si se puede hacer una macro...
2 respuestas

Datos en dos columnas

Tengo 2 columnas con datos (las 2 primeras) y necesito obtener el resultado de la tercera. Localidad Tipo Resultado Final ARTES N S ARTES S S AVIA N S AVIA N S AVIA S S AVINYO N N AVINYO N N Explicación: En la 3ª columna aparecerá "S" si en cualquier...
1 respuesta

Como cear macro para copiar celdas en función del resultado de otra celda.

La cuestión es que tengo en una hoja tengo 10 filas y cuando en cualquier celda de la columna "J" me aparezca "si" quisiera copiar las celdas "A, ByC" en la primera fila vacía de otra hoja.
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta