PARA DAM: Código VB para realizar 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 la formula; VB no me marca un error. Esta es la formula ya en código VB:

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"","""")))))))))))))))))),"""")"

[size= 14px; line-height: 1.5em]En [/size]ocasiones[size= 14px; line-height: 1.5em] he observado que cuando las formulas son muy grandes utilizan el _ para continuar escribiendo la formula en el [/size]renglón[size= 14px; line-height: 1.5em] de abajo, lo intente pero no [/size][size= 14px; line-height: 1.5em]tuc[/size]<span class="scayt-auto" style="font-size: 14px; line-height: 1.5em;" data-scayt_autocorrected="exito" data-scayt_autocorrection="éxito">éxito</span>[size= 14px; line-height: 1.5em], es correcto eso?, Me puedes ayudar por favor.[/size]

Saludos JPC.

Añade tu respuesta

Haz clic para o