Página 1 de 1

Listar nomes conforme faixa de renda per capita estipulada

Enviado: 12 Fev 2020 às 13:21
por almeida61
Boa tarde, pessoal!
Tenho um arquivo com mais de 1000 nomes, que identifico a renda per capita e dividi em cinco faixas:
até 500 - de 501 a 1000 - de 1001 a 1500 - de 1501 a 2000 e acima de 2000.

Nestas faixas é possível saber a quantidade utilizando a função CONT.SES, porém, gostaria de saber se há alguma fórmula que eu utilize para identificar os nomes por faixa de renda per capita.

Anexo, um exemplo com 20 nomes.

Re: Listar nomes conforme faixa de renda per capita estipula

Enviado: 13 Fev 2020 às 07:24
por osvaldomp
almeida61 escreveu: ... gostaria de saber se há alguma fórmula ... para identificar os nomes
Se você quer identificar/destacar os nomes me parece que a Formatação Condicional atenderia. Já experimentou ?

Listar nomes conforme faixa de renda per capita estipulada

Enviado: 13 Fev 2020 às 08:54
por almeida61
Olá Osvaldo!
Sim, já recorri a Formatação Condicional, porém, a identificação/destaque dos nomes daria-se apenas na tabela B4:F23 e o que eu gostaria é que aparecessem os nomes abaixo das faixas per captas.
O arquivo anexo é um exemplo com apenas 20 nomes, já o arquivo original que trabalho tem mais de 1000 nomes.

Re: Listar nomes conforme faixa de renda per capita estipula

Enviado: 13 Fev 2020 às 13:25
por osvaldomp
Se você quiser experimentar uma solução via macro, segue abaixo.

Instale uma cópia do código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).
Código: Selecionar todos
Sub RendaPC()
 Dim f As Range, c As Long
  [H4:L1500] = ""
  For Each f In Range("F4:F" & Cells(Rows.Count, 6).End(3).Row)
   c = Evaluate("LOOKUP(" & Replace(f.Value, ",", ".") & ",{0;500;1000;1500;2000},{8;9;10;11;12})")
   Cells(Rows.Count, c).End(3)(2) = f.Offset(, -4).Value
  Next f
End Sub

Listar nomes conforme faixa de renda per capita estipulada

Enviado: 13 Fev 2020 às 14:29
por almeida61
Ótimo, Osvaldo!
Imaginei mesmo que teria que recorrer ao Macro, mas, por desconhecimento, recorri ao Fórum.
Obrigado pela orientação!