Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ativar Pincel de Fo...
 
Notifications
Clear all

Ativar Pincel de Formatação via VBA

 
2024 - VBA & Macros
Post Recente por Jorudess 8 anos atrás
8 Posts
3 Usuários
0 Reactions
2,182 Visualizações
RSS
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

Fala galera,

Tenho uma tabela onde preciso colorir algumas células com cores específicas, em conjunto tenho uma função que conta as células coloridas e me apresenta os resultados....

Meu problema é o seguinte:
Para colorir as células da minha tabela.. tenho que clicar na célula onde está a cor específica (uma célula fixa), clicar no pincel de formatação e depois colorir as células que preciso.
Gostaria de automatizar da seguinte forma: criar um botão que, ao clicar, acione automaticamente o pincel de formatação já configurado com a cor específica, mas não sei qual o código para "acionar" o pincel de formatação via VBA.

Conto com a ajuda de vocês.

 
Postado : 23/02/2017 3:46 pm
 JPedro
(@jpedro)
Posts: 111
Estimable Member
 

Caro Jorudess,

Se vc quer que a cor já esteja configurada, então vc quer que seja sempre a mesma cor. É isso?

Veja se o modelo anexo atende. Altere a cor se for o caso.

Abraços!

 
Postado : 23/02/2017 5:43 pm
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

Exatamente isso, JPedro! Muito obrigado!

Eu vou usar 4 botões desses com cores predefinidas, mas o 5º botão trata-se de uma formatação condicional, você poderia montar este código para mim?

As condições são:
1 - Se a 3ª letra do texto contido na célula for "s" ... pinte com a cor 1
2 - Se a 3ª letra do texto contido na célula for "o" ... pinte com a cor 2
3 - Se a 1ª letra do texto contido na célula for igual à 2ª letra do texto contido nesta mesma célula ... pinte com a cor 3
4 - Se nenhuma dessas condições forem atendidas... pinte com a cor 4

 
Postado : 24/02/2017 7:21 am
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

Eu não consegui editar o post anterior. Mas surgiu um outro problema.

Fui tentar criar outros botões usando o código que vc enviou e não consegui, também não consegui copiar seu botão, editá-lo.. enfim... ele está bloqueado?

Como eu crio outros botões iguais aos seus? Criei as mesas subs... com os mesmos nomes e não deu certo.

Valeu

 
Postado : 24/02/2017 8:11 am
hronconi
 hronconi
(@hronconi)
Posts: 314
Reputable Member
 
Option Explicit


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim str_first As String
    Dim str_second As String
    
    str_first = Left(Target.Value, 1)
    str_second = Mid(Target.Value, 2, 1)
    Select Case str_first
        Case str_second
            With Target.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 17107
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        Case "s"
            With Target.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 49407
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        Case "o"
            With Target.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 50107
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
        Case Else
            With Target.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
    
    End Select

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 24/02/2017 8:19 am
 JPedro
(@jpedro)
Posts: 111
Estimable Member
 

Jorudess, boa tarde.

Segue planilha, veja se atende. Para copiar ou editar o botão (ToggleButton), vai na guia Desenvolvedor e clica em Modo de Design. Após, é só formatar o botão. Não esquece de desmarcar o Modo Design depois de mexer. Para habilitar guia desenvolvedor, caso não esteja, vai em "Arquivo", "Opções", "Personalizar Faixa de Opções".

 
Postado : 24/02/2017 3:21 pm
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

hronconi,

Agradeço pela força... mas não consegui usar o código... eu sou iniciante em VBA e não tô conseguindo aplicar..

Devo inserir o código em um módulo? na pasta de trabalho? Uso um botão de controle de formulário? Active X?

Se alguem puder me orientar.. ou enviar uma planilha já com o botão... eu agradeço...

 
Postado : 24/02/2017 3:30 pm
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

Funciona sim, JPedro...

Eu ainda não consegui montar sozinho o código e fazer funcionar... nunca usei botões active X então devo estar esquecendo de habilitar alguma coisa... mas vou utilizar copiando o botão que vc fez e alterando as cores..

valeu!

 
Postado : 24/02/2017 4:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico