Aquí tienes la función:
Código:
Public Function vFind(ByVal vHoja As String, ByVal RangoProd As String, ByVal RangoMat As String, ByVal Mueble As Range, ByVal Material As String) As Currency
Dim vSheet As Worksheet
Dim RangoFindProd As Range
Dim RangoFindMat As Range
On Error Resume Next
Set vSheet = Worksheets(vHoja)
Set RangoFindProd = vSheet.Range(RangoProd).Find(Mueble)
Set RangoFindMat = vSheet.Range(RangoMat).Find(Material)
If Err > 0 Then Exit Function
vFind = vSheet.Cells(RangoFindProd.Row, RangoFindMat.Column)
End Function
Parámetros:
vHoja = Cadena con el nombre de la hoja donde están los precios
RangoProd = Cadena con el rango donde están todos los muebles
RangoMat = Cadena con el rango donde se encuentran los materiales
Mueble = Rango con la que se va a buscar el mueble
Material = Rango con la que se va a buscar el material.
Espero que te sirva.
Saludos
