Tengo una macros para insertar fila que me da error

Hola expertos,

tengo una macro que encontré en otros enlaces, sucede que es lo que perfectamente deseo, inserta filas y copiando las formulas de la fila que le antecede, más sucede que cuando la ejecuto, me da un error "Error 400", cuando le doy aceptar si se insertan las filas con todo y fórmula pero la celda anterior se queda seleccionada.

que necesito agregar o quitar para que ya no salga el mensaje de error 400 y se "des-eleccione las filas copiadas"

gracias,

macros:

Sub Test()
numhoj = InputBox("¿Cuántas filas desea insertar? Escriba un número menos de la cantidad de autos a dar de alta", "Insertar filas")
If Not IsNumeric(numhoj) Then Exit Sub
Rows("11:11").Copy
Rows("12:" & 11 + numhoj).Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=x1PasteFormulates
Application.CutCopyMode = False
End Sub

---------


Sub Test2()
numhoj = InputBox("¿Cuántas filas desea eliminar? Utilizar SOLO EN CASO de haberse equivocado en el número de celdas insertadas anteriormente y ANTES DE LLENAR LA TABLA DE ABAJO.", "Eliminar filas")
If Not IsNumeric(numhoj) Then Exit Sub
Rows("12:" & 11 + numhoj).Select
Selection.Delete Shift:=xlDown
Application.CutCopyMode = False
End Sub

1 respuesta

Respuesta
1

Esta sería la macro para copiar corregida

Sub Test()
    activa = ActiveCell.Address
    numhoj = InputBox("¿Cuántas filas desea insertar? Escriba un número menos de la cantidad de autos a dar de alta", "Insertar filas")
    If Not IsNumeric(numhoj) Then Exit Sub
    Rows("11:11").Copy
    Rows("12:" & 11 + numhoj).Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    Range(activa).Select
End Sub

Saludos.DAM
Si es lo que necesitas.

Hola...

En verdad te lo agradezco , los minutos q has dedicado ha esto

deseo que Dios te los recompense devolviéndote el 1000 por uno...

en verdad muchas gracias.. .. nunca se me olvidara esa sentencia de hoy en adelante..

besos desde ecuador...

Shaki,

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas