Reemplazar multiples valores

dkvs · el 14 de septiembre

Buenas tardes! Soy nueva en el foro ya que comence hace poco a trabajar con Excel. Hace unos dias que necesito reemplazar valores de varias planillas para poder subir a una pagina web. El problema es que son miles de productos a los cuales debo agregarles sus colores principales por medios de codigos que solicita la pagina para poder realizar un filtro.

Tengo dos hojas, en una todos los productos por talle donde ingreso el color primario y la segunda hoja, los colores que quiero reemplazar por su respectivo código:

https://fbcdn-sphotos-g-a.akamaihd.net/hphotos-ak-xlp1/t31.0-8/14311264_1659514134359551_3946213478181993442_o.jpg

https://fbcdn-sphotos-a-a.akamaihd.net/hphotos-ak-xft1/t31.0-8/14324631_1659514127692885_7695474914303090435_o.jpg

Por ejemplo, en la primera hoja, quiero que "Verde" Se reemplace por 83000_Verde_92005 y así con el resto de colores (la tabla no esta completa, por eso tiene algunos en blanco)

Instale el Visual Basic e inteté armar un código en base a un ejemplo que vi en un blog, pero no entiendo como puedo hacer para Indicar que lea la determinada columna de la primera hoja y de ahí cambie al código de la segunda. Busque tambien en los temas viejos pero no encuentro uno que haga lo que estoy buscando, o por lo menos no lo vi. ¡Alguien podria darme una mano? Le voy a esta agradecida ya que me va a servir para cuando tenga que agregar colores secundarios y talles.

Saludos!

EDITADO: Les comento que por el momento probe en un par de productos lo siguiente y me funciono. En un rato entro a trabajar y voy a tratar de hacer con cada color para ver si no me aparece ningún error. Si a alguien se le ocurre otra forma, bienvenido sea:

Sub Macro2()

    Range("D13").Select
    Cells.Replace What:="Verde", Replacement:="83000_Verde_92005"
    Cells.Replace What:="Gris", Replacement:="83000_Gris_92027"
    , LookAt:=xlWhole _
        , SearchOrder:=xlByRows
End Sub

AlexanderS · el 14 de septiembre

Hola, por favor ajunta un ejemplo en excel, para poder ayudarte mejor.

Salu2.

dkvs · el 15 de septiembre

Hace 15 horas, Riddle dijo:

Hola, por favor ajunta un ejemplo en excel, para poder ayudarte mejor.

Salu2.

Te dejo adjunta la planilla. Por el momento logre cambiar los colores con sus respectivos códigos haciendo lo siguiente:

Sub ColorPrimario()

Range("D13").Select
Cells.Replace What:="Verde", Replacement:="83000_Verde_92005"
Cells.Replace What:="Rojo", Replacement:="83000_Rojo_91993"
Cells.Replace What:="Rosa", Replacement:="83000_Rosa_91994"
Cells.Replace What:="Terracota", Replacement:="83000_Terracota_91995"
Cells.Replace What:="Bordo", Replacement:="83000_Bordó_91996"
Cells.Replace What:="Naranja", Replacement:="83000_Naranja_91997"
Cells.Replace What:="Beige", Replacement:="83000_Beige_91998"
Cells.Replace What:="Piel", Replacement:="83000_Piel_91999"
Cells.Replace What:="Marron", Replacement:="83000_Marrón_92000"
Cells.Replace What:="Amarillo", Replacement:="83000_Amarillo_92001"
Cells.Replace What:="Crema", Replacement:="83000_Crema_92002"
Cells.Replace What:="Ocre", Replacement:="83000_Ocre_92003"
Cells.Replace What:="Dorado", Replacement:="83000_Dorado_92004"
Cells.Replace What:="Verde Claro", Replacement:="83000_Verde claro_92006"
Cells.Replace What:="Esmeralda", Replacement:="83000_Esmeralda_92007"
Cells.Replace What:="Verde Oscuro", Replacement:="83000_Verde oscuro_92008"
Cells.Replace What:="Agua", Replacement:="83000_Agua_92009"
Cells.Replace What:="Azul Cielo", Replacement:="83000_Azul cielo_92010"
Cells.Replace What:="Azul Marino", Replacement:="83000_Azul marino_92020"
Cells.Replace What:="Azul Petroleo", Replacement:="83000_Azul petróleo_92012"
Cells.Replace What:="Azul", Replacement:="83000_Azul_92013"
Cells.Replace What:="Celeste", Replacement:="83000_Celeste_92014"
Cells.Replace What:="Azul oscuro", Replacement:="83000_Verde_92005"
Cells.Replace What:="Violeta", Replacement:="83000_Violeta_a78316c"
Cells.Replace What:="Lavanda", Replacement:="83000_Lavanda_92018"
Cells.Replace What:="Lila", Replacement:="83000_Lila_92019"
Cells.Replace What:="Violeta Oscuro", Replacement:="83000_Violeta oscuro_92017"
Cells.Replace What:="Fucsia", Replacement:="83000_Fucsia_92021"
Cells.Replace What:="Salmon", Replacement:="83000_Salmón_92022"
Cells.Replace What:="Fucsia Oscuro", Replacement:="83000_Fucsia oscuro_92023"
Cells.Replace What:="Purpura", Replacement:="83000_Púrpura_92024"
Cells.Replace What:="Negro", Replacement:="83000_Negro_92025"
Cells.Replace What:="Plateado", Replacement:="83000_Plateado_92026"
Cells.Replace What:="Gris", Replacement:="83000_Gris_92027"
Cells.Replace What:="Blanco", Replacement:="83000_Blanco_92028", LookAt:=xlWhole _
, SearchOrder:=xlByRows
End Sub

Lo que no se es que hace Range("D13").Select que aparece en el principio. Y quisiera saber si se puede guardar el macro para poder utilizar en cualquier planilla que me baje con los datos de los productos.

Vtex.rar

dkvs · el 16 de septiembre

Estoy volviendo a probar pero ya no me funcionan. Necesito que solo me reemplace cuando el nombre del color se encuentra en una sola celda, ya que tengo otra celda que contiene los nombres de todos los colores separados por comas y me los esta modificando allí: por ejemplo, tengo en una celda: Gris y en otra: gris, rojo, amarillo, verde. Y me modifica ambas.

Hay alguna manera de hacer que reemplace cuando se encuentre el nombre de un solo color en una celda? o seleccionar que reemplace los valores de una celda en específica así no me modifica todas las demas?

Desde ya muchas gracias!