Identificar según el cumplimiento de caracteristicas

[Visor]

Estimados amigos del foro, aquí nuevamente haciéndoles una consulta en relación a poder identificar el genero y especie según se cumplen las caracteristicas alli puestas.

Solo le he atinado a que me resulte una, el poco conocimiento no me da mas, por eso acudo a ustedes para saber como se podría resolver este tema.

Agradezco su gentil apoyo

Subo un archivo para que lo vean

Clasificar.xlsm

[Antoni]

Sub Identificar()
Dim Encontrado As Boolean
For x = 4 To Hoja2.Range("A" & Rows.Count).End(xlUp).Row
   Encontrado = True
   For y = 3 To 14
      If Not Hoja1.Range("C" & y + 1) = Hoja2.Cells(x, y) Then
         Encontrado = False
         Exit For
      End If
   Next
   If Encontrado = True Then
      Hoja1.Range("D2") = Hoja2.Range("O" & x) & " " & _
                          Hoja2.Range("P" & x)
      Exit Sub
   End If
Next
Hoja1.Range("D2") = "Aun no clasificado"
End Sub

 

[Visor]

Maestro Macro Antonio muchas gracias.

Cuando pones el ojo en un problema "sas",... pones la solución, es justo como quería. Ademas me pongo en la tarea de analizar parte por parte, con un código simplificado y funcional; a veces me quedo sin entender un poco, ejemplo aquí la variable Encontrado ejerce una comparación y esta declarado como Booleano, algo que hasta ahora no lo he visto pero es tan eficaz con el acomodo de los códigos que hasta hoy,.. creo que solo tu ves la lógica, seguiré revisándolo.

 

Gracias nuevamente

Tema solucionado