Notifications
Clear all

FORMATAÇÃO CONDICIONAL VARIAS COLUNAS E LINHAS  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
12/03/2010 9:50 pm  

Bom dia Pessoal

Tenho uma planilha e preciso criar formatações para tipos de STATUS diferentes

C = CARREGAMENTO
B = BLOQUEADO
P = PRODUÇÃO

PRECISO ACRESCENTAR

ER = ENVIO RETRABALHO
RR = RECEBIMENTO RETRABALHO

Através da formatação condicional apenas consigo para Três Condições, mas preciso acrescentar mais duas...

segue arquivo exemplo:

http://www.4shared.com/file/240100860/e ... ONDIO.html

Obrigado.

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


Citar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/03/2010 5:46 pm  

Donizetti,

deve utilizar o Office2003.
Na realidade, consegu atribuir 4 condições.

Com o Office2007, não haveria problema.

Já com o 2003, se quiser mais que 4 condicionais, há solução através de macro.

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/03/2010 7:32 pm  

Bom dia Edson

Por acaso você tem alguma coisa pra estar me enviando???

Obrigado.

Ps.: Vou ver se consigo o Office 2007

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/03/2010 8:03 am  


Se puder ser com VBA e supondo que seja digitado o STATUS na coluna G:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 7 Then
Exit Sub
Else
stat = Target.Value
lin = Target.Row
Select Case stat
Case "C"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 4
Case "B"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 15
Case "P"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 6
Case "ER"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 44
Case "RR"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 8
End Select
End If

End Sub

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/03/2010 3:27 pm  

Muito boa Edson!!!

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
15/03/2010 8:59 pm  

Edson, valeu pela ajuda, a condição deu certo. Show....

Obs: Só para complementar acrescentei uma linha devido a minha necessidade:

Case ""
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = xlNone

Pois quando a pessoa deletar a opção as Colunas voltam a ficar em Branco..

Obrigado... :lol:

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
16/03/2010 4:25 am  


É isso aí, Donizetti! Bem corrigido!

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
20/09/2010 6:47 am  

Prezados,

Estou tentando adaptar a macro a uma planilha que estou desenvolvendo e alterei o status para minha necessidade, porém, preciso q entre outra variável e preciso de ajuda.

A minha coluna de status fica em F.
Quando o status é "pendente", preciso q a cor seja alterada de acordo com a data corrente, ou seja, se o status é "pendente" mas a data q tenho na coluna C for maior do q hoje(), a cor da linha deve ficar VERDE, caso contrário, a cor da linha deve ficar VERMELHA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 6 Then
Exit Sub
Else
stat = Target.Value
lin = Target.Row
Select Case stat
Case "pendente"
Range("A" & lin & ":F" & lin).Interior.ColorIndex = 4
Case "quitada"
Range("A" & lin & ":F" & lin).Interior.ColorIndex = 15
Case "cancelada"
Range("A" & lin & ":F" & lin).Interior.ColorIndex = 15
Case ""
Range("A" & lin & ":F" & lin).Interior.ColorIndex = xlNone
End Select
End If

End Sub

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
29/08/2012 7:55 am  

Olá pessoal, Preciso da ajuda de vocês,

Não estou conseguindo fazer a rotina abaixo funcionar como eu quero.
Tenho 3 textbox que lêem dados de um planilha

txts1.text
txts2.text
txts3.text

As três representam Status de atendimento. Se qualquer uma delas for igual a "FORA DO PRAZO" tem que ficar com pintada de vermelho. "NO PRAZO" verde e "PENDENTE" amarelo.

Só consegui fazer funcionar com duas condições e em uma única textbox, nas outras o código não funcionou e não consigo fazer o evento ser "onload"
Sou iniciante no vba e gostaria muito do apoio de vocês.

Segue código:

Private Sub txts1_Change()

If txts1.Value = "FORA DO PRAZO" Then

Me.txts1.BackColor = RGB(255, 0, 0)

Else:

Me.txts1.BackColor = RGB(0, 255, 0)

End If

End Sub

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
30/08/2012 11:42 am  

Boa tarde!!

Donizetti Siqueira, lembre se de marcar sua postagem como resolvida!!
Veja em:
viewtopic.php?f=7&t=3784

wavelino, seria conveniente abrir seu próprio tópico!!!

Att

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


ResponderCitar (Quote)
Compartilhar: