Saltar al contenido

Copiar rango cada x Filas ???

publicado

Hola buenas.

Necesitaria una macro que copiara un rango de celdas que contiene formula cada 5 Filas hasta la fila 4998.

Seria copiar C3:I7 con la funcion =

Empezando en Fila 3 y terminaria en Fila 4998

Se repetiria cada 5 filas.

Un Saludo.

Featured Replies

publicado
  • Autor

Con la grabadora

Pero son demasiadas filas. 

Sub Macro1()

    Range("C3:I7").Select
    Selection.Copy
    Range("C12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range("C21").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
End Sub

Hace tiempo que no entro en el foro y no veo la opcion de subir libro.

Un Saludo.

publicado 
Sub CopiarMúltiple()
Application.ScreenUpdating = False
Range("C3:I7").Copy
For x = 12 To 4998 Step 9
   Range("C" & x).PasteSpecial xlPasteAll
Next
Application.CutCopyMode = False
End Sub

 

Archivado

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

Ir al listado de temas