PARA DAM: Código VB para una formula.

Hola estimado DAM.
Necesito nuevamente de tu ayuda amigo, necesito poner la siguiente formula en código VB, pero no se como hacerle para que se ejecute la operación, ya que el como es un poco grande VB no me marca un error. Esta es la formula:

Range("al7").Select
 ActiveCell.FormulaR1C1 = _
 "=iferror(if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""cambio u/m"",""cambio u/m"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""estrategia comercial"",""compra detenida por estrategia comercial"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""controlados y refrigerados apertura"",""controlados y refrigerados apertura"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""controlados y refrigerados prevención de merma"",""controlados y refrigerados prevención de merma"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""alta especialidad"",""faltante industrial"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""faltante"",""faltante industrial"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""drenado"",""item en descatalogacion"",if(vlookup(r[2]c[-35],'[ar
chivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""descatalogacion prov"",""item en descatalogacion"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""descatalogacion san pablo"",""item en descatalogacion"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""descatalogacion sp"",""item en descatalogacion"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""baja de producto"",""item en descatalogacion"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""micromarketing"",""micromarketing"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""producto nuevo"",""producto nuevo"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""alta de producto"",""producto nuevo"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""minoristas/servicios"",""servicios"",if(vlookup(r[2]c[-35],'[arc
hivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""in & out"",""tester/kit"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""tester"",""tester/kit"",if(vlookup(r[2]c[-35],'[archivo faltante.xlsx]hoja1'!r2c[-37]:r1048576c[-36],2,0)=""kit de venta"",""tester/kit"","""")))))))))))))))))),"""")"

En ocasiones he observado que cuando las formulas son muy grandes utilizan el _ para continuar escribiendo la formula en el renglón de abajo, lo intente pero no tuve éxito, es correcto eso?, Me puedes ayudar por favor.
Saludos JPC.

1 Respuesta

Respuesta
1

¿Y quieres que la macro ponga la fórmula o también puede ser que una macro realice todo el contenido de la fórmula?

Espero tus comentarios. También puedes enviarme tu archivo con la fórmula aplicada en algunos ejemplos para ver el funcionamiento.

Hola Dam, gracias por tu pronta respuesta.

La intención es que VB coloque las formulas de manera automática, pero ambas formulas que tengo son un poco largas y cuando las transformo al código VB me marcan un error por la misma razón de que son largas.

Ya te envíe mis archivos a tu mail, ahi te detallo las 2 formulas en donde tengo este problema.

Saludos y muchas gracias.

JPC.

Te envíe el archivo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas