Cambiar contenido de celda según combinación del contenido de dos celdas

[YianTheJOP]

Buenas tardes,

No sé si me podríais ayudar con este tema. Necesito que según contenido en una hoja Excel de la celda H2 y M2 cambie el contenido por el numero que corresponda siguiendo la tabla que se encuentra en la hoja2 llamada Origen.

He logrado algo pero no lo que necesito. Mando ejemplo en Excel intentando Explicaros mejor. Es un excel montado para el ejemplo ya que el excel original es corporativo y no lo puedo subir.

Un saludo.

Ejemplo.xlsx

[Antoni]

Con la hoja General activada:

Sub BuscarMódelo()
Application.ScreenUpdating = False
For x = 2 To Range("H" & Rows.Count).End(xlUp).Row
   With Sheets("ORIGEN")
      For x2 = 1 To .Range("A" & Rows.Count).End(xlUp).Row
         If UCase(Range("H" & x)) = UCase(.Range("A" & x2)) And _
            UCase(Range("M" & x)) = UCase(.Range("B" & x2)) Then
            Range("I" & x) = .Range("C" & x2)
            Exit For
         End If
      Next
   End With
Next
End Sub

Cuidado con los acentos. (PLÁTANO ,no es lo mismo que PLATANO)

[YianTheJOP]

Perfecto Antoni, intento en cosa de 30 minutos mirarlo bien y le comento. Lo de los acentos tranquilo, lo sé, pero al intentar crear el ejemplo ya que no puedo colgar la hoja de la empresa, se me ha colado.

Le comento en un rato.

 

Gracias.

[YianTheJOP]

No hay que probar nada más, funciona perfecto @Antoni. Mañana lo "implemento" en la hoja de la empresa.

Como siempre mil gracias por todo... rapidez, profesionalidad y buen hacer.

[YianTheJOP]

Hace 22 minutos , Antoni dijo:

Con la hoja General activada:

Sub BuscarMódelo()
Application.ScreenUpdating = False
For x = 2 To Range("H" & Rows.Count).End(xlUp).Row
   With Sheets("ORIGEN")
      For x2 = 1 To .Range("A" & Rows.Count).End(xlUp).Row
         If UCase(Range("H" & x)) = UCase(.Range("A" & x2)) And _
            UCase(Range("M" & x)) = UCase(.Range("B" & x2)) Then
            Range("I" & x) = .Range("C" & x2)
            Exit For
         End If
      Next
   End With
Next
End Sub

Cuidado con los acentos. (PLÁTANO ,no es lo mismo que PLATANO)

Impresionante con la rapidez. Funciona perfecto.