Utilizar función consultarv en macro pero evaluando dos o más criterios
Actualmente tengo una macro que me evalúa si una celda no se encuentra vacía, a partir de allí, en la celda del lado derecho, va a aplicar la función consultarv, buscando el valor que se encuentra en dos columnas a la izquierda en una matriz llamada matriz127 que tengo creada en otra hoja del mismo libro, dicha matriz tiene 4 columnas y 100 filas. La primera columna tiene el CÓDIGO, la cual logro consultar sin problema. El problema radica en que por cada CÓDIGO existente, existen 3 posibles PRECIOS, y de la manera siguiente solo logro consultar uno solo, es decir el que esta en la columna 2.
Sub Buscar()
Sheets("Comerciales"). Activate
Range("G2"). Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).FormulaR1C1 = "=VLOOKUP(RC[-2],matriz127,2,FALSE)"
ActiveCell.Offset(1, 0).Activate
Loop
Fila_Final = Range("H" & Cells.Rows.Count).End(xlUp).Row
Range("H2:H" & Fila_Final).Select
Selection.NumberFormat = "0.00"
End Sub
En Excel lo he logrado, usando lo siguiente:
=SI($J$7=1;(CONSULTAV($I$7;matriz127;2;FALSO));SI($J$7=2;(CONSULTAV($I$7;matriz127;3;FALSO));SI($J$7=3;(CONSULTAV($I$7;matriz127;4;FALSO)))))
Es decir, no se anidar los if en la macro...