MACRO AUTORELLENAR

14/05/2007 - 19:48 por fernanda.peruana | Informe spam

Una vez más...

Tengo la siguiente instrucción que funciona perfectamente, pero tengo
una duda que no he logrado resolver:

Sub rellenar()
ActiveCell.AutoFill Destination:=Range("d2:d" &
Range("C65535").End(xlUp).Row)
End Sub

Mi pregunta es: La instrucción anterior rellena las celdas hacia abajo
con una fórmula hasta la última celda con información, pero siempre y
cuando la fórmula a copiar, se encuentre en la celda d2.
Lo que quiero es que pueda rellenar dependiendo de la celda activa en
la que me encuentre pero no se como. Espero me puedan ayudar.

Atte. Fernanda desde Perú

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Macro autorellenar

Leer las respuestas

#1 Juan M

15/05/2007 - 09:13 | Informe spam

escribió en el mensaje

Una vez más...

Tengo la siguiente instrucción que funciona perfectamente, pero tengo
una duda que no he logrado resolver:

Sub rellenar()
ActiveCell.AutoFill Destination:=Range("d2:d" &
Range("C65535").End(xlUp).Row)
End Sub

Mi pregunta es: La instrucción anterior rellena las celdas hacia abajo
con una fórmula hasta la última celda con información, pero siempre y
cuando la fórmula a copiar, se encuentre en la celda d2.
Lo que quiero es que pueda rellenar dependiendo de la celda activa en
la que me encuentre pero no se como. Espero me puedan ayudar.

Atte. Fernanda desde Perú

Hola Fernanda,

Prueba esto:

Sub rellenar()
ActiveCell.AutoFill Destination:=Range(ActiveCell, _
Cells(Range("C65535").End(xlUp).Row, ActiveCell.Column))
End Sub

Un saludo,
Juan

Responder a este mensaje

#2 fernanda.peruana

15/05/2007 - 15:25 | Informe spam

MUCHAS GRACIAS JUAN, ME FUNCIONÓ AHORA SI CORRECTAMENTE, YA HE CREADO
MI INSTRUCCIÓN.

MUY AGRADECIDA.

UN BESO, DESDE PERU.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida