Foros del Web - Macro Copiar Excel

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

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

- - Macro Copiar Excel (http://www.forosdelweb.com/f90/macro-copiar-excel-476919/)

Macro Copiar Excel

Hola a todos, una consulta estoy haciendo una macro en la cual quiero seleccionar una fila y esa misma fila copiarla 4 o 5 renglones para abajo, pero mi duda es como hago para q dicha macro se ejecute desde cualquier celda, quiero posicionarme en cualquier renglon y ejecutarla, obviamente me tomara lo que dice el renglon o fila que me posicione, me entienden???

aca les dejo lo que hice yo, pero solo me lo ejecuta en la fila "A4:I4" quiero que esto sea indistinto, pero que respete el rango de A a I, en cualquier renglon..

Range("A4:I4").Select
Selection.Copy
Range("A5:A7").Select
ActiveSheet.Paste
Range("A11").Select

gracias por su ayudaaa

Re: Macro Copiar Excel

Fíjate si este código te sirve:

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

    Set MiRango = Nothing

End Sub

Saludos

Re: Macro Copiar Excel

Te cuento que me tira un error, te cuento lo que hice copie tu formula en la macro, me pare en cualquier celda y me da error, pienso que debe ser la referencia que vos pones "mirango" en mi caso en alguna parte de la hoja de calculo tendria que decir mi rango o algo asi???

gracias amigo

Re: Macro Copiar Excel

Perdon Amigo, Ya Funciono, Estaba Bien Como Lo Hicistes Gracias Y Perdon Por La Equivocacion

Graciassss

Re: Macro Copiar Excel

Fue un gusto.
Saludos