Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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