1. Esta comunidad utiliza cookies. Si continuas utilizando nuestra comunidad estás aceptando la utilización de nuestras cookies. Más información.
  2. Se avecinan cambios en AyudaExcel.com

    Necesito que me des tu opinión sobre la nueva plantilla que estoy preparando para la web. Te muestro cinco imágenes del resultado. Solo tienes que pulsar aquí para escribir tu comentario.

  3. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

Solucionado Reemplazar Palabras;Símbolos ó Números

Tema publicado en 'Temas resueltos' iniciado por shivadonga, 23 Feb 2011.

Estado del tema:
Cerrado para nuevas respuestas
  1. shivadonga

    shivadonga Nuevo Usuario

    Reg:
    23 Feb 2011
    Mensajes:
    4
    Me Gusta recibidos:
    0
    Hola a todas-os
    Mi excel que adjunto tiene una fila(D) con celdas con diferentes combinaciones de símbolos,palabras y números.
    Todas-os obedecen a unas normas gobernadas por una macro VBA creada por una persona.
    Por ejemplo *Paris y /Paris deben de ser coloreadas siempre en azul,*Amberes y /Amberes en rojo,etc.....
    Esto se cumple perféctamente bajo la norma de VBA.
    Lo que ahora necesito es añadir a el código la orden de reemplazar todas las palabras Paris de la columna D por Roma conservando el color de el resto de símbolos,palabras y números.
    Lo he intentado con un simple reemplazo creado en la celda E1(=REPLACE(D1;2;5;"Roma").
    pero quiero reemplazar no solo el paris de la celda D1,todos los paris D1:D46 por Roma.
    He colocado el cursor encima de la celda E1,ha aparecido en el extremo inferior derecho una cruz negra,he deslizado la celda hacia abajo y ha aparecido toda la fila E como copia de la D con todos los paris reemplazados por Roma(que es lo que necesito) pero sin conservar los colores originales asignados a las palabras,números y símbolos de la fila D.
    Se les ocurre algún código especial que lo consiga?
    Gracias
    Saludos
     

    Adjuntos:

  2. logroastur

    logroastur Incondicional de Ayuda Excel

    Reg:
    10 Oct 2009
    Mensajes:
    2.575
    Me Gusta recibidos:
    333
  3. shivadonga

    shivadonga Nuevo Usuario

    Reg:
    23 Feb 2011
    Mensajes:
    4
    Me Gusta recibidos:
    0
    Hola a todas-os
    Gracias por tu rápida ayuda logroastur
    El código que has creado lo pego en el Sheet1 (code) seguido del código anterior;detrás de Sub aplicarColorear()
    Me.colorear miRango End Sub? o debo pegarlo en otro lugar?
    Gracias
    Saludos
     
  4. logroastur

    logroastur Incondicional de Ayuda Excel

    Reg:
    10 Oct 2009
    Mensajes:
    2.575
    Me Gusta recibidos:
    333
    Buenas lo puedes colocar donde te sea más comodo al ser una macro lo puedes colocar bien en el modulo de la hoja o en un modulo basico, lo único es que o bien colocas un botón para realizar la llamada a la macro o lo realizas atraves de la lista de macros, o realizas la llamada a traves de otro evento

    un saludo
     
  5. logroastur

    logroastur Incondicional de Ayuda Excel

    Reg:
    10 Oct 2009
    Mensajes:
    2.575
    Me Gusta recibidos:
    333
    Buenas chequea archivo posees botón para ejecuatr el reemplazo y otro para borrar los datos, si colocas 1234 en la celda A1 se ejecutara tambien el evento de reemplazar

    un saludo
     

    Adjuntos:

  6. shivadonga

    shivadonga Nuevo Usuario

    Reg:
    23 Feb 2011
    Mensajes:
    4
    Me Gusta recibidos:
    0
    Ahora mismo lo voy a comprobar
    Gracias de corazón Logroastur
    Saludos
     
  7. shivadonga

    shivadonga Nuevo Usuario

    Reg:
    23 Feb 2011
    Mensajes:
    4
    Me Gusta recibidos:
    0
    Lo acabo de chequear;si pulso los botones no sucede nada,no responden; pero si escribo 1234 en la celda A1 se ejecuta perféctamente el evento de reemplazar.
    Muchas gracias Logroastur,me has regalado una gran ayuda.
    Saludos
     
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página