Cita:
Iniciado por win14 
hola amigos, quisiera agregarle a la macro detallada, que consiste en copiar un renglon y repetirlo 3 veces para abajo desde cualquier celda, lo que le quisiera agregar es q despues q halla hecho dicho procedimiento, me posicione 10 renglones hacia abajo, digamos si la ejecuto en a1 cuando termine la macro este posicionada en a10.
gracias
Hola:
No sé si tiene que ver con tu requerimiento anterior. Te aconsejo que trates de continuar el mismo "hilo" de chateo y no de iniciar otro, pues de lo contrario, el intercambio resulta confuso.
En tal caso -simplemente- le agregas una línea de comando más:
Código:
Sub Copia_y_Pega()
Set MiRango = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9))
MiRango.Copy Destination:=Range(MiRango.Offset(1, 0), MiRango.Offset(3, 0))
MiRango.Offset(9, 0).Cells(1).Select
Set MiRango = Nothing
End Sub
Saludos.