Sumar celdas en la ultima celda vacía de la columna
Hola, podrías ayudarme a crear una macro que me sumen todas las celdas que contienen valores en la columna A.
Un Abrazo..
Un Abrazo..
1 Respuesta
Respuesta de membasoft
1
Es un placer ayudarle. Pues es fácil si utilizas VBA. Allí la tienes. Puedes introducirla en el evento que mejor te convenga.
'declaro las variables a utilizar
dim fil as integer, inifil, as integer, col as integer
'las inicializo
fil=1 : col=1 : inifil=fil
'recorro todas las celdas con datos
do
if cells(fil, col)=empty then exit do 'si encuentro una celda vacia me detengo
fil=fil+1 'cambio de fila
loop
'coloco la formula en la celda de resultados
cells(fil+2,col).formula="=sum(a" & cstr(inifil) & ":a" & cstr(fil) & ")"
'declaro las variables a utilizar
dim fil as integer, inifil, as integer, col as integer
'las inicializo
fil=1 : col=1 : inifil=fil
'recorro todas las celdas con datos
do
if cells(fil, col)=empty then exit do 'si encuentro una celda vacia me detengo
fil=fil+1 'cambio de fila
loop
'coloco la formula en la celda de resultados
cells(fil+2,col).formula="=sum(a" & cstr(inifil) & ":a" & cstr(fil) & ")"
