Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Responder um interv...
 
Notifications
Clear all

Responder um intervalo de número com texto em outra coluna

 
2024 - VBA & Macros
Post Recente por ArthurRC 9 anos atrás
5 Posts
2 Usuários
0 Reactions
578 Visualizações
RSS
 ArthurRC
(@arthurrc)
Posts: 3
New Member
Topic starter
 

Olá! O Fórum sempre me ajudou com problemas no excel, mas nesse caso não consegui resolver, tanto que fiz cadastro aqui para poder postar minha pergunta...

Segue a Imagem

O que eu preciso fazer:
O Resultado da Soma na coluna V deve ser respondido com o texto e cor de fundo correspondentes do intervalo (tabelinha a partir da linha 20), nas células da coluna W.

Consigo fazer isso com o VBA? Se sim como?

Grato pela ajuda e atenção

 
Postado : 14/07/2015 7:28 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Arthur, precisa ser atraves de VBA ? Você pode estar utilizando a formatação condicional e formulas para obter o que pretende.

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

 
Postado : 14/07/2015 7:55 am
 ArthurRC
(@arthurrc)
Posts: 3
New Member
Topic starter
 

Arthur, precisa ser atraves de VBA ? Você pode estar utilizando a formatação condicional e formulas para obter o que pretende.

Eu não consigo colocar mais de 3 formatações condicionais (excel 2003)...

 
Postado : 14/07/2015 9:03 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se é isto :

As cores você pode alterar conforme a tabela no link : http://dmcritchie.mvps.org/excel/colors.htm 

Sub FormataCondicao()
    Dim i As Integer
    Dim UltimaLinha As Long
    Dim sNum

    UltimaLinha = Plan1.Range("V" & Rows.Count).End(xlUp).Row
    
    For i = 3 To UltimaLinha
    
        sNum = Range("V" & i).Value
        
        Select Case sNum
        
            Case 0 To 9
                
                With Range("W" & i)
                .Value = "Não tem"
                .Interior.ColorIndex = 10 'Verde
                End With
            
            Case 10 To 17
                With Range("W" & i)
                .Value = "Possibilidade de Disturbios Leves"
                .Interior.ColorIndex = 32 'Azul
                End With
            
            Case 18 To 21
                With Range("W" & i)
                .Value = "Disturbio Leve"
                .Interior.ColorIndex = 21 'Roxo
                End With
            
            Case 22 To 35
                With Range("W" & i)
                .Value = "Disturbio Moderado"
                .Interior.ColorIndex = 27 'Amarelo
                End With
            
            Case 36 To 53
                With Range("W" & i)
                .Value = "Disturbio Moderado/Grave"
                .Interior.ColorIndex = 45 'Laranja
                End With
            
            Case Is >= 54
                With Range("W" & i)
                .Value = "Disturbio Grave"
                .Interior.ColorIndex = 3 'Vermelho
                End With
        
        End Select
    
    Next i
End Sub

Faça os testes e qq coisa retorne.

[]s

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

 
Postado : 14/07/2015 12:17 pm
 ArthurRC
(@arthurrc)
Posts: 3
New Member
Topic starter
 

Deu certo! 'Brigado

 
Postado : 15/07/2015 6:46 am
Forum Jump:
  Tópico Anterior
Próximo Tópico