Saltar al contenido

Paste special de la clase range

publicado

Buena tarde

Tengo un problema con una macro, es justo en el renglon marcado donde me indica el error. Por favor su ayuda.

Sub Test()

numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas")

If Not IsNumeric(numhoj) Then Exit Sub

Rows("16:16").Copy

Rows("16:" & 15 + numhoj).Select

Selection.Insert Shift:=xlDown

Selection.PasteSpecial Paste:=x1PasteFormulates

Selection.ClearContents

Application.CutCopyMode = False

End Sub

Featured Replies

publicado

revisa lo siguiente:

1) ese tipo de constantes (generalmente) inician como "xl" (EQUIS-ELE) NO como "x1" (EQUIS-UNO)

2) el sufijo "Formulates" NO existe (???)

- quisiste usar "Formulas" ?

3) no le veo sentido a las instrucciones ".Copy", ",PasteSpecial" y ".CutCopyMode" si al final de cuentas BORRAS el contenido a las filas insertadas (?????)

para ese caso, prueba simplemente con algo +/- como:

Sub Test2()
numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas")
If Not IsNumeric(numhoj) Then Exit Sub
Range("a16").Resize(numhoj).EntireRow.Insert
End Sub[/CODE]

saludos,

hector.

publicado
  • Autor

Ya se realizaron los cambios, pero sigue sin funcionar. Anexo archivo espero me puedan ayudar.

Saludos

FORMATO.xls

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.