Dúvida - Pintar Apenas Parte do Conteúdo da Célula

[Victor Marcel]

Boa noite.

 

Estou entrando agora para o mundo do VBA, e já me deparei com uma pequena barreira.

 

Tenho alguns padrões de cadastro que o cliente pediu para desenharmos e, após primeira verificação, eles pediram para inserirmos mais coisas e destacarmos elas. Por exemplo, tinhamos este padrão: {FIXO OLEO DIESEL} | {TIPO} | <FABRICANTE> | {CLASSIFICACAO} | {APRESENTACAO} | <REFERENCIA>

 

Acrescentamos dois conteúdos nele (fabricante e referência) e precisamos destaca-los em vermelho. O padrão ficou o seguinte: {FIXO OLEO DIESEL} | {TIPO} | <FABRICANTE> | {CLASSIFICACAO} | {APRESENTACAO} | <REFERENCIA> ..

 

Destaquei os conteúdos por "<" e ">" para colori-los, mas não consigo pintar eles via VBA, já que é um campo que pode variar de tamanho e de posicao.

 

O que eu precisaria é que ele ficasse assim dentro da minha célula: {FIXO OLEO DIESEL} | {TIPO} | <FABRICANTE> | {CLASSIFICACAO} | {APRESENTACAO} | <REFERENCIA> .

 

Alguém consegue me ajudar?

[Wendell Menezes]

Se eu entendi o seu problema esses atributos (Tipo, fabricante,classificação, etc) estão todos dentro da mesma célula. Dito isso você precisa pintar de vermelho as palavras Fabricante e Referencia.

 

Se for isso mesmo o código abaixo faz isso, considerando que esse texto esteja na célula A1

Sub Victor()Range("A1").Characters(InStr(1, Range("A1"), "FABRICANTE"), Len("FABRICANTE")).Font.Color = 255Range("A1").Characters(InStr(1, Range("A1"), "REFERENCIA"), Len("REFERENCIA")).Font.Color = 255End Sub

[Victor Marcel]

Wendell.

Então, os atributos fabricante e referencia são dinâmicos e não são sempre dois.

 

Podem ser de 0 a 23. Além disso, Podem ser cor, animal, espécie, e uma série de outros atributos.

[Wendell Menezes]

Desculpe, lendo novamente entendi que você precisa destacar o que estiver entre <>. Nesse caso o código ficaria assim:

Sub Victor()    For l = 1 To Len(Range("A1"))        If Mid(Range("A1"), l, 1) = "<" Then            f = l + 1                ElseIf Mid(Range("A1"), l, 1) = ">" Then            t = l - f        End If        If f > 0 And t > 0 Then            Range("A1").Characters(f, t).Font.Color = 255            f = 0            t = 0        End If    NextEnd Sub

[Victor Marcel]

E pra fazer isso para a sheet 5, por exemplo?

 

Devo jogar a função dentro da própria sheet lá no VB ou em ThisWoorkBook?

[Wendell Menezes]

Do jeito que o código está escrito ele vai rodar na célula A1 da sheet que estiver ativa no momento.

 

Se você quer rodar o código a partir de um botão que fica em outra sheet você precisa adicionar:

Sheets("Nome da aba desejada").

Antes de cada Range("A1") do meu exemplo.

 

Ex:

For l = 1 To Len(Sheets("Nome da aba desejada").Range("A1"))

[Victor Marcel]

Cara, 

eets("Nome da aba desejada").Range("A1"))

Deu certinho.

 

Muito obrigado mesmo !!!!