Colorindo mapas usando células coloridas com format condicio

Excel Intermediário Avançado

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.

Foto de Micael A.
Micael perguntou há 4 anos

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.
Identidade verificada
  • CPF verificado
  • E-mail verificado
Respondeu há 4 anos

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

Envie uma dúvida gratuitamente

Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.

Professores particulares de Excel

+ Ver todos
Encontre professor particular para te ajudar nos estudos
R$ 220 / h
Claudio M.
Santo André / SP
Claudio M.
5,0 (8 avaliações)
Horas de aulas particulares ministradas 54 horas de aula
Tarefas resolvidas 1 tarefa resolvida
Identidade verificada
  • CPF verificado
  • E-mail verificado
1ª hora grátis
DAX em Excel Excel - Linguagem M
MBA: Master Business Administration (Fundação Getúlio Vargas (FGV))
Especialista em Excel, VBA, Power Query e Power BI com modelos criados para diversas áreas e empresas. =procv(conhecimento;profes.com.br;agora;0)
R$ 50 / h
Vilson B.
Ji-Paraná / RO
Vilson B.
5,0 (40 avaliações)
Horas de aulas particulares ministradas 92 horas de aula
Tarefas resolvidas 26 tarefas resolvidas
Identidade verificada
  • CPF verificado
  • E-mail verificado
1ª hora grátis
Excel Avançado Excel Básico Excel Intermediário
Mestrado: Assessoria de Administração (Instituto Politécnico do Porto)
Conheça meu método inovador "excel mão na massa" que criei para ajudar quem precisa aprender rápido e sair na frente nas vagas de emprego e trabalho!
R$ 90 / h
Luciano F.
São Paulo / SP
Luciano F.
4,8 (9 avaliações)
Horas de aulas particulares ministradas 322 horas de aula
Tarefas resolvidas 5 tarefas resolvidas
Identidade verificada
  • CPF verificado
  • E-mail verificado
1ª hora grátis
DCF em Excel Matemática Financeira em Excel Fluxo de Caixa Descontado em Excel
Graduação: Engenharia Mecatrônica (Escola Politécnica da Universidade de São Paulo (POLI-USP))
Aulas muito Fortes de Exatas para cursos Superiores e preparatórias para GMAT, concursos, ITA, Fuvest e Unicamp.