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)
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