macro excel

[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

[mrocf]

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.

[3pies]

Una ligera modificación al macro de mrocf...
En la primera línea, yo cambiaría lo que hay en rojo:

Código:

Set MiRango = Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, 9))

Salu2

[mrocf]

Hola! 3pies: un gusto saludarte. Convengamos que el código:

Código:

Cells(ActiveCell.Row, ActiveCell.Column)

equivale simplemente a:

Código:

ActiveCell

lo cual no tendría nada de malo si no fuera que el requerimiento original de "win14" (en otra pregunta) es:

Iniciado por win14

... quiero seleccionar una fila ... pero que respete el rango de A a I, en cualquier renglon

Por ello es que fue escrito así.

Saludos.

[win14]

Gracias Por Todo, Amigos Y Pedon Por Abrir Otro Requirimiento.

[mrocf]

Fue un gusto ayudarte...
Y, como habrás notado por el aporte de "3pies", abrir otro "hilo" para la misma consulta puede resultar confuso.

Saludos.