Foros del Web - macro excel

Foros del Web (http://www.forosdelweb.com/)

- Ofimática (http://www.forosdelweb.com/f90/)

- - macro excel (http://www.forosdelweb.com/f90/macro-excel-477004/)

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

Cita:

Iniciado por win14 (Mensaje 1947910)

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.

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

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:

Cita:

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.

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

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.