Macro pegar las veces que indique la celda

[leserasfea]

Buenos dias.

Necesito pegar los datos de la ultima fila ( o mediante un formulario) las veces que me indique la celda K7, indique esta pegar 20 veces, 25 veces o 120 veces en forma descendente a partir de la primera celda en blanco.

Aqui les dejo la macro para copiar la info (pero me falta la macro para pegar)

Range("d100").Select

Selection.End(xlDown).Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy

With Sheets("DATOS").Range("D" & Rows.Count).End(xlUp).Offset(1)

.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End With

End Sub

Muchas gracias!!!

BVA.zip

[jose71]

Hola,

Revisa el adjunto y nos dices si es lo que necesitas...

Un saludo

BVA.rar

[leserasfea]

Muchas gracias!!!

Es justo lo que necesitaba.

Sorry por la consulta pero como hace la macro para pegar el rango de datos indicado en la celda K8???, me disculpo ya que soy nuevo en macros y me gusta aprender de los que saben :smug:

Saludos

[jose71]

Hola,

La variable "a" toma el valor de K8 que es la indica al bucle las repeticiones que debe realizar.

Un saludo.

[Invitado Cacho R]

Hola! leserasfea (y José). Otra forma de hacerlo podría ser:

Sub Macro2()
Dim Q&
With Sheets("DATOS")
  Q = .[k8]
  If Q = 0 Then Exit Sub
  With .Cells(Rows.Count, "d").End(xlUp).Resize(, 6)
    .Offset(1).Resize(Q) = .Value
  End With
End With
End Sub[/PHP]

Saludos, Cacho R.

[leserasfea]

Realmente muy agradecido por la ayuda.

Saludos

:victorious::eagerness::applouse::chuncky::chuncky:

- - - - - Mensaje combinado - - - - -

Tema Solucionado