Sandra Vasquez

Obrigado Edson.

Fiz um exemplo , demorei porque estou tento problemas o excel agora começou a dar aviso de compartilhamento , e apaga minha planilhas e o windows não estava deixando eu zipar nenhuma pasta com macro . Pasta1.rar

Edson, seu código está funcionando perfeitamente , mas na minha planilha eu uso concatenar para puxar esses dados para minha coluna , e quando executo seu código , acaba pintando tudo na mesma cor , exemplo se na célula usando concatenar aparece tudo e caixa , ele pinta tudo da mesma cor , ai testei colocar os textos em usar concatenar , ai funciona , mas se usar o concatenar , pinta tudo na mesma cor , tem como acertar isso ? porque tem muitos dados, e preciso puxar com concatenar , se puder ajudar , agradeço. obrigada

Nossa , já testei seu código , muito bom , curto , mais eficaz, e eu rachando a cabeça aqui , obrigada mesmo. adicionado 3 minutos depois O código do Edson funcionou , mas mesmo assim vou testar o seu também viu. Agradeço muito , pela rapidez da resposta , não sabia que era tão rápido assim , achei que ia demorar uma vida para solucionar meu problema kkk

Bom dia, Eu já tentei criar uma formatação no VBA para colorir apenas parte do texto da célula , mas não está funcionando muito bem Tem um tópico parecido aqui no fórum , mas o que eu preciso acredito ser um pouco diferente, mas com o mesmo conceito. Exemplo: tem alguns padrões de texto especifico na mesma célula , que gostaria de colorir. Coluna A , Range 1 a 40 Texto a colorir: Tubo1 ; Tubo2 ; Tubo3 até Tubo40 Cor Verde Caixa1; Caixa2; Caixa3 até Caixa40 Cor Amarelo pacote1;pacote2 até pacote40 Cor Azul Enfim, exemplo: Coluna A célula na linha 1 texto na mesma célula : Tubo 1 Caixa 2 Pacote 3 ( pintar (tubo1) verde ; pintar (tCaixa2) amarelo ;pintar (pacote3 ) azul) Coluna A célula na linha 2 texto na mesma célula : Tubo 5 Caixa 10 Pacote 30 ( pintar (tubo5) verde ; pintar (Caixa10) amarelo ;pintar (pacote30) azul) Enfim , da coluna A range de 1 a 40 , pintar conforme o texto especifico , e caso não contenha nenhum desses texto , não pintar. Alguém consegue me ajudar?