Excel - FORMULAS CON MACRO

Hola

buenas noches

por favor suapoyo en brindarme un orientación, tengo un tabla en excel que actualmente lo trabajo con fórmula directo en el libro, pero como tengo problemas porque muchas veces por error lo borran deseo que ahora dichas fórmulas estén en visual.

* en la columna E uso la fórmula: =SI(Y(G4 <> 0, H4 <> 0, I4 <> 0), (G4 * H4 * I4) / 5000, 0), que toma los valores de las columnas G, H e I para calcular el volumen.

* en la columna F uso la fórmula: = =SI(D4 - C4 > E4 - C4, D4 - C4, E4 - C4), en el cual hallo el mayor peso entre la diferencia de las columnas D con C , E con C.

Generé este módulo

Public Sub volumen()
Range("E4:E500").Formula = "=SI(Y(G4 <> 0, H4 <> 0, I4 <> 0), (G4 * H4 * I4) / 5000, 0)"
Range("F4:F500").Formula = "=SI(D4 - C4 > E4 - C4, D4 - C4, E4 - C4)"
End Sub


la otra consulta es que cuando lo ejecuto sale: #¿NOMBRE?, pero cuando le doy F2 y luego enter aparece el valor, pero la fórmula se sigue apreciando.

Cómo hago para que ya no se vea la fórmula en la columna E y F y de inmediato aparezca el valor númerico sin necesidad de dar F2 a cada celda y luego enter para que aprezca el valor.

saludos cordiales
Libia Linares

Muy buenas.

No te aseguro que sea eso, pero prueba a utilizar en lugar de "Formula" "FormulaLocal". En mi caso tengo que utilizar el separador de ";", no sé en el tuyo y queda así:


Public Sub volumen()
Range("E4:E500").FormulaLocal = "=SI(Y(G4 <> 0; H4 <> 0; I4 <> 0); (G4 * H4 * I4) / 5000; 0)"
Range("F4:F500").FormulaLocal = "=SI(D4 - C4 > E4 - C4; D4 - C4; E4 - C4)"
End Sub

Un saludo. Juanjo.

Un saludo :
si estas con macro.... sugiero...


por si acaso... no revise resultados... ni columnas... tu tarea...
termina si encuentra dos celdas vacias y continuas en la columna "G",
puse las columnas con letras... es mejor utilizarlo con numeros...

bye...

comentas saludos

Hola CoquitoPe

buenas noches

gracias, solo hice unos pequeñísimos cambios de acuerdo a mi necesidad:

esto cambié en LOop: Loop While Cells(sinFila, "A") <> "" And Cells(sinFila, "B") <> ""

lo que necesito es que cuando llegue al LOOP y las columnas A o B estén vacías me de el mensaje que la columna "A" o en su defecto "B", o en ambos casos se encuentre vacía me salga el mensaje, lo hice pero el mensaje me sale a pesar que ambas columnas estén llenas.

y lo otro como hago que la macro se ejecute directamente sin necesidad de entrar al visual.

Es necesario que la programación lo coloque dentro del WOORKBOOK, paraque se cargue directamente?

saludos cordiales,

Libia Linares