COPIAR FORMULA

Hola:

No lo he comprobado, pero prueba algo tal que asi:

Range("destino").FormulaR1C1 = Rango("origen").FormulaR1C1

Saludos

"Orfao" escribió en...

Hola!!
como puedo copiar una formula de un rango a otro por medio de codigo ???
pero.. que me cambie los parametros relativos lal nuevo rango.
Lo he intentado asi :
Range("ao71:at75") = Range("ao3:at3").Formula
pero se mantienen las mismas direcciones de celda que la original (No
relativos)

Como hacer??
Me alimento del conocimiento de todos

hola, moises !

como puedo copiar una formula de un rango a otro por medio de codigo ???
pero.. que me cambie los parametros relativos lal nuevo rango...

con las siguientes opciones solo se requiere la primer columna del rango de destino:

op1: copiando todo [incluyendo formatos, etc.]
Range("ao3:at3").Copy Destination:=Range("ao71:ao75")

op2: copiando exclusivamente las formulas:
Range("ao3:at3").Copy
Range("ao71:ao75").PasteSpecial xlPasteFormulas
Application.CutCopyMode = False

saludos,
hector.

Hola Miguel.
Probando tu sugerencia hice lo siguiente
en la hoja1 coloque
B13=1 C13=2
B14=+B13+1 C14=+C13+2
luego en la hoja2 incruste un commandbutton y le asigne este codigo:

Private Sub CommandButton1_Click()
VBAProject.Hoja1.Range("b14:c14").Copy
Destination:=VBAProject.Hoja1.Range("b15:c21")
End Sub

...presiono el boton
Y... Nada.

En donde me equivoque ???

Gracias
Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

> como puedo copiar una formula de un rango a otro por medio de codigo ???
> pero.. que me cambie los parametros relativos lal nuevo rango...

con las siguientes opciones solo se requiere la primer columna del rango de destino:

op1: copiando todo [incluyendo formatos, etc.]
Range("ao3:at3").Copy Destination:=Range("ao71:ao75")

op2: copiando exclusivamente las formulas:
Range("ao3:at3").Copy
Range("ao71:ao75").PasteSpecial xlPasteFormulas
Application.CutCopyMode = False

saludos,
hector.

Hola Garcia..
He probado tu sugerencia pero "NADA"
no me funciona...tal vez cometi algun error...
Gracias..

Me alimento del conocimiento de todos


"L. Garcia" wrote:

Hola:

No lo he comprobado, pero prueba algo tal que asi:

Range("destino").FormulaR1C1 = Rango("origen").FormulaR1C1

Saludos

"Orfao" escribió en...
> Hola!!
> como puedo copiar una formula de un rango a otro por medio de codigo ???
> pero.. que me cambie los parametros relativos lal nuevo rango.
> Lo he intentado asi :
> Range("ao71:at75") = Range("ao3:at3").Formula
> pero se mantienen las mismas direcciones de celda que la original (No
> relativos)
>
> Como hacer??
> Me alimento del conocimiento de todos

hola, moises !

Probando tu sugerencia hice lo siguiente en la hoja1 coloque
B13=1 C13=2
B14=+B13+1 C14=+C13+2
luego en la hoja2 incruste un commandbutton y le asigne este codigo:
Private Sub CommandButton1_Click()
VBAProject.Hoja1.Range("b14:c14").Copy
Destination:=VBAProject.Hoja1.Range("b15:c21")
End Sub
...presiono el boton
Y... Nada.
En donde me equivoque ???

lo del boton de comando... no estaba comentado ni previsto :D [asi que]...

1) [por si las dudas]... asegurate que la propiedad 'TakeFocusOnClick' del commandbutton este en *False* :))

2) [por si las dudas]... asegurate que la instruccion quede *en una sola linea*¨[no se si tu mensaje se *corta* en ~80 caracteres]

3) tampoco es necesario *casar* proyecto->hoja->rango [si el control esta ya incrustado en una hoja *especifica*]
prueba sencillamente con: -> Range("b14:c14").Copy Range("b15:c21")

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.