Aprendiendo vba con Excel
'Regenera fórmulas de 'TOTAL'
Lo que quiero es Asignar a un rango J20:J34 a través de código lo siguiente:
=SI(ESERROR(G20*H20-I20*G20*H20);"";G20*H20-I20*G20*H20)
'Aqui da fallo 1004:
Range("J20:J34").FormulaR1C1 = _
"=IF(ISERROR(R20C7*R20C8-R20C9*R20C7*R20C8);"";R20C7*R20C8-R20C9*R20C7*R20C8)"
No se si estoy indicando correctamente las celdas con R20C8 y demás... Se muy poco de esta forma de indicar celdas a través de código.
Cualquier aclaración me ayudará. Muchas gracias.
Lo que quiero es Asignar a un rango J20:J34 a través de código lo siguiente:
=SI(ESERROR(G20*H20-I20*G20*H20);"";G20*H20-I20*G20*H20)
'Aqui da fallo 1004:
Range("J20:J34").FormulaR1C1 = _
"=IF(ISERROR(R20C7*R20C8-R20C9*R20C7*R20C8);"";R20C7*R20C8-R20C9*R20C7*R20C8)"
No se si estoy indicando correctamente las celdas con R20C8 y demás... Se muy poco de esta forma de indicar celdas a través de código.
Cualquier aclaración me ayudará. Muchas gracias.
Respuesta de Elsa Matilde
1
Cuando quieras el código de una fórmula, tenés que escribirla en la celda con la grabadora de macros encendida.
Cuando finalices detené la grabadora. En un módulo encontrarás la instrucción.
En tu caso esta sería la línea que necesitas:
Range("J20:J34").FormulaR1C1 = _
"=IF(ISERROR(RC[-3]*RC[-2]-RC[-1]*RC[-3]*RC[-2]),"""",RC[-3]*RC[-2]-RC[-1]*RC[-3]*RC[-2])"
PD) En mi manual 400Macros encontrarás un cap dedicado al tratamiento de fórmulas.
Sdos y no olvides finalizar la consulta
Elsa
Cuando finalices detené la grabadora. En un módulo encontrarás la instrucción.
En tu caso esta sería la línea que necesitas:
Range("J20:J34").FormulaR1C1 = _
"=IF(ISERROR(RC[-3]*RC[-2]-RC[-1]*RC[-3]*RC[-2]),"""",RC[-3]*RC[-2]-RC[-1]*RC[-3]*RC[-2])"
PD) En mi manual 400Macros encontrarás un cap dedicado al tratamiento de fórmulas.
Sdos y no olvides finalizar la consulta
Elsa
