Formatação condicional em VBA  [Resolvido]

Formatação condicional

Formatação condicional em VBA

Mensagempor robertonl » Ter Abr 17, 2018 12:23 pm

Boa tarde.
Realizei pesquisa na internet e não encontrei a solução desejada.
Queria que na formatação condicional colorisse as células, porém queria que as linhas de grades permanecessem.
Código: Selecionar todos
For I = 4 To FinalRow
    With Estoque
        If .Cells(I, 5) < .Cells(I, 3) Then
           '.Cells(I, 10) = J - (.Cells(I, 9) / .Cells(I, 7))
           .Cells(I, 6) = "Estoque Critico"
           '.Cells(I, 1) = "*** CRÍTICO ***"
           .Cells(I, 1).Resize(, 6).Interior.ColorIndex = 3
           .Cells(I, 1).Resize(, 11).Font.ColorIndex = 1
           .Cells(I, 1).Resize(, 6).Font.Bold = True
           Else
            If .Cells(I, 5) > .Cells(I, 4) Then
                '.Cells(I, 10) = (.Cells(I, 9) / .Cells(I, 8)) - J
                .Cells(I, 6) = "Estoque em Excesso"
                '.Cells(I, 1) = " "
                .Cells(I, 1).Resize(, 6).Interior.ColorIndex = 33
                .Cells(I, 1).Resize(, 6).Font.ColorIndex = 1
                .Cells(I, 1).Resize(, 6).Font.Bold = True
                Else
                 If .Cells(I, 5) > .Cells(I, 3) And .Cells(I, 5) < .Cells(I, 4) Then
                    .Cells(I, 6) = "Estoque Bom"
                    .Cells(I, 1).Resize(, 6).Interior.ColorIndex = 2
                    .Cells(I, 1).Resize(, 6).Font.Bold = True
                End If
            End If
        End If
    End With
Next I
robertonl
Membro
Membro
 
Mensagens: 115
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 30 times
Have thanks: 0 time

{ SO_SELECT }

Re: Formatação condicional em VBA

Mensagempor xlarruda » Ter Abr 17, 2018 12:42 pm

Acrescente esse argumento no seu código:

Código: Selecionar todos
.Cells(I, 1).Resize(, 6).Borders.LineStyle = xlContinuous
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 761
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 95 times
Have thanks: 307 times

Re: Formatação condicional em VBA

Mensagempor robertonl » Ter Abr 17, 2018 12:56 pm

realizei o teste e continua não aparecendo as linhas de grade onde estão os dados
robertonl
Membro
Membro
 
Mensagens: 115
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 30 times
Have thanks: 0 time

Re: Formatação condicional em VBA

Mensagempor xlarruda » Ter Abr 17, 2018 1:21 pm

poderia postar sua planilha?
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

For this post the author xlarruda thanked:
robertonl (Ter Abr 17, 2018 3:20 pm)
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 761
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 95 times
Have thanks: 307 times

Re: Formatação condicional em VBA  [Resolvido]

Mensagempor robertonl » Ter Abr 17, 2018 1:43 pm

Segue planilha conforme solicitado
Se necessitar senha (acerf15)
Você não está autorizado a ver ou baixar esse anexo.
robertonl
Membro
Membro
 
Mensagens: 115
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 30 times
Have thanks: 0 time


Voltar para Formatação Condicional

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante