Foros del Web » Soporte técnico » Ofimática »

macro excel

Estas en el tema de macro excel en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 28/03/2007, 17:38
 
Fecha de Ingreso: marzo-2007
Mensajes: 13
Antigüedad: 17 años
Puntos: 0
Pregunta 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
  #2 (permalink)  
Antiguo 28/03/2007, 18:21
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Re: macro excel

Cita:
Iniciado por win14 Ver Mensaje
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.
  #3 (permalink)  
Antiguo 29/03/2007, 01:45
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 3 meses
Puntos: 144
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
  #4 (permalink)  
Antiguo 29/03/2007, 02:58
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Sonrisa 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.
  #5 (permalink)  
Antiguo 29/03/2007, 05:47
 
Fecha de Ingreso: marzo-2007
Mensajes: 13
Antigüedad: 17 años
Puntos: 0
Re: macro excel

Gracias Por Todo, Amigos Y Pedon Por Abrir Otro Requirimiento.
  #6 (permalink)  
Antiguo 29/03/2007, 12:16
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Sonrisa 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.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:09.