Macro para acoplar fórmula en macro
Necesito acoplar la siguiente fórmula "=SI(AJ2-AS2<0,0, AJ2-AS2)". Lo intente pero me da como resultado FALSO.
Favor su apoyo con sus enseñanzas, gracias.
Set h = ActiveSheet
Set r = h.Columns("A")
f = 2
Do Until h.Cells(f, 1) = ""
If h.Cells(f, 2) = "" Then GoTo siguiente
h.Cells(f, "BL") = FormulaLocal = "=SI(AJ2-AS2<0,0,AJ2-AS2)"
siguiente:
f = f + 1
Loop
1 respuesta
Respuesta de Abraham Valencia
1
Corrige:
h.Cells(f, "BL").FormulaLocal = "=SI(AJ2-AS2<0,0,AJ2-AS2)"
Igual sugiero usar, al menos a futuro, "Formula" y no "FormulaLocal", ese último solo funcionará para versiones de Office en el mismo idioma que el tuyo y con la configuración del separador de lista igual al de tu sistema operativo.
Salu2
Abraham Valencia
