"si" anidados reemplazar por funcion Excel

[altair_797]

Hola todos

Tengo esta sentencia

Código:

=SI(R2="Mestiza";SUSTITUIR(R2;"Mestiza";"ME");SI(R2="Negra";SUSTITUIR(R2;"Negra";"NE");SI(R2="INDIGENA";SUSTITUIR(R2;"INDIGENA";"IN");SI(R2="Blanca";SUSTITUIR(R2;"Blanca";"BL");SI(R2="Otra";SUSTITUIR(R2;"Otra";"OT");SI(R2="SD";SUSTITUIR(R2;"SD";"SD"); SI(R2="Indigena";SUSTITUIR(R2;"Indigena";"IN");SI(R2="Sin Dato";SUSTITUIR(R2;"Sin dato”;"SD")))))

Tengo que hacer este reemplazo de forma masiva pero me parece que no es óptimo, la verdad no se como hacer funciones en vb

quería hacer algo asi

Código:

Function reemplazar(celda As Range)
   if ceda.value="Indigena" then
         celda.value = Replace(celda, "Indigena ", "IN")
   End If
End Function

y asi con todos pero no me funciona me pueden ayudar por favor? gracias

[mrocf]

Hola! altair_797. Intenta con:

= BUSCARV(G6; {"Mestiza";"Me"\"Negra";"Ne"\"Indigena";"In"\"Blan ca";"Bl"\"Otra";"Ot"\"Sin Dato";"SD"}; 2; FALSO)

Saludos, Cacho.

[altair_797]

Gracias excelente

[mrocf]

¡Qué bueno que te haya sido útil!

Saludos, Cacho.