Macro pegar las veces que indique la celda

leserasfea · December 11, 2012

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 · December 11, 2012

Hola,

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

Un saludo

BVA.rar

leserasfea · December 12, 2012

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 · December 12, 2012

Hola,

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

Un saludo.

December 12, 2012

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.