Ver Mensaje Individual
  #5 (permalink)  
Antiguo 17/04/2008, 09:31
juan_miguel
 
Fecha de Ingreso: septiembre-2007
Mensajes: 18
Antigüedad: 16 años, 7 meses
Puntos: 0
Re: Macro Excel Ayuda

Hola,

Puedes basarte en el código que te explican, pero para que la operación que quieres se haga sin importar la celda donde te ubiques, debes capturar primero la posición de la celda donde estas posicionado, esto lo logras haciendo algo como esto:

Fila = activecell.row
Columna = activecell.column

y luego seleccionas tu rango para copiar el dato así:

Rango = Range(cells(Fila, Columna), cells(Fila + 15, Columna))

luego utilizas la variable y te debe funcionar, y haciendo referencia a lo que te dijeron antes, seria algo por el estilo

Cells(Fila, Columna).Copy Destination:=Range(Rango)

Espero haberte ayudado!!!

Juan Miguel

Última edición por juan_miguel; 17/04/2008 a las 10:07