Notifications
Clear all

Formatação Condicional

12 Posts
2 Usuários
0 Reactions
2,870 Visualizações
(@x0144797)
Posts: 15
Active Member
Topic starter
 

Boa noite.
Se for possivel gostaria de saber se é possivel fazer mais que 3 formatações condicionais?
Eu tenho que fazer umas escalas de horarios e convinha que tivesse mais que 3 condições....
Tipo...
Horário 1 cor ....letra x
Horário 2 cor ....letra y
Horário 3 cor ....letra z
Horário 4 cor ....letra a
Horário 5 cor ....letra s

Obrigado a todos.

 
Postado : 12/05/2012 3:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se puder explicar melhor, ficou meio difícil de enteder o que você quer.

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

 
Postado : 12/05/2012 3:33 pm
(@x0144797)
Posts: 15
Active Member
Topic starter
 

por exemplo
aplicar a formatação condicional na celula d3 em que os criterios sejam:

Horário 1 cor azul ....letra negrito
Horário 2 cor vermelha ....letra normal
Horário 3 cor preta....letra italico
Horário 4 cor verde....letra italico negrito
Horário 5 cor cinzento....letra sublinhado

eu consigo fazer 3 condições condicionais mas não sei se é possivel fazer mais. ou não consigo fazer mais que 3?

 
Postado : 12/05/2012 4:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Até a versão 2003, só era possível trabalhar com 3 condições na formatação condicional.
Neste link o assunto é discutido e é proposta uma macro para contornar o problema:

Formatação Condicional com mais de 3 condições

Nas versões 2007 e 2010 já é possível utilizar mais de 3 condições.

Abraço

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

 
Postado : 12/05/2012 4:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Prezado X0144797, Boa Noite.

Se você estiver utilizando o Excel 2003 então, tres opções é a maior quantidade possível.
Já nas versões 2007 e 2010 existem mais opções.

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

 
Postado : 12/05/2012 4:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Como se trata de formatação, esse tópico será movido para tal!!

X0144797, dica sua versão e explique melhor o que pretende poste um modelo COMPACTADO se necessário!!

Att

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

 
Postado : 12/05/2012 4:29 pm
(@x0144797)
Posts: 15
Active Member
Topic starter
 

Então é isso...
eu uso o 2003 se usar outro mais recente j+a deve dar..
e se fizer com um 2007 as versões anteriores também conseguem ver sa mesma maneira??

 
Postado : 12/05/2012 5:24 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Uma ideia também seria utilizar VBA, mas precisamos entender exatamente o que quer!!

Att

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

 
Postado : 12/05/2012 5:40 pm
(@x0144797)
Posts: 15
Active Member
Topic starter
 

É deste genero...
queria que as celulas fossem formatadas automaticamente consoante:
DO= Descanso obrigatório e em azul negrito
DC= Descanso complementar em azul mais claro e em negrito
F= feriados em vermelho negrito
N= normal em verde negrito
T= tardes noutra cor negrito
M= manhá noutra cor em negrito.......

deu para entender?

 
Postado : 12/05/2012 6:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Segue como desejado!!

Baixe o anexo, e por favor, leia as regras antes de postar!! os arquivo devem ser COMPACTADO!!!

Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

    If Not Intersect(Target, Range("D3:AH95")) Is Nothing Then

        Select Case Target
            Case "F"
                 icolor = 3
              Case "DO"
                icolor = 5
               Case "DC"
                icolor = 20
               Case "Fe"
                icolor = 7
              Case "M"
                icolor = 10
            Case "M1"
                icolor = 12
             Case "NM"
               icolor = 10
              Case "T"
                icolor = 44
               Case "NT"
                icolor = 44
              Case "N"
                icolor = 15
            Case Else
                'Whatever

        End Select
       Target.Interior.ColorIndex = icolor

    End If
End Sub

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

 
Postado : 12/05/2012 6:44 pm
(@x0144797)
Posts: 15
Active Member
Topic starter
 

Bom dia.
Desculpe, mas como era só 90K pensei que não fosse necessario, mas irei fazer sempre que postar.
Já tentei o anexo em cima, mas activo as macros no 2003, e só dá o "Fe" e o "DC" porque aparece como ao escrever o "d" para aceitar o preposto pelo excel..e ai aparece o azul claro, no resto não dá esta a branco...como eu depois quero fazer o mesmo para o resto dos messes do ano dai a minha intenção de aplicação de tais parametros...
é um prencipio, mas as tantas tenho de mudar para outro office, mas depois fico na duvida se offices mais velhos não poderem abrir da mesma maneira que tenho...
Obrigado
alexandrevba e a todos do forum

 
Postado : 13/05/2012 12:58 am
(@x0144797)
Posts: 15
Active Member
Topic starter
 

PERFEITO!!
ESTÁ A FUNCIONAR!!
Tenho é que escrever celula a celula.....para ele actualizar, existe uma maneira de ele actualizar automaticamente?
Outra coisa, que me pode ajudar era a folha verificar na parte superior linha 1 o dia da semana e sempre que esse dia é domingo mete por defeito "DO"
outra coisa era ao intruduzir um codigo ele ir a uma tabela (como está na coluna AN) e ver o codigo do horario e com esse codigo ele faz o mesmo da formatação condicional

Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

If Not Intersect(Target, Range("D3:AH95")) Is Nothing Then

Select Case Target
Case "F"
icolor = 3
Case "DO"
icolor = 5
Case "DC"

posso fazer isto?
Dim icolor As Integer

If Not Intersect(Target, Range("D3:AH95")) Is Nothing Then

Select Case Target
Case "F"
icolor = 3
Case "DO"
icolor = 5
Case B3="fernando Silva" & coluna 2 "data do calendario"= sabado
"DC"

icolor = 20
Case "Fe"
icolor = 7

outra coisa era fazer um quadro com as datas de ferias do pessoal e ele automaticamente via se as datas coicidem e formata com as letas jás establecidas...
Deu para entender?

 
Postado : 13/05/2012 1:44 am