Buscar con doble coincidencia en visual
Hola Experto,
resulta que tengo una Macros donde necesito encontrar el valor de una columna a la cual llego al coincidir dos campos. De momento lo estoy haciendo con el sumifs(), pero la rutina es algo larga y veo que no es muy eficiente, hay alguna otra forma de buscar este "Coef", que está en la columna "E" y cuyos campos coincidentes son "SKUs.Cells(i, 1)" que se encuentra en la columna A e "Insumo" que se encuentra en la columna B? Lo que necesito es algo así como un BUSCARV de doble coincidencia y que se puede implementar en Macros...
Function DEMANDAXINSUMO(Insumo As Range, SKUs As Range, DemandaSKUs As Range)
Dim i As Integer
Dim nSKU As Integer
Dim Total As Double
Dim Coef As Double
Total = 0
For i = 1 To nSKU
Coef = Application.WorksheetFunction.SumIfs(Worksheets("InsumosporSKU").Range("E:E"), Worksheets("InsumosporSKU").Range("A:A"), SKUs.Cells(i, 1), Worksheets("InsumosporSKU").Range("B:B"), Insumo)
Total = Total + DemandaSKUs.Cells(i, 1) * Coef
Next i
resulta que tengo una Macros donde necesito encontrar el valor de una columna a la cual llego al coincidir dos campos. De momento lo estoy haciendo con el sumifs(), pero la rutina es algo larga y veo que no es muy eficiente, hay alguna otra forma de buscar este "Coef", que está en la columna "E" y cuyos campos coincidentes son "SKUs.Cells(i, 1)" que se encuentra en la columna A e "Insumo" que se encuentra en la columna B? Lo que necesito es algo así como un BUSCARV de doble coincidencia y que se puede implementar en Macros...
Function DEMANDAXINSUMO(Insumo As Range, SKUs As Range, DemandaSKUs As Range)
Dim i As Integer
Dim nSKU As Integer
Dim Total As Double
Dim Coef As Double
Total = 0
For i = 1 To nSKU
Coef = Application.WorksheetFunction.SumIfs(Worksheets("InsumosporSKU").Range("E:E"), Worksheets("InsumosporSKU").Range("A:A"), SKUs.Cells(i, 1), Worksheets("InsumosporSKU").Range("B:B"), Insumo)
Total = Total + DemandaSKUs.Cells(i, 1) * Coef
Next i
