Anónimo
Macro introduce sumatoria de filas que varían
Dr. Espero me pueda ayudar tengo varias hojas cada una de estas contiene un cuadro siempre con una misma cantidad de columnas pero las filas varían mes a mes, necesito una macro que inserte la fórmula sumatoria en la parte final + 5 celdas abajo de una columna indicada que siempre sera la misma.
Por ejemplo la hoja "xxx" tiene un cuadro de rango A1:Q3 podría también ser A1:Q10 en ambos casos necesitaría ingresar en la columna "H" la fórmula sumatoria + 5 celdas abajo .
Espero me puedas ayudar muy pronto con este problema que me esta vovliendo loco.
Gracias
Por ejemplo la hoja "xxx" tiene un cuadro de rango A1:Q3 podría también ser A1:Q10 en ambos casos necesitaría ingresar en la columna "H" la fórmula sumatoria + 5 celdas abajo .
Espero me puedas ayudar muy pronto con este problema que me esta vovliendo loco.
Gracias
1 respuesta
Respuesta de SERGIO CARDOZO PARRA
1
Bien, cuando dices necesito un macro me hace pensar que ya has lidiado con macros, entonces me limito solo a indicar el código que se requiere para ello:
Sub SumarColumna()
EFILAS = [H1].CurrentRegion.Rows.Count
Range("H" & EFILAS + 6).FormulaR1C1 = "=SUM(R[-" & EFILAS + 5 & "]C:R[-1]C)"
End Sub
Por si acaso: Como crear un botón y asociarlo a un macro, haz clic aquí....
http://img47.xooimage.com/views/7/6/7/crear-un-bot-n-as...-a-macro-1e8cdd7.pdf/
Sub SumarColumna()
EFILAS = [H1].CurrentRegion.Rows.Count
Range("H" & EFILAS + 6).FormulaR1C1 = "=SUM(R[-" & EFILAS + 5 & "]C:R[-1]C)"
End Sub
Por si acaso: Como crear un botón y asociarlo a un macro, haz clic aquí....
http://img47.xooimage.com/views/7/6/7/crear-un-bot-n-as...-a-macro-1e8cdd7.pdf/