Saltar al contenido

Macro pegar las veces que indique la celda

publicado

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

Featured Replies

publicado

Hola,

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

Un saludo

BVA.rar

publicado
  • Autor

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

publicado

Hola,

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

Un saludo.

publicado

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.

publicado
  • Autor

Realmente muy agradecido por la ayuda.

Saludos

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

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

Tema Solucionado

Archivado

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