Foros del web, para los que viven de bits

win14 · 28-mar-2007, 11:52

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

mrocf · 28-mar-2007, 13:00

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

win14 · 28-mar-2007, 13:16

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

win14 · 28-mar-2007, 13:21

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

Graciassss

mrocf · 28-mar-2007, 13:35

Fue un gusto.
Saludos

28-mar-2007, 11:52	#1 (permalink)
win14 Fecha de Ingreso: marzo-2007 Mensajes: 10	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

28-mar-2007, 13:00	#2 (permalink)
mrocf Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. Mensajes: 262	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-mar-2007 a las 13:07.

28-mar-2007, 13:16	#3 (permalink)
win14 Fecha de Ingreso: marzo-2007 Mensajes: 10	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

28-mar-2007, 13:21	#4 (permalink)
win14 Fecha de Ingreso: marzo-2007 Mensajes: 10	Re: Macro Copiar Excel Perdon Amigo, Ya Funciono, Estaba Bien Como Lo Hicistes Gracias Y Perdon Por La Equivocacion Graciassss

28-mar-2007, 13:35	#5 (permalink)
mrocf Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. Mensajes: 262	Re: Macro Copiar Excel Fue un gusto. Saludos

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado