Formatação condicio...
 
Notifications
Clear all

Formatação condicional

3 Posts
3 Usuários
0 Reactions
967 Visualizações
(@camalmeida)
Posts: 4
New Member
Topic starter
 

Pessoal, boa noite,

Gostaria de fazer uma macro para que, se a coluna G contém certos valores, a cor da sua célula seja alterada.

Alguém consegue me ajudar?

 
Postado : 09/02/2018 5:43 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

camalmeida, por falta de mais detalhes, segue uma rotina básica, nela estou supondo que na coluna G temos um cabeçalho e quanto a "contem certos valores" estou interpretando como numericos, é só associar a rotina a algum botão.
Veja se é isto :

Sub Pinta_Celula()
    Dim Linha As Long
    Dim sRG As Range
    Dim sSht As Worksheet
    Dim sCel
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Set sSht = wb.Sheets("Plan1")
    
    Linha = sSht.Range("G2").End(xlDown).Row
    
    Set sRG = sSht.Range("G2:" & "G" & Linha)
    
        For Each x In sRG
             sCel = x.Address(0, 0)
            
            'Se o Valor for igual a 1
            If x.Value = 1 Then
              Range(sCel).Interior.Color = RGB(255, 0, 0) 'Pinta de Vermelho
            End If
            
        Next

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/02/2018 6:02 pm
(@klarc28)
Posts: 971
Prominent Member
 

Neste fórum, é possível anexar arquivo. Isso facilita o entendimento para quem vai responder.
A seguir, alguns vídeos e sites relacionados:

https://www.youtube.com/results?search_query=vba+formata%C3%A7%C3%A3o+condicional
https://www.google.com.br/search?q=vba+formatacao+condicional&oq=vba+formatacao+condicional&aqs=chrome..69i57.7552j0j7&sourceid=chrome&ie=UTF-8
https://www.youtube.com/watch?v=VCzNwDTbX9M

Cinco dicas que foram muito úteis para mim:

1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO
Faço o que eu quero aí volto ao menu EXIBIÇÃO >> MACROS >> PARAR GRAVAÇÃO
Aperto Alt + F11 e vejo como a macro fez aqui. Tento entender e tento adaptar.

2) Quando vou criar um código e o resultado não está saindo como o esperado, entro no código e vou apertando F8 para executar passo a passo, aí vou passando o mouse sobre as variáveis para verificar se o valores delas estão corretos, já consertei milhares de códigos dessa forma.

3) Antes de executar o código, vou ao menu Depurar >> Compilar. Isso ajuda corrigir erros mais simples, como o nome de uma variável digitado errado.

4) Declaro todas as variáveis. Isso também evita erros.

5) Sempre uso o Option Explicit lá no início. Ele me obriga a declarar as variáveis.

 
Postado : 10/02/2018 7:31 am