Código de macro para dejar un valor fijo en una celda

Quisiera saber si con un código de VBA puedo congelar un dato.

La columna H (Extra Allocation) es la resta del valor columna G menos el valor de la columna D.

Cuando el valor de H > al valor de D. Tengo que pedir un VB a mi área de finanzas. Lo que hago es que en la columna "J" hago referencia celda de la columna H para que me salga el valor en la columna del VB1 Ejm. 151.

Lo que quiero es que los valores de la columna "J" no cambie, porque cuando yo subo un archivo a través de la macro, mis cantidades pueden aumentar en la columna E o F. Como en J hace referencia a una celda (Ejemplo pongo =J25). Esta se va a actualizar. Es lo que no quiero que haga, por que mi primer VB1 era por 151.

Adjunto la referencia de celda de la columna J. Quiero que una vez capturado ese valor, este se mantega fijo asi las cantidades varien diariamente.

Range("J3").FormulaR1C1 = "=IF(RC[-2]<0,0,RC[-2])"
    Range("J3").AutoFill Destination:=Range("J3:J" & x)
    Range("J3:J" & x).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

se si me he dejado entender.

Añade tu respuesta

Haz clic para o