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