28/03/2007, 13:00
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 1 mes Puntos: 88 | |
| 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
Última edición por mrocf; 28/03/2007 a las 13:07 |