Hola tengo un pequeño problema, estoy trabajando un libro y preciso poder insertar filas y que vengan con el formato y formula de la fila anterior. ahora bien tengo este macro
pero deseo combinarlo con este otro que encontre en el foro para que me de la opcion de agregar todas las filas que necesito de una sola vez, osea agregar el inputbox pero que al igual que en el macro anterior me copie la formula del anterior
[CODE]Dim a As Integer
a = 0
a = InputBox("Cuantas filas quieres insertar? ")
While a > 0
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.EntireRow.Insert
a = a - 1
Wend
ActiveCell.Offset(-1).Select
End Sub
[/CODE]
gracias!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola tengo un pequeño problema, estoy trabajando un libro y preciso poder insertar filas y que vengan con el formato y formula de la fila anterior. ahora bien tengo este macro
pero deseo combinarlo con este otro que encontre en el foro para que me de la opcion de agregar todas las filas que necesito de una sola vez, osea agregar el inputbox pero que al igual que en el macro anterior me copie la formula del anterior
a = 0
a = InputBox("Cuantas filas quieres insertar? ")
While a > 0
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.EntireRow.Insert
a = a - 1
Wend
ActiveCell.Offset(-1).Select
End Sub
[/CODE]
gracias!