Anónimo
Ayuda insertar filas
Tengo una tablita que se llama diario y pues precisamente en ella voy registrando todo acerca de mi contabilidad.
La tabla esta dividida en 7 columnas, dos de esas columnas tienen fórmula, y tengo una macro para poder insertar una o más filas, pero el problema es que no se copian las fórmulas. Trate de resolver eso pero solo funciona para la primera linea y no para las demás, y si inserto más de una fila las fórmulas se copian en todas las celdas..
Por favor necesito ayuda.
La tabla esta dividida en 7 columnas, dos de esas columnas tienen fórmula, y tengo una macro para poder insertar una o más filas, pero el problema es que no se copian las fórmulas. Trate de resolver eso pero solo funciona para la primera linea y no para las demás, y si inserto más de una fila las fórmulas se copian en todas las celdas..
Por favor necesito ayuda.
1 Respuesta
Respuesta de Enrique Bernal
1
Creo que la solución es un imputbox()
Te explico, primero por un inputbox pregunta cuantas filas necesitas insertar, y luego con un for, dependiendo de cuantas filas pusiste en el input() cuantas filas insertas.
De lo que dices de alguna manera copiaste una vez y lograste pegar solo una vez la fórmula, pues lo que te tocaría es que utilizando el mismo for recorras las filas pegando la foprmula. Te pongo un ejemplo a ver si me cachas lo que quiero decir:
A = inputbox("Ingrese el Número de Filas a Insertar","Número de Filas"
b = ActiveCells.Row
for i = 1 To a
Rows(b).Select
Selection.Insert Shift:=xlDown
No se como copias la formula, pero el pegado sería así
Range("A" & b).select
ActiveSheet.Paste
Application.CutCopyMode = False
b = b+1
Next i
Bueno espero te ayude. No olvides finalizar la pregunta.
Te explico, primero por un inputbox pregunta cuantas filas necesitas insertar, y luego con un for, dependiendo de cuantas filas pusiste en el input() cuantas filas insertas.
De lo que dices de alguna manera copiaste una vez y lograste pegar solo una vez la fórmula, pues lo que te tocaría es que utilizando el mismo for recorras las filas pegando la foprmula. Te pongo un ejemplo a ver si me cachas lo que quiero decir:
A = inputbox("Ingrese el Número de Filas a Insertar","Número de Filas"
b = ActiveCells.Row
for i = 1 To a
Rows(b).Select
Selection.Insert Shift:=xlDown
No se como copias la formula, pero el pegado sería así
Range("A" & b).select
ActiveSheet.Paste
Application.CutCopyMode = False
b = b+1
Next i
Bueno espero te ayude. No olvides finalizar la pregunta.