Colorindo mapas usando células coloridas com format condicio

Boa noite para todos.

Estou com o seguinte problema no uso do VBA no Excel:

Escrevi um macro para colorir um mapa a partir das cores de determinadas células. O macro funciona bem se as células forem coloridas manualmente. Mas, quando uso formatação condicional para colorir as células, o código deixa de funcionar (não pinta o mapa).

Alguém poderia me dar alguma ajuda? Segue abaixo o código em questão:

 

Public Sub teste()

 

Dim i As Integer
Dim eEstados(1 To 27) As String
Dim shpname As String

' ---------------------------  BLOCO 1: Colorindo as células com critério baseado nos seus valores.    -----------

Range("B1:B27").Select   'Selecionando as células de interesse.

Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=2)  'Criando uma escala de cor com duas cores para o range selecionado.

'Atribuindo a cor laranja o menor valor e a cor vermelha ao maior.
cfColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 165, 0)
cfColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(255, 0, 0)

 

' ---------------------------  BLOCO 2: Colorindo o mapa.   --------------------------------------------------------

'Obtendo as siglas das unidades federativas.

For i = 1 To 27

    eEstados(i) = Cells(i, 1)

Next

 

' Pinta o mapa de cada estado baseado nas cores das células localizadas na coluna "B".
For i = 1 To 27      'loop por todos as unidades federativas.
    shpname = eEstados(i)    'associa à string shaname a sigla da unidade federativa.
    ActiveSheet.Shapes(shpname).Select  'ativa o mapa do estado.
    Selection.ShapeRange(1).Fill.ForeColor.RGB = Range("B" & i).Interior.Color    'pinta o mapa do estado com a cor da respectiva célula
Next i

End Sub

 

Lembrando que este código não funciona (o mapa não é pintado, continuando com a cor original), a menos que comentemos o trecho relacionado à formatação condicional (BLOCO 1) e pintemos as células manualmente.

 

Desde já, grato pela atenção.

Micael A.
Micael
perguntou há 1 mês

Sabe a resposta?

Ganhe 10 pts por resposta de qualidade
Responder dúvida
1 resposta
0
votos
Nenhum usuário votou nessa resposta como útil.
Professor Claudio M.
Respondeu há 1 mês

Oi Micael, Você vai precisar criar uma código para capturar a mesma lógica da formatação condicional no seu código VBA. Assim o código atuará como se estive adicionando a cor de forma manual. Sucesso para vc e me avise se deu certo.


Prof. Claudio Moreto

011 96362 0185

Professores particulares de Excel

+ Ver todos
Encontre e contrate um professor particular para te ajudar nos estudos.
3 avaliações
Santo André / SP
MBA: Master Business Administration (FGV - Fundação Getúlio Vargas)
DAX em Excel Excel - Linguagem M
Especialista em Excel, VBA, Power Query e Power BI com modelos criados para diversas áreas e empresas. =procv(conhecimento;profes.com.br;agora;0)
Oferece aulas online (sala profes)
Oferece aulas presenciais
R$ 130 / aula
Conversar Whatsapp do professor Claudio M. Whatsapp do professor Claudio M. Ver WhatsApp
1ª aula demonstrativa
Responde em 2 h e 51 min
48 avaliações
São Paulo / SP
Doutorado: Administração (Universidade de São Paulo)
Excel para Adultos Excel Básico Excel Intermediário Excel Profissional Excel para Adolescentes Excel para Curso Superior
Apaixonado pela docência! Professor em cursos de MBA e graduação nas disciplinas de Administração, Contabilidade e Direito. Leciona inglês e japonês.
Oferece aulas online (sala profes)
Oferece aulas presenciais
R$ 160 / aula
Conversar Whatsapp do professor Ronaldo N. Whatsapp do professor Ronaldo N. Ver WhatsApp
1ª aula demonstrativa
Responde em 14 h e 52 min
42 avaliações
São Vicente / SP
Curso Técnico: Técnico em Contabilidade (Colégio Independência - Santos/SP)
Excel Avançado Excel em Geral Excel Profissional
Excel, Controle Finanças Pessoais, Agenda Virtual e um Controle Geral para aprender técnicas e desenvolver planilhas diferenciadas.
Oferece aulas online (sala profes)
Oferece aulas presenciais
R$ 40 / aula
Conversar Whatsapp do professor Jose R. Whatsapp do professor Jose R. Ver WhatsApp
1ª aula demonstrativa
Responde em 6 h e 51 min

Pergunte aos nossos professores

Você possui uma lista de exercícios ou Trabalho?

Se seu problema for dificuldade em uma lista de exercícios, revisão de teses e dissertações, correção de textos ou outros trabalhos, peça uma ajuda pelo Tarefas Profes.

Enviar Tarefa