Copiar formula en varios cuadros

[JOCAMI90]

Saludos

Necesito una macro que autorellene las formulas de cada celda, desde B5:K201

Esto lo puedo hacer manualmente seleccionando desde B5:k5 y arrastrarlo la fila hasta 201, sucede que necesito hacer esto para unos 100 cuadros como estos que ven mostrare en el adjunto

en realidad esto lo hice manualmente seleccionando desde B5:APH5, pero perdi algunos formatos de las lineas dibujadas en el proceso...

Intente grabar una macro y obtube este resultado:

Sub Macro1()

'

' Macro1 Macro

'

' Acceso directo: CTRL+a

'

Range("AOY6:APH6").Select

Selection.AutoFill Destination:=Range("AOY6:APH201"), Type:=xlFillDefault

Range("AOY6:APH201").Select

End Sub

Sucede que cuando intento ejecutar la macro en otras celdas... se aplica siempre a la misma celda... nose como hacerlo para que se aplique a la celda activa o un rango seleccionado...

Me gustaria saber como hacer esto, para en un futuro simplificarme la vida...

Muchas Gracias por adelantado

test.rar

[Antoni]

Esta macro te permite hacer lo que pides.

Selecciona un rango y ejecuta la macro.

El relleno se realiza de arriba a abajo y de izquierda a derecha partiendo de la celda activa.

Sub Autorrelleno(): On Error Resume Next

icol = Selection.Column

fcol = Selection.Column + Selection.Columns.Count - 1

irow = Selection.Row

frow = Selection.Row + Selection.Rows.Count - 1

rango = Range(Cells(irow, icol), Cells(frow, fcol)).Address

Range(Cells(irow, icol), Cells(frow, icol)).Select

ActiveCell.AutoFill Destination:=Range(Selection.Address)

Selection.AutoFill Destination:=Range(rango)

Range(rango).Select

End Sub

[/CODE]

[JOCAMI90]

Saludos @[uSER=46507]Macro Antonio[/uSER]

Agrego la Macro en un modulo General, y luego como la utilizo en el documento?

debo seleccionar una sola celda donde esta la formula o puedo seleccionar varias celdas? por ejemplo de B6:K6 como el documento que adjunte (en este rango se encuentran las formulas, y deseo autocompletar de la fila 7 hacia abajo....

o selecciono el rango en blanco que deseo que se autocomplete??? nose si me doy a entender...

[Antoni]

.

Hay 3 formas clásicas de ejecutar una macro:

1) Inserta un botón, una imagen o una autoforma, click derecho\Asignar macro

2) Alt+F8, selecciona la macro y ejécutala

3) Alt+F8, selecciona la macro, pulsa Opciones y asígnale una letra y luego podrás ejecutarla con Ctrl+letra

Selecciona todo el rango a autocompletar, por ejemplo, B6:K20 y ejecuta la macro.

.

[JOCAMI90]

Exelente, muchas gracias @[uSER=46507]Macro Antonio[/uSER]

Tema concluido