Foros del web, para los que viven de bits

win14 · 28-mar-2007, 17:38

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 · 28-mar-2007, 18:21

Cita:

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 · 29-mar-2007, 01:45

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 · 29-mar-2007, 02:58

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.

win14 · 29-mar-2007, 05:47

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

mrocf · 29-mar-2007, 12:16

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.

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

28-mar-2007, 18:21	#2 (permalink)
mrocf Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. Mensajes: 219	Re: macro excel Cita: 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.

29-mar-2007, 01:45	#3 (permalink)
3pies Colaborador Fecha de Ingreso: diciembre-2003 Ubicación: Desde una destilería Mensajes: 1.800	Re: macro excel 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 __________________ Recetas de cocina fácil, sencilla, sana y económica Trucos de cocina

29-mar-2007, 02:58	#4 (permalink)
mrocf Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. Mensajes: 219	Re: macro excel 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.

29-mar-2007, 05:47	#5 (permalink)
win14 Fecha de Ingreso: marzo-2007 Mensajes: 10	Re: macro excel Gracias Por Todo, Amigos Y Pedon Por Abrir Otro Requirimiento.

29-mar-2007, 12:16	#6 (permalink)
mrocf Fecha de Ingreso: marzo-2007 Ubicación: Bs.As. Mensajes: 219	macro excel 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.

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