Saltar al contenido

Ejecutar un macro N numero de veces


Recommended Posts

publicado

Necesito ejecutar un macro X numero de veces y que se agregue en una tabla los datos dentro del macro pero no encuentro forma de hacer que funcione

image.thumb.png.b84caaf84cefca0e319954f8ee901ed1.png

Aqui una foto de lo que deseo agregar donde esta X que sea un numero cualquiera deseado

 

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("H3:K3").Select
    Selection.Copy
    Range("A50000").Select
    Selection.End(xlUp).Select
    
    ActiveCell.Offset(1, 0).Select
    
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("J3").Select
End Sub


Ese es el codigo de la macro.

Produccion.xlsm

publicado

Buenos días, lo que entendí es que se repita el copiado , el numero de veces que pongas en L3 

Sub Macro1()
  Application.ScreenUpdating = False
  
  Range("H3:K3").Select
  
  Selection.Copy
  With Range("A" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row)
  
  For i = 1 To Range("L3")
  .Offset(i, 0).PasteSpecial
  Next
  
  End With
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

saludos

 

Produccion.xlsm

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.