Extender fórmula a celdas adyacentes hacia abajo..

Hola amigos, tengo una macro que lo que hace es pegar una fórmula en una determinada celda:
Worksheets("Hoja1").[P11].Formula = "=IF(AI11>=$AJ$11,SUM($E11:$N11,-$O11,IF(SUM($E11:$N11,-$O11)>0,AG11*0.0001,0)),0)"
Lo que pretendo es, mediante macro también, extender dicha fórmula hacia abajo en las celdas adyacentes hasta una determinada celda, por ejemplo la 99.
En esto ando algo perdida, sobre todo cuando las referencias son absolutas, o no, o parte...
Si alguien me ayuda se lo agradecería mucho...
Saludos.

1 respuesta

Respuesta
1
Te dejo la instrucción que te falta:
Sub formulando()
'x Elsamatilde
Worksheets("Hoja1").[P11].Formula = "=IF(AI11>=$AJ$11,SUM($E11:$N11,-$O11,IF(SUM($E11:$N11,-$O11)>0,AG11*0.0001,0)),0)"
Worksheets("Hoja1").[P11].AutoFill Destination:=Worksheets("Hoja1").Range("P11:P99"), Type:=xlFillDefault
'opcional seleccionar alguna celda
Range("P37").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas