Macro para Insertar Filas automáticamente y fórmula Sumar
Los miembro del Foro, en esta ocasión necesito su ayuda en una macro que tengo la cual me permite inserta filas automáticamente a presionar en el botón INSERTAR FILAS, pero a la vez tengo una la fórmula en el texto donde indica TOTAL GENERAL "=SUMA(L8:L9)" y lo que necesito es que si inserto 5 más 2 que tengo por defecto mi fórmula suma debería incrementar a =SUMA(L8:L14), pero no permite hacer este cambio.
Desde ya agradezco su apoyo y colaboración.
1 respuesta
H o l a:
Te anexo la macro
Sub Insertar_filas2()
'Por.Dante Amor
f = Cells(Rows.Count, "J").End(xlUp).Row
vRows = Application.InputBox("Introduce el nº de filas a insertar", "Insertar Filas")
If vRows = False Then Exit Sub
Rows(f & ":" & f + vRows - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For c = Columns("L").Column To Columns("AK").Column
letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
Cells(f + vRows, c) = "=SUM(" & letra & "8:" & letra & f + vRows - 1 & ")"
Next
'
For c = Columns("AM").Column To Columns("AO").Column
letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
Cells(f + vRows, c) = "=SUM(" & letra & "8:" & letra & f + vRows - 1 & ")"
Next
Rows(f - 1).Copy
Rows(f & ":" & f + vRows - 1).PasteSpecial xlFormats
[C3].Select
Application.CutCopyMode = False
End Sub
Buenas tardes amigo Dante Amor, la macro esta excelente y como la requería, solo hay un pequeño detalle y quizás me olvide de comentar, sabes la fórmula que se ubica en la celda A8 y A9 con la fórmula:
=SI.ERROR(BUSCARV(C8;'[BASES DE DATOS.xlsm]Hoja1'!$V$2:$W$5000;2;FALSO);0)
Debería continuar al igual que las fórmulas se ubican en la celda AR8 y AR9.
Y creo que con ese detalle amigo Dante, cerraría el tema.
Desde ya agradezco el tiempo y la dedicación en ayudarme a corregir mi macro.
Macro actualizada:
Sub Insertar_filas2()
'Por.Dante Amor
f = Cells(Rows.Count, "J").End(xlUp).Row
vRows = Application.InputBox("Introduce el nº de filas a insertar", "Insertar Filas")
If vRows = False Then Exit Sub
Rows(f & ":" & f + vRows - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For c = Columns("L").Column To Columns("AK").Column
letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
Cells(f + vRows, c) = "=SUM(" & letra & "8:" & letra & f + vRows - 1 & ")"
Next
'
For c = Columns("AM").Column To Columns("AO").Column
letra = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
Cells(f + vRows, c) = "=SUM(" & letra & "8:" & letra & f + vRows - 1 & ")"
Next
[A9].Copy Range(Cells(f, "A"), Cells(f + vRows - 1, "A"))
Rows(f - 1).Copy
Rows(f & ":" & f + vRows - 1).PasteSpecial xlFormats
[C3].Select
Application.CutCopyMode = False
End Sub
¡Gracias!
Amigo Dante Amor, agradezco por tu gentil colaboración y apoyo, y ahora quedo perfecto la macro, por lo que daría como tema cerrada a esta aplicación.
