Copiar dato con macro

On 4 dic, 11:29, Belinda wrote:

...ya para terminar con una paranoia de trabajo que me he propuesto
solo me falta que algún alma caritativa me diga como (con una macro)
hago esto:

-En H2 tengo una formula seniclla; E2*J2+F2*i2

...y necesito que una macro copie esa misma fórmula en esa columna (H)
hacia abajo dependiendo de si hay datos en su correspondiente celda de
la columna A (Ej: copiará la fórmula en H3 si hay algo en A3). Y que
copie la fórmula, no los valores...

Gracias y perdón por la vara que estoy dando

Hola.

La siguiente macro te hace la copia que indicas. Primero copia
aquellas en aquellas filas en las que en la columna A hay valores
constantes y posteriormente lo hace en el caso de que hubiera alguna
fórmula

Sub copiar()

On Error Resume Next
[h2].Copy
Range([a2], [a65536]).SpecialCells(xlCellTypeConstants).Offset(0,
7).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
Range([a2], [a65536]).SpecialCells(xlCellTypeFormulas).Offset(0,
7).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

Application.CutCopyMode = False
End Sub

Saludos,

Benito
Barcelona

On 4 dic, 13:43, Benito Merino wrote:

On 4 dic, 11:29, Belinda wrote:

> ...ya para terminar con una paranoia de trabajo que me he propuesto
> solo me falta que algún alma caritativa me diga como (con una macro)
> hago esto:

> -En H2 tengo una formula seniclla; E2*J2+F2*i2

> ...y necesito que una macro copie esa misma fórmula en esa columna (H)
> hacia abajo dependiendo de si hay datos en su correspondiente celda de
> la columna A (Ej: copiará la fórmula en H3 si hay algo en A3). Y que
> copie la fórmula, no los valores...

> Gracias y perdón por la vara que estoy dando

Hola.

La siguiente macro te hace la copia que indicas. Primero copia
aquellas en aquellas filas en las que en la columna A hay valores
constantes y posteriormente lo hace en el caso de que hubiera alguna
fórmula

Sub copiar()

On Error Resume Next
    [h2].Copy
    Range([a2], [a65536]).SpecialCells(xlCellTypeConstants).Offset(0,
7).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
    Range([a2], [a65536]).SpecialCells(xlCellTypeFormulas).Offset(0,
7).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

    Application.CutCopyMode = False
End Sub

Saludos,

Benito
Barcelona

...muchas gracias Benito por tu ayuda...