Error en Macro que permite agregar filas
Dante Amor, agradezco desde ya por tu gentil colaboración en la macro que brindaste a solucionar mi problema, pues estoy teniendo algunos errores, para lo cual estoy adjuntando el link donde esta el archivo original con la macro la insertada.
Agradezco desde ya nuevamente tu gentil colaboración.
1 respuesta
Podrías enviarme tu archivo por corre.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Canon Sata” y el título de esta pregunta.
Buenos días Dante Amor, acabo de enviarte el email.
Te anexo la macro actualizada:
Sub Insertar_filas2()
'Por.Dante Amor
Dim f, c, letra
Application.EnableEvents = False
Application.ScreenUpdating = False
f = Cells(Rows.Count, "L").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"))
[AR9].Copy Range(Cells(f, "AR"), Cells(f + vRows - 1, "AR"))
Rows(f - 1).Copy
Rows(f & ":" & f + vRows - 1).PasteSpecial xlFormats
[C3].Select
Application.ScreenUpdating = True
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub
¡Gracias!
Buenos días Dante Amor, ahora la macro ya esta funcionando correctamente, la cual agradezco tú colaboración, tiempo y paciencia, para ayudar día a día con los problemas que se presentan en el cotidiano trabajo.
Un abrazo a distancia y esperando hasta una nuevo problema que se presente y puedas ayudar a muchas personas como yo.
