MEJORA DE FORMULA

[SALAVERRINO]

Buenos días a los integrantes del prestigioso foro, en esta ocasión recurro a uds. para que brinde su apoyo en como mejorar la formula o reemplazar por otra pero que no sea la función BuscarV, o las combinaciones BuscarV con Elegir u Indirecto, o quizás sea una macro, para un promedio diario de 2500 filas.

Desde ya agradezco su atención y apoyo.

AYUDA CON FORMULA.xlsx

[Frank2021]

Hola,

te envío mi propuesta

Saludos

AYUDA CON FORMULA V2.xlsx

[Antoni]

Te dejo una UDF que sustituye a la fórmula:

Function Validar(Espec As String) As Double
valores = Array("ME4", "ME3", "ME2", "ME1", "WJ4", "WJ3", "WJ2", _
                "WJ1", "PJ4", "PJ3", "PJ2", "PJ1", "BJ4", "BJ3", _
                "BJ2", "BJ1", "TJ4", "TJ3", "TJ2", "TJ1", "LJ4", _
                "LJ3", "LJ2", "LJ1", "BJM4", "BJM3", "BJM2", "BJM1")
For x = 0 To UBound(valores)
   If Espec = valores(x) Then
      Validar = Range("MANIOBRAA") '<- ¡Ojo con el nombre!
      Exit Function
   End If
Next
End Function

Ejemplo: En B8 pon =Validar(A8)

[John Jairo V]

¡Hola a todos!

Otra opción, podría ser la que te muestro en el adjunto.  ¡Bendiciones!

AYUDA CON FORMULA.xlsx

[Gerson Pineda]

Hola a todos

Adjunto una opcion mas, utilizando formato tabla, que te va facilitar si se agregan mas códigos 

AYUDA CON FORMULA.xlsx

[SALAVERRINO]

En 1/2/2022 at 13:12 , Antoni dijo:

Te dejo una UDF que sustituye a la fórmula:

Function Validar(Espec As String) As Double
valores = Array("ME4", "ME3", "ME2", "ME1", "WJ4", "WJ3", "WJ2", _
                "WJ1", "PJ4", "PJ3", "PJ2", "PJ1", "BJ4", "BJ3", _
                "BJ2", "BJ1", "TJ4", "TJ3", "TJ2", "TJ1", "LJ4", _
                "LJ3", "LJ2", "LJ1", "BJM4", "BJM3", "BJM2", "BJM1")
For x = 0 To UBound(valores)
   If Espec = valores(x) Then
      Validar = Range("MANIOBRAA") '<- ¡Ojo con el nombre!
      Exit Function
   End If
Next
End Function

Ejemplo: En B8 pon =Validar(A8)

Buenos dias @Antoni, de acuerdo al código enviado y siguiendo lo descrito:

Ejemplo: En B8 pon =Validar(A8)

debo mencionar que sale error, para lo cual adjunto archivo.

Saludos.

AYUDA CON FORMULA V4.xlsm

[JasallBcn]

buenas , como  bien te dice en el codigo, 

Validar = Range("MANIOBRAA") '<- ¡Ojo con el nombre

cambiolo por tu nombre

Validar = Range("MANIBRAA")

Suerte