Utilizar la función VLookup en vba
Necesito crear una macro que realice la siguientes funciones =SI.ERROR(SI($A2="A";BUSCARV($B4; Hoja2'!$A:$D;4;0)*$F4;" ");" ") la formula se arrastra en las distintas celdas (el numero de filas varia)
2 Respuestas
En el video 15 de mi canal dejé el paso a paso para obtener el código de una fórmula que ya tendrás en alguna celda (https://www.youtube.com/playlist?list=PLrhlyizWZzOERwRMxIIy-BTP-CyXh_K5N )
También desde las entradas del mes de octubre de mi blog podrás descargar libro con los ejemplos de 3 modos de obtener fórmulas mediante vba. (https://elsamatilde.blogspot.com/2018/10/colocar-formulas-mediante-vba.html )
Si luego te queda todavía algún detalle para ajustar, enviame el código obtenido y las aclaraciones para realizar el ajuste.
Sdos y Feliz Año !
Elsa
Prueba con esta macro, sin importar el numero de filas te colocara la fórmula
Sub formular()
f = Range("b4").CurrentRegion.Rows.Count
Range("c4").Resize(f, 1).Formula = "=IFERROR(IF(R[-2]C1=""A"",VLOOKUP(RC2, Hoja2!C1:C4,4,0)*RC6,"" ""),"" "")"
End Sub