Agregar otra condición a la búsqueda e imprimirla en la tabla

Buen día.

Tengo el siguiente código:

Sub Buscar()
Dim lookupvalue As Variant, value As Variant, lookupRange As Range
value = Sheets("Hoja1").Range("A171").value
Set lookupRange = Sheets("Raiting").Range("A2:k520")
lookupvalue = Application.VLookup(value, lookupRange, 8, False)
If IsError(lookupvalue) Then
Exit Sub
Else
MsgBox lookupvalue
End If
End Sub

Lo que quiero es agregar una nueva condición a la búsqueda y me jale el porcentaje de raiting a la hoja1, es decir, si encuentra el numero que esta en la columna a de la hoja1 y columnab de hoja 1 es igual a columna c de raiting entonces imprime el porcentaje que se encuentra para ese código, además este código lo imprime en una caja de texto pero yo quiero que me aparezca en la columna 3 de hoja1.

Gracias espero darme a entender y que puedan ayudarme

Añade tu respuesta

Haz clic para o